rij kopieeren naar tab "Totalen" als cel voldoet aan waarde

[Lisette2016]

Hallo,

Hoe kan ik rijen verwijderen die niet voldoen aan het woord "Totaal" in bereik C8:C71?

Alvast bedankt

 

[HSV]

Met een filtertje erop, mits geen lege tussenliggende cellen in dat bereik.

Sub hsv()
With Range("c8:c71")
 .AutoFilter 1, "<>totaal"
 .Offset(1).EntireRow.Delete
 .AutoFilter
End With
End Sub

 

[Lisette2016]

Dankje Harry, werkt !!!