Rijen verwijderen die niet aan voorwaarde voldoen

[1965Peter]

Hallo,

Ik heb een bestand waar ik alle rijen wil verwijderen als deze niet voldoen aan de tekst "#N/B" of Niet actief meer" uit kolom T.
Het bestand is variabel, Rij 1 (A) bepaald het aantal rijen. vanaf regel 2.
Dus in het voorbeeld bestand moeten er 2 regels overblijven.

Alvast bedankt voor jullie hulp

 

[LucHeyndrickx]

Daarvoor heb je volgens mij geen VBA voor nodig.
Zet er een autofilter op... selecteer op de rijen die je wil verwijderen, selecteer deze rijen (je hoeft ze niet één voor één te selecteren), en verwijder ze.

 

[1965Peter]

De VBA is onderdeel van een controle, niet een eenzijdig handeling

 

[JEC.]

Sub j()
With Sheets(1).Cells(1, 20).CurrentRegion
 .AutoFilter 1, "<>Niet actief meer", xlAnd, "<>#N/A"
 .Offset(1).SpecialCells(12).EntireRow.Delete
 .AutoFilter
End With
End Sub

 

[1965Peter]

JVeer bedankt, hij doet wat ie moet doen:thumb: