veiligheidsdammetje

[benniehulshof]

Ik wil voor dat een gebruiker verwijderd word er gevraagd "wordt weet u dit zeker?"

Echter na dagen puzzel kom ik er niet uit.
Else if variable an geprobeerd dit werkt ook niet wellicht weet iemand van jullie dit?
dit is de code:
Private Sub cmdDelete_Click()
Dim x As Long
Dim y As Long
If MsgBox("weet u dit zeker ?", vbYesNo, "Blank fields") = vbNo Then
Exit Sub
x = Sheets("leden").Range("A" & Rows.Count).End(xlUp).Row
For y = 7 To x
If Sheets("leden").Cells(y, 8).Value = Txtbondsnummer.Text Then
Rows(y).Delete
End If
Next y

''''''''clear boxes''''''''
Me.TextBox1.Value = ""
Me.txtVoornaam.Value = ""
Me.txtachternaam.Value = ""
Me.txttt.Value = ""
Me.txtbroek.Value = ""
Me.txtteam.Value = ""
Me.txtsponsor.Value = ""
Me.txttelefoon.Value = ""




MsgBox "Speler is verwijderd ", vbInformation
TextBox1.SetFocus
End Sub

 

[edmoor]

Zet een End If na de Exit Sub.

 

[benniehulshof]

Zet een End If na de Exit Sub.

Ik dacht dat ik dat naar al mijn testen gedaan had maar naar nu blijkt niet dus.
Dank voor je hulp.

 

[Haije]

Of maak er eens dit van (Exit Sub direct na Then)

Private Sub cmdDelete_Click()
Dim x As Long
Dim y As Long
If MsgBox("weet u dit zeker ?", vbYesNo, "Blank fields") = vbNo Then Exit Sub
x = Sheets("leden").Range("A" & Rows.Count).End(xlUp).Row
For y = 7 To x
If Sheets("leden").Cells(y, 8).Value = Txtbondsnummer.Text Then
Rows(y).Delete
End If
Next y

''''''''clear boxes''''''''
Me.TextBox1.Value = ""
Me.txtVoornaam.Value = ""
Me.txtachternaam.Value = ""
Me.txttt.Value = ""
Me.txtbroek.Value = ""
Me.txtteam.Value = ""
Me.txtsponsor.Value = ""
Me.txttelefoon.Value = ""




MsgBox "Speler is verwijderd ", vbInformation
TextBox1.SetFocus
End Sub

 

[edmoor]

Er is nog een punt waar je dat kan toepassen.
Wellicht ook meteen van juiste inspringpunten voorzien en overbodige lege regels verwijderen.

 

[Warme bakkertje]

En er is nog iets héél belangrijks vergeten.
Rijen verwijderen doe je altijd van beneden naar boven dus

For y = x to 7 Step -1

 

[emields]

zo kan het ook.