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