bereik aanpassen

[RichardTotal]

Ik wil de onderstaande range AutoFilter tot 1000 uitbreiden maar op een of andere manier gaat hij niet verder dan $Q$131 terwijl ik $Q$1000 graag wil hebben.
Onderstaand script die ik momenteel gebruik tot regel 71

Private Sub Worksheet_Activate()
ActiveSheet.Range("$A$2:$Q$71").AutoFilter Field:=6, Criteria1:="<>"
End Sub

Wie kan mij hierin ondersteunen!

Alvast bedankt!

Mvg,

Richard

 

[spaarie]

Wat is de achterliggende gedachten hiervan?
Waarom zou je een vast bereik willen aangeven?

Kan ook:

Private Sub Worksheet_Activate()
    Usedrange.AutoFilter 6, "<>"
    'of cells(2).currentregion.autofilter 6, "<>"
End Sub

 

[RichardTotal]

Bedankt en sorry voor late reactie!!
Ben er al uit gekomen met blijven oefenen!!

Mvg,

Richard