Automatisch filteren d.m.v. een macro

[Pedro1975]

Hallo,

Ik heb een macro gemaakt voor het automatisch filteren van gegevens. Het filteren dat gaat allemaal prima, maar nu strand ik op het volgende.

De gegevens die gefilterd worden die wil ik verwijderen behalve de kopregel in rij 1. Nu gebruik ik de vba code Range(selection, selection.end(xldown)).select en vervolgens entirerow.delete. Het lukt mij dus niet om de eerst gefilterde rij te bereiken onder de kopregel, omdat dit bij elke filtering een ander rij nummer kan zijn.

wie kan mij hierbij helpen.

Met vriendelijke groet Peter

 

[HSV]

Test het op een kopie Peter.

sheets("data").autofilter.range.offset(1).entirerow.delete

 

[pixcel]

Als je een tabel gebruikt (Invoegen > tabel) dan ziet een macro om alle onzichtbare rijen te verwijderen er ongeveer zo uit:

    Dim lr As Excel.ListRow
    For Each lr In ActiveSheet.ListObjects(1).ListRows
        If lr.Range.EntireRow.Hidden = True Then lr.Range.EntireRow.Delete
    Next lr