jos en helene

Vraag is opgelost

Philiep.zip

Is onderweg

Philiep Ik heb alles zonder lidnummer verwijdert maar het probleem blijft. In het tabblad Proeven blijven de gegevens staan. Ook het tabblad Stamkaart doet dit maar dat is geen probleem

Nou,dat berust dan op een misverstand. Nee, dat heb ik nog niet gedaan. Ik zal het bestand eens voor de helft weggooien ipv overal nummers in te voeren. Je hoort van me

Hallo Philiep Ik zie dat je weer on-line bent. Moeten we nog verder kijken of zeg je het is genoeg geweest

Sgoed,zien we morgen verder Prettige avond gewenst Jos

Wat je verteld had ik al gedaan . Maar die gegevens blijven in de betreffende sheets staan

Ik heb het inderdaad gezien Wat opvalt is dat er gegevens blijven staan op de sheet Proeven kolom B en E t/m J Stamkaart Kolom E t/m F en in lb_01 op het formulier ledenkaart

Hey Philiep Ik zie het nu pas Ik ga er mee aan de slag Bedankt dat je me even gewaarschuwd hebt,ik had het echt niet gezien. Jos

Dank je wel Philiep. Hoe is het met je. Ik begreep van anderen minder briljant. Tot zover bedankt voor het oplossen van mijn probleem. Het kan zijn dat ik iets fout doe maar volgens mij verwijderd hij de kolommen C t/m F uit de sheet Lijsten want die zie ik niet meer ( dus niet de gezochte ruiter) en natuurlijk de stamkaart kolommen

Hallo Ik ben in het verleden erg geholpen door Dotchiejack. Hij heeft voor mij iets geweldigs gemaakt alleen ik kan geen records verwijderen. Ik heb al van alles geprobeerd maar het lukt me niet. Zie bijgevoegde code. Misschien dat een van de slimmerikken hier een oplossing voor heeft. Private Sub CommandButton2_Click() Set ws = Worksheets("Lijsten") Set Rng = ws.Range("D3:D" & ws.Cells(Rows.Count, "D").End(xlUp).Row) Set fnd = Rng.Find(What:=LB_00.Value, LookIn:=xlValues, LookAt:=xlWhole) If LB_00.ListIndex = -1 Then MsgBox "Kies eerst een ingave in de lijst!", vbCritical, "Ingave?" LB_00.SetFocus Exit Sub End If If MsgBox("Ingave verwijderen, ben je zeker?", vbQuestion + vbYesNo, "Bevestig wissen!") = vbNo Then Exit Sub MsgBox "De ingave is verwijderd!", vbInformation, "Klaar" End Sub Ledenkaart.xlsm