Jeg forstår ikke, du får den fejl
Den her makro er indspillet...
Men først- I kolonne A skrev jeg først tallene 1 - 10 nedad.
- Så kopierede jeg tallene og indsatte dem til og med kolonne E.
- Så slettede jeg nogle af tallene i kolonne A, så der blev tomme pladser.
- Så mærkede jeg række 1 op og lavede "Filter" på hele rækken.
- Så filtrerede jeg kolonne E, til kun at vise 10-tallet.
Herefter startede jeg "Indspil makro".
- Så fjernede jeg filtreringen i kolonne E, så alle rækker åbnede.
- Så filtrerede jeg kolonne A, så de "tomme" ikke blev vist.
- Og så afsluttede jeg indspilningen med "Stop indspilning".
Så åbnede jeg makroen.
- Kopierede koden og indsatte den på en button på siden og så kører den uden problemer.
ActiveSheet.Range("$A$1:$E$65000").AutoFilter Field:=5 ActiveSheet.Range("$A$1:$E$65000").AutoFilter Field:=1, Criteria1:="<>" |
Jeg har ændret lidt i koden, ved at sætte den til $E$65000, så den filtrere ned til række 65.000.
Hvis du vil udvide eller reducere antal kolonner der skal filtreres, skal du selv ændre $E$, til den kolonne / det bogstav, der skal filtreres til.
Og så skal du sætte Field:=5 til det antal kolonner der er henad.
Det virker uden problemer for mig