Gielleke25
Gebruiker
- Lid geworden
- 12 feb 2022
- Berichten
- 46
Hallo iedereen,
Vraagje, kan iemand mij op de goede weg helpen? ik zit vast met het onderstaande...
Voor een opdracht zou ik graag 2 Msgboxen na elkaar willen laten verschijnen op het scherm.
De VBA code voor 1 Msgbox is mij volledig gekend, maar ik zou een 2de Msgbox willen laten verschijnen na de eerste...
De eerste Msgbox: vraagt "bent u zeker dat u wil doorgaan?" is het antwoord neen, dan sluit hij af. Is het antwoord ja, dan zou ik een 2de Msgbox willen laten verschijnen.
De tweede Msgbox: vraagt "Bent u héél zeker dat u nog wil doorgaan? is het antwoord neen, dan sluit hij af. Is het antwoord ja dan zet hi in cel A1 "OK".
Alvast bedankt voor jullie hulp!
Mvg,
Vraagje, kan iemand mij op de goede weg helpen? ik zit vast met het onderstaande...
Voor een opdracht zou ik graag 2 Msgboxen na elkaar willen laten verschijnen op het scherm.
De VBA code voor 1 Msgbox is mij volledig gekend, maar ik zou een 2de Msgbox willen laten verschijnen na de eerste...
De eerste Msgbox: vraagt "bent u zeker dat u wil doorgaan?" is het antwoord neen, dan sluit hij af. Is het antwoord ja, dan zou ik een 2de Msgbox willen laten verschijnen.
De tweede Msgbox: vraagt "Bent u héél zeker dat u nog wil doorgaan? is het antwoord neen, dan sluit hij af. Is het antwoord ja dan zet hi in cel A1 "OK".
Alvast bedankt voor jullie hulp!
Mvg,
Code:
Private Sub cmd_Msgbox_Click()
Range("A1").ClearContents
Dim antwoord As Integer
antwoord = MsgBox(prompt:="Bent u zeker dat u wil doorgaan?", _
Title:="Msgbox 1", _
Buttons:=vbYesNo + vbQuestion)
If antwoord = vbYes Then
'Hier zou een 2de Msgbox moeten komen met de boodschap: Bent u héél zeker dat u nog wil doorgaan? Indien hierop het antwoord nog steeds vbYes is dan Range("A1") = "OK"'
Else
Exit Sub
End If
End Sub