Ga naar inhoud

Welkom op PC Helpforum!
PC Helpforum helpt GRATIS computergebruikers. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen.

Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!


jos en helene

Code om data te verwijderen

Aanbevolen berichten

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

Deel dit bericht


Link naar bericht
Delen op andere sites

Hoi Jos,

Zie bijlage. (excelfile en steekkaarten mapje in het zipje)

Nu heb ik tenminste gezien dat je zelf iets geprobeerd hebt, anders had ik je niet meer geholpen.😉

Een opmerking, hier op forum hebben we een regel, als je dubbelpost zoals jij hebt gedaan op Helpmij moet je hier de link hier vermelden.

regeltje:

Quote

- Indien onze medewerkers vaststellen dat een vraag op meerdere fora is gepost, kan uw vraag tijdelijk en/of definitief "on hold" worden gezet. Dubbel werk voor onze "vrijwilligers" en bovendien kunnen verschillende adviezen elkaar doorkruisen. Geen goede methode om een probleem op te lossen. Onze medewerkers zullen u van deze tijdelijke en/of definitieve blokkering op de hoogte stellen.
 

Als er vragen zijn hoor ik het wel.

 

 

Proeven.zip

Deel dit bericht


Link naar bericht
Delen op andere sites
Geplaatst: (aangepast)

@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

 

aangepast door bakerman
typo

Deel dit bericht


Link naar bericht
Delen op andere sites

  • Topicstarter
  •    0

    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 

    Deel dit bericht


    Link naar bericht
    Delen op andere sites

  • Topicstarter
  •    0

    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

    Deel dit bericht


    Link naar bericht
    Delen op andere sites
    Gast
    Dit topic is nu gesloten voor nieuwe reacties.

    Logo

    OVER ONS

    PC Helpforum helpt GRATIS computergebruikers sinds juli 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!

    ×
    ×
    • Nieuwe aanmaken...