Rijen met specifieke waarde verwijderen

[frankh1]

Hallo,

ik wil in kolom F van mijn werkblad zoeken op waarde 2222 en vervolgens die rijen waarin in kolom F de waarde 2222 staat verwijderen. Kan iemand mij helpen?

Alvast bedankt!

 

[Warme bakkertje]

Sub test()
  On Error Resume Next
  Do
    With Sheets("Blad1").Columns(6).Find(2222, , xlValues, xlWhole).EntireRow
       .Delete
     End With
  Loop Until Err.Number > 0
End Sub

 

[frankh1]

waar kan ik de code ingeven +natuurlijk bedankt!!

 

[Warme bakkertje]

ALT-F11 >> Invoegen >> Module >> Code plakken

 

[frankh1]

hmmm het is de eerste keer dat ik dit gebruik. Ik heb hem geplakt en wat moet ik dan vervolgens doen?

 

[Warme bakkertje]

Zet de cursor ergens in de code en druk F5