• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Autofilter en lege regels

Status
Niet open voor verdere reacties.
B

Basbrommer

Gebruiker
Lid geworden
3 mei 2005
Berichten
101
Hallo,

Ik wil een selectie maken via een macro en de autofilterfunctie.

Er moet gefilterd worden op datum wat per keer kan veranderen. De datum zit in BeginWeek.

Tot nu toe werkt dit wel;

ActiveSheet.Range("$B$4:$AL$1001").AutoFilter Field:=37, Criteria1:=">=" & BeginWeek, Operator:=xlAnd, Criteria2:="<=" & BeginWeek + 7

Maar als ik daarbij ook nog de lege regels erbij wil hebben dan kom ik er niet uit.
Wie kan me daarbij helpen?

Groet,
Bas
 
probeer dit eens:

Code: 
ActiveSheet.Range("$B$4:$AL$1001").AutoFilter Field:=37, Criteria1:=Array(">=" & BeginWeek, "<=" & BeginWeek + 7), Operator:=xlOr, Criteria2:=""
 
Ik wil het resultaat wel eens zien in een Excel-bestand.
 
Ik ook, want zover ik het heb geprobeerd gaat het zo niet werken. :(

zo wel ?

Code: 
With ActiveSheet
    .Range("$B$4:$AL$1001").AutoFilter Field:=37, Criteria1:=">=" & beginweek, Operator:=xlAnd, Criteria2:="<=" & beginweek + 7
    .Range("$AL$5:$AL$1001").SpecialCells(4).EntireRow.Hidden = False
End With
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan