Code om data te verwijderen

[jos en helene]

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

[bakerman]

@dotchiejack

 

Er zit een fout in je code.

 

je had staan For k = 1 to 3 , maar dan wordt de Achternaam niet meegenomen in je nieuwe ListBoxlijst dus ..

 

Private Sub T_09_Change()
On Error GoTo oops
lijst = [leden_tbl].Value
        arg = 0
        For i = 1 To UBound(lijst)
            If InStr(1, lijst(i, 2), T_09, vbTextCompare) > 0 Then
                arg = arg + 1
            End If
        Next i
        ReDim nwlijst(arg - 1, 3)
        arg = 0
        For i = 1 To UBound(lijst)
            If InStr(1, lijst(i, 2), T_09, vbTextCompare) > 0 Then
                For k = 1 To 4
                    nwlijst(arg, k - 1) = lijst(i, k)
                Next k
                arg = arg + 1
            End If
        Next
        LB_00.List = nwlijst
oops:
End Sub

 

21 april 2020 aangepast door bakerman
typo

[jos en helene]

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 

[jos en helene]

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

[jos en helene]

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

[jos en helene]

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

[jos en helene]

Sgoed,zien we morgen verder

Prettige avond gewenst

 

Jos

[jos en helene]

Hallo Philiep

 

Ik zie dat je weer on-line bent.

Moeten we nog verder kijken of zeg je het is genoeg geweest

[jos en helene]

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

[jos en helene]

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