knop en formulier om te wissen

[bta]

Dag excellers,
Ik heb bijgaand bestand met mijn minimale kennis van vba kunnen aanpassen tot wat het nu is. Ik wil er echter ook graag nog een knop op met daarachter een scherm waarbij op naam gezocht kan worden en dat de gevonden naam met bijbehorende record dan kan worden gewist. Kan iemand mij daar bij helpen?
Eeuwige dank is verschuldigd
Gr. bta
Bekijk bijlage telefoonlijst akf.xls

 

[RvanGalenLast]

bta,

Wellicht zoek je iets als dit:

Sub NaamVerijderen()

Dim Naam As String
Dim r As Range
Dim Lr As Long
Dim p As Variant

    Lr = Cells(Rows.Count, "A").End(xlUp).Row
    Set r = Range("C2:C" & Lr)
    Naam = InputBox("Typ de naam die verwijderd moet worden", "Naam verwijderen")
    
    For Each p In r
        If p = Naam Then
            p.EntireRow.Delete
        End If
    Next

End Sub

Groet,

Ronald