Beste Helpmij'ers,
Ik heb een excel file met 2 bladen
Blad 1 = Data (hierop worden rijen verwijderd)
Blad 2 = Criteria (als de rijen voldoen aan criteria, moet de rij blijven. Anders verwijderen)
Met behulp van de autofilter kan ik 'snel' rijen verwijderen.
En als ik .Autofilter 1, = "<>111-1" gebruik, blijft alleen 111-1 over. Perfect
Maar onderstaande code werkt niet. Hij verwijdert alle rijen.
Hoe kan ik de lijst met criteria toevoegen, zonder alles 1 voor 1 hoeven te typen?
Dankjewel!
Ik heb een excel file met 2 bladen
Blad 1 = Data (hierop worden rijen verwijderd)
Blad 2 = Criteria (als de rijen voldoen aan criteria, moet de rij blijven. Anders verwijderen)
Met behulp van de autofilter kan ik 'snel' rijen verwijderen.
En als ik .Autofilter 1, = "<>111-1" gebruik, blijft alleen 111-1 over. Perfect
Maar onderstaande code werkt niet. Hij verwijdert alle rijen.
Code:
Sub DeleteRowIf()
Dim MyRange As Range
Set MyRange = Sheets("Lijst X").Range("A2")
Set MyRange = Range(MyRange, MyRange.End(xlDown))
With Sheets("Data BE").Cells(4, 1).CurrentRegion
.AutoFilter 1, Application.Transpose("<>MyRange")
.Offset(1).EntireRow.Delete
.AutoFilter 1
End With
End Sub
Hoe kan ik de lijst met criteria toevoegen, zonder alles 1 voor 1 hoeven te typen?
Dankjewel!