Msgbox vbYesNoCancel Cancel werkt niet.

[jvandervliet]

Hallo,

In onderstaande code werkt vbCancel niet.

Sub Afsluiten()

Dim Antwoord As String
Dim Dialoog As String
Dialoog = "Heeft u de factuur al opgeslagen?"
Antwoord = MsgBox(Dialoog, vbQuestion + vbYesNoCancel, "Factuur")
If Antwoord = vbNo Then
  Run "Opslaan"
Run "Nieuwe_Factuur"
Range("C5").Select
    Selection.ClearContents
    ThisWorkbook.Save
Application.Quit
Else
 Range("C5").Select
    Selection.ClearContents
 Run "Nieuwe_Factuur"
ThisWorkbook.Save
Application.Quit
If Antwoord = vbCancel Then Exit Sub

End If
End Sub

Hoe krijg ik vbCancel aan de praat, het enigste wat ie moet doen is Exit Sub, maar dan voert ie de Macro alsnog uit.

Alvast dank!

 

[jkpieterse]

Sub Afsluiten()
    Select Case MsgBox("Heeft u de factuur al opgeslagen?", vbQuestion + vbYesNoCancel, "Factuur")
    Case vbNo
        Opslaan
        Nieuwe_Factuur
        Range("C5").ClearContents
        ThisWorkbook.Save
        Application.Quit
    Case vbYes
        Range("C5").ClearContents
        Nieuwe_Factuur
        ThisWorkbook.Save
        Application.Quit
    Case vbCancel
        Exit Sub
    End Select
End Sub

 

[jvandervliet]

Jan Karel,

Hartelijk dank, het werkt!

 

[snb]

Of ?

Sub M_snb()
    Select Case MsgBox("Heeft u de factuur al opgeslagen?", vbQuestion + vbYesNoCancel, "Factuur")
    Case vbNo
        Opslaan
    Case vbCancel
        Exit Sub
    End Select

    Range("C5").ClearContents
    Nieuwe_Factuur
    ThisWorkbook.Save
    Application.Quit
End Sub