Dezelfde waarde verwijderen.

[N12047]

Hallo allemaal,

Kunne jullie mij met onderstaande helpen?

Als ik in kolom vanaf F2 een waarde invul, zou ik graag dat dezelfde waarde opgezocht word in kolom A en daar dan uit verwijderd wordt.
Deze cel hoeft alleen maar leeg gemaakt te worden. De regel moet niet verwijderd worden.

Zie het voorbeeld bestandje.

 

[RvanGalenLast]

Beste,

Zoiets als onderstaand?

Sub Ontdubbelen()
Dim i As Integer
Dim r As Range

    Set r = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
    For i = 2 To Cells(2, 6).End(xlDown).Row
        r.Find(Cells(i, 6)).ClearContents
    Next
End Sub

 

[N12047]

Het werkt precies zoals ik gevraagd heb.
Dank je wel.

Ik zet de vraag op opgelost.

Kan de knop opgelost niet vinden?