Rijen verwijderen die in bepaalde kolommen 0 bevatten, hoe?

[Fouzia]

Beste mensen,

Ik ben bezig met duizenden rijen aan het filteren. Ik moet alle rijen met waarde = 0 in kolom O en waarde = 0 kolom P (beiden waarden in beide kolommen moeten 0 bevatten om de rij te mogen verwijderen) laten verwijderen. Ik heb de hele dag op google gezocht en veel codes geprobeerd maar kon niet de juiste code (in macro) vinden. Kan iemand hiermee helpen?

Alvas bedankt,


Groeten,

Fouzia.

 

[HSV]

Test het eens.

Sub hsv()
With ActiveSheet
    .Cells(1).CurrentRegion.AutoFilter 15, 0
    .Cells(1).CurrentRegion.AutoFilter 16, 0
    .AutoFilter.Range.Offset(1).SpecialCells(12).Delete xlUp
    .Cells(1).CurrentRegion.AutoFilter
 End With
End Sub

 

[Fouzia]

De vraag is opgelost..

Vriendelijk dank..

Groeten,

Fouzia.