Ik heb een vraag,
Kan iemand mij helpen met het volgende.
VenA heeft deze macro gemaakt. En werkt als een tierelier:thumb::thumb::thumb:
Sub VenA()
With Sheets(1).Cells(1).CurrentRegion
.AutoFilter 3, "<>" & Sheets(1).Cells(, 3)
.Offset(1).EntireRow.Delete
.AutoFilter
End With
End Sub
Ik heb nu 31 tabbladen (1,2,3, enzovoort).
Is het zo te maken dat de macro op alle 31 tabbladen hetzelfde doet?
Ik hoop dat het "makkelijk" te veranderen is.
Anders moet ik elke maan 31 keer dat kunstje doen. Dat kan ook maar heeft niet mijn voorkeur...
Groeten Depant
Kan iemand mij helpen met het volgende.

VenA heeft deze macro gemaakt. En werkt als een tierelier:thumb::thumb::thumb:
Sub VenA()
With Sheets(1).Cells(1).CurrentRegion
.AutoFilter 3, "<>" & Sheets(1).Cells(, 3)
.Offset(1).EntireRow.Delete
.AutoFilter
End With
End Sub
Ik heb nu 31 tabbladen (1,2,3, enzovoort).
Is het zo te maken dat de macro op alle 31 tabbladen hetzelfde doet?
Ik hoop dat het "makkelijk" te veranderen is.
Anders moet ik elke maan 31 keer dat kunstje doen. Dat kan ook maar heeft niet mijn voorkeur...
Groeten Depant