JA NEE Macro knop

[djpeterl1]

Hallo,

Ben opzoek geweest maar kan het niet vinden;

Ik heb in een excel document een Macro gemaakt, voordat de macro word uitgevoerd wil ik graag een venster krijgen met de vraag of ik zeker weet dat ik door wil gaan, op het antwoord JA word de macro voort gezet en op het antwoord NEE word de macro geannuleerd.

Had het onderstaande al gevonden:

If MsgBox("Weet u het zeker?", vbYesNo, "Factuur boeken") = vbYes Then
'boek file
End If

Probleem bij bovenstaande opdracht is dat als ik ja of nee in druk de macro altijd door gaat.

Waar zit de fout?

Hoop dat iemand me kan helpen.

Groetjes,

Peter

 

[NeedForSpeed]

Hoi,

Probeer het is te eindigen met:

End If
End Sub

OF

End Select

End If

WEET NIET OF HET WERKT!

Gr,

Irakli

 

[Hoornvan]

djpeterl1,

Probeer dit eens;

If MsgBox("Weet u het zeker?", vbYesNo, "Factuur boeken") = vbNo Then Exit Sub

Ik weet het ook niet zeker.

 

[Hoornvan]

djpeterl1,

Het kan ook zijn dat het zo moet.

MsgBox  "Weet u het zeker?", vbYesNo, "Factuur boeken" 
If response = vbNo Then Exit Sub

 

[Hoornvan]

djpeterl1,

Dit vond ik in de help van Excel.

Voorbeeld van de functie MsgBox
Dit voorbeeld maakt gebruik van de functie MsgBox om een bericht voor een kritieke fout weer te geven in een dialoogvenster met een knop Ja en Nee. De knop Nee is opgegeven als de standaardreactie. De waarde die de functie MsgBox als resultaat geeft, is afhankelijk van de knop die u kiest. Dit voorbeeld gaat ervan uit dat DEMO.HLP een Help-bestand is dat een onderwerp bevat met een Help-contextnummer dat gelijk is aan 1000.

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Wilt u doorgaan?"    ' Definieert bericht.
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Definieert knoppen.
Title = "Demo MsgBox"    ' Definieert titel.
Help = "DEMO.HLP"    ' Definieert Help-bestand.
Ctxt = 1000    ' Definieert onderwerp
        ' context.
        ' Geeft bericht weer.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then    ' Gebruiker koos Ja.
    MyString = "Ja"    ' Voert bepaalde handeling uit.
Else    ' Gebruiker koos Nee.
    MyString = "Nee"    ' Voert bepaalde handeling uit.
End If

 

[djpeterl1]

Dankje wel!

Hoorn: Eerste was de oplossing

Gr. Peter

 

[Hoornvan]

djpeterl1,

Graag gedaan, zet hem als opgelost.