foutmelding 1004

[appie36]

In de bijlage een voorbeeld van wat mijn foutmelding veroorzaakt.

Als een regel wis in de tabel met de wis knop, gaat deze weg zoals gewenst maar krijg dan en foutmelding 1004.

Is dat te repareren of te omzeilen zodat je er niks van merkt?

Mvg,
Ab

 

[edmoor]

Dat kan zo:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("A2:A25")) Is Nothing Then Target.Offset(, 1) = ""
    On Error GoTo 0
End Sub

 

[AHulpje]

Doordat er een rij verwijderd wordt treedt er een Worksheet_Change gebeurtenis (event) op.
De target van dat event is een rijnummer, en daar kun je geen offset van maken.
Je kunt het uitvoeren van de Worksheet_Change event tijdelijk uitschakelen in de CommandButton1_Click() event.
Dat doe je met Application.EnableEvents = False, vergeet niet om Application.EnableEvents weer True te maken.
Zie: https://learn.microsoft.com/en-us/office/vba/api/excel.application.enableevents

De fout negeren kan ook, zie edmoor's oplossing.

 

[edmoor]

Volgens AHulpje zo, en is beter:

Private Sub CommandButton1_Click()
    If MsgBox("Weet je het zeker dat je de goed regel hebt geselecteerd om te verwijderen?", vbYesNo + vbQuestion, "Formulier Wissen") = vbYes Then
        Application.EnableEvents = False
        Rows(ActiveCell.Row).Delete
        Application.EnableEvents = True
    End If
End Sub

 

[AHulpje]

[Zout op slak]
En misschien beter:

antwoord = MsgBox("Weet je zeker dat je de goede regel hebt geselecteerd om te verwijderen?", vbYesNo + vbQuestion, "Regel verwijderen")

[/Zout op slak]

 

[appie36]

Bedankt voor de informatie, het werkt. En mooi kort ook. Vaak vind je voorbeelden van codes die onnodig lang zijn.(kom ik dan later achter)