MsgBox gebruiken in een loop

[lambiekske2611]

Hallo Allemaal,

Hieronder heb ik mijn macro code staan die ik samen heb gevoegd uit verschillende voorbeelden op het web.
Maar deze blijft door lopen ook al klik ik op NO. Hoe kan dit??? Of wat doe ik fout:

Wie o wie kan me op weg helpen???



Sub Rijen8Verwijderen2()
'
' Rijen8Verwijderen2 Macro
'
' Sneltoets: CTRL+SHIFT+D
'
Response = MsgBox("Yes or no", vbYesNo)


For x = 1 To 100
MsgBox "Verder gaan", vbYesNo
If Response = vbNo Then Exit Sub

ActiveCell.Select
ActiveCell.Offset(51, 0).Rows("1:8").EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.Select


Next x
Range("A2").Select

End Sub

 

[edmoor]

Omdat je de eerste keer de waarde van Response niet controleert en deze de tweede keer niet inneemt.
Daarbij is de eerste keer overbodig en de tweede keer kan je het zo doen:
If MsgBox("Verder gaan", vbYesNo) = vbNo Then Exit Sub

 

[lambiekske2611]

Bedankt edmoor hiermee kan ik verder