Macro VBA - filter, ingevulde rijen verwijderen

[Liesbeth354]

Goedemiddag,

Er is een bestand met een header. Er is een kolom met de naam 'Akkoord' (9e kolom). Op die kolom staat een filter op "Ja" en "Nee".
Ik ben nu een macro aan het schrijven. Een onderdeel daarvan is om de rijen te verwijderen waarin Ja of Nee staat in die kolom.
Het kan dus zijn dat rijen 3, 6-7, 10, en 14 bijvoorbeeld verwijderd moeten worden.

Ik heb nu de VBA code:
Rows("3:14").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp

Dit zorgt er dus echter voor dat alle rijen verwijderd worden, niet alleen de Ja/Nee rijen.

Alvast bedankt voor enige hulp!

 

[VenA]

Als de gegevens in A1 beginnen wat in jouw bestand waarschijnlijk niet het geval is.

Sub VenA()
With Sheets(1).Cells(1).CurrentRegion
  .AutoFilter 9, "Ja", xlOr, "nee"
  .Offset(1).EntireRow.Delete
  .AutoFilter
End With
End Sub