Hele rij verwijderen levert fout op in blad 2

[JanBG]

Hallo,

In een adressen bestand staan de complete gegeven van de leden (Blad1). Om adres etiketten te genereren staan in Blad 2 alleen de adresgegevens.

Als ik via de knop "Lid verwijderen" een lid uitschrijf, gaat dat op Blad 1 prima, maar krijg ik op blad 2 een verwijzingsfout. Heb al allerlei zaken geprobeerd, maar kom er niet uit. Wat zie ik over het hoofd?

 

[edmoor]

Logisch toch?
De bron van de functie is verwijderd.
Verwijder in je VBA routine de regel ook uit Blad2.
Dan eerst uit Blad2 en dan uit Blad1.

De loop is ook overbodig.
Gebruik Range.Find

 

[JanBG]

Dank, werkt prima nu

 

[edmoor]

Voorbeeldje met de genoemde Range.Find
Tevens wordt dan de combobox opnieuw geladen:

Private Sub CommandButton1_Click()
    Dim c As Range
    
    If MsgBox("Correcte ingave?", vbYesNo + vbQuestion, "Kijk de gegevens na!") = vbNo Then Exit Sub
    Set c = Sheets("Blad1").Range("A:A").Find(CB_01.Value, , xlValues, xlWhole)
    If Not c Is Nothing Then
        Sheets("Blad2").Rows(c.Row).Delete
        Sheets("Blad1").Rows(c.Row).Delete
        CB_01.List = Sheets("Blad1").Range("A:A").Value
    End If
End Sub

 

[VenA]

Maak slim gebruik van jouw tabel en de combobox.

Private Sub CommandButton1_Click()
  If CB_01.ListIndex > -1 Then
    If MsgBox("Correcte ingave?", vbYesNo + vbQuestion, "Kijk de gegevens na!") = vbNo Then Exit Sub
    Sheets("Blad1").ListObjects(1).ListRows(CB_01.ListIndex + 1).Delete
    CB_01.List = Sheets("Blad1").ListObjects(1).DataBodyRange.Columns(1).Value
  End If
End Sub

Voor het wegschijven van een nieuw lid

Private Sub CommandButton3_Click()
  With Sheets("Blad1").ListObjects(1)
    .ListRows.Add.Range.Resize(, 8) = Array(TB_01.Value, CDate(TB_02.Value), Month(CDate(TB_02.Value)), TB_04.Value, TB_05.Value, TB_06.Value, TB_07.Value, TB_08.Value)
    .Range.Sort .Range.Cells(1), , , , , , , xlYes
  End With
End Sub

Blad2 wordt dmv Power Query bijgewerkt na het sluiten van het formulier.