Zoeken en verwijderen

[JosEindhoven]

Ik heb een bestand ledenkaart. Op het formulier zit een button lid verwijderen. Dan word het formulier verwijderen geopend. In de linker listbox kan ik een ruiter verwijderen. Hij verwijdert hem alleen uit de sheet leden maar niet uit de sheet proeven waar de naam meerdere keren kan voorkomen. Kan iemand mij misschien aan de vba code helpen cq de bestaande code aanpassen.

 

[VenA]

Misschien hier even kijken? Of er in ieder geval op reageren Jos? https://www.helpmij.nl/forum/showthread.php/953367-Code-voor-verwijderen-data

 

[JosEindhoven]

Ik dacht dat ik daar op gereageerd had maar niet dus. Zal het maar snel alsnog doen

 

[edmoor]

Zet dit stukje er extra bij:

Application.DisplayAlerts = False
With Sheets("Proeven")
    .Range("A1").AutoFilter Field:=1, Criteria1:="435642", VisibleDropDown:=False
    .UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count - 1).Rows.Delete
    .ShowAllData
End With
Application.DisplayAlerts = True

Waar "435642" dan het geselecteerde lidnummer is.

 

[huijb]

Hier verder deze gaat dicht https://www.helpmij.nl/forum/showthread.php/953367-Code-voor-verwijderen-data