Advanced Filter

[Ralf1991]

Beste Helper,

Ik heb een probleem met het volgende:

Ik wil een macro opnemen met een advance filter die een bereik heeft van cel A1:A11. Dit betekent dat niet altijd alle cellen zijn gevuld in deze range. Doordat niet altijd alle cellen zijn gevuld werkt mijn advanced filter niet. De advance filter werkt alleen tot het bereik waarin de cellen zijn gevuld.

Hoe los ik dit op?

Bedankt.

 

[Elsendoorn2134]

Ralf,

Voor een advanced filter heb je drie bereiken nodig,
- Een bron range, de tabel waar je de gegevens uit wil halen.
- Een criterium range, waar staat welke gegevens je wil hebben.
- Een doel range, de plaats waar je de gegevens wil hebben.
Ik vermoed dat je de criterium range bedoeld.
Hiervoor zul je een dynamische range moeten maken zoiets als

CriteriumRange = Range("A1:"& Range("A1").End(xlDown).Address) .

Veel Succes.

 

[Ralf1991]

Ik ga er mee aan de slag, bedankt!

 

[snb]

Laat je niks wijsmaken:

Sub tst()
    Cells(1).CurrentRegion.AdvancedFilter 1, , , True
End Sub