Automatisch rijen verwijderen aan de hand van criteria in kolom M

[Arito]

Hoi,

Ik heb een lijst (zie voorbeeld) die in werkelijkheid een stuk langer is. Ik wil dat de regels met een 0 in kolom M verwijderd worden. Is het mogelijk hier een macro voor te maken?

bvd,

 

[snb]

Sub...()
  With Thisworkbook.sheets(1).columns(13)
    .replace "0",""
    .specialcells(xlcelltypeblanks).entirerow.delete
  End With
End Sub

 

[Arito]

Ik ga het vanavond proberen. Alvast bedankt.

 

[Arito]

Ik heb de macro gekopieerd maar het werkt niet goed. Ik heb het bestand toegevoegd als bijlage.

Als ik de macro run (FILTER2) dan veranderd de formule in kolom M van =IF(F6="SM",0,1) naar =IF(F6="SM","",1). En vervolgens loopt de macro vast op de regel: .SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Enig idee wat er fout gaat?

bvd