msgbox toegevoegd

[ronnie123]

hallo forum leden
ik heb een macro opgenomen en wil daar een msgbox aan vooraf laten gaan
maar bij ja of nee doet hij het zelfde kan iemand zo zien wat ik fout heb gedaan
grt ronnie

Sub tweederonde()
MsgBox "weet je het zeker", vbYesNoCancel, "Waarschuwing"
If Response = vbNo Then
Exit Sub
End If
    Sheets("wedstrijden").Select
    Sheets("wedstrijden").Copy After:=Sheets(10)
    Sheets("stand (2)").Select
    ActiveWindow.SmallScroll Down:=-9
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets("stand (3)").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("wedstrijden (2)").Select
    ActiveWindow.SmallScroll Down:=-9
    Sheets("wedstrijden").Select
    Range("Tabel1[[Kolom1]:[Kolom3]]").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-90
    Range("A15").Select
    Sheets("start").Select
End Sub

 

[AD1957]

Zo?

Sub tweederonde()
If MsgBox( "weet je het zeker", vbYesNoCancel, "Waarschuwing")<>vbNo then

    Sheets("wedstrijden").Select
    Sheets("wedstrijden").Copy After:=Sheets(10)
    Sheets("stand (2)").Select
    ActiveWindow.SmallScroll Down:=-9
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets("stand (3)").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("wedstrijden (2)").Select
    ActiveWindow.SmallScroll Down:=-9
    Sheets("wedstrijden").Select
    Range("Tabel1[[Kolom1]:[Kolom3]]").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-90
    Range("A15").Select
    Sheets("start").Select
End If
End Sub

 

[ronnie123]

Albert bedankt nu werkt het
groetje ronnie

 

[VenA]

Moet je niet per abuis op cancel klikken.

 

[ronnie123]

VenA die heb ik weg gehaald

 

[AD1957]

Goed gezien VenA, zelf heb ik die cancel gemist.

Met cancel:

If MsgBox( "weet je het zeker", vbYesNoCancel, "Waarschuwing") = vbYes then