Filter op datum

[Jaminonp]

Beste,

Ik zou graag een kolom willen filteren met datums uit het verleden tot 14 dagen vooruit.
Dus alle datums die verlopen zijn tm vandaag + 14 dagen

ActiveSheet.ListObjects("Table_hnlmaa04_Week_A_Gage_Master").Range. _
AutoFilter Field:=33, Criteria1:=xlFilterNextWeek, Operator:= _
xlFilterDynamic

Alvast bedankt

Bekijk bijlage Datums.xlsx

Deze macro wil ik toevoegen aan een bestaande macro, dit is de reden dat ik deze manier wil toepassen.

 

[OctaFish]

Een voorbeeldbestandje doet wonderen, maar daarnaast is natuurlijk de vraag logisch waarom je dat niet met het ingebouwde filter doet maar met VBA.

 

[Jaminonp]

Ik heb een voorbeeldje toegevoegd.

 

[VenA]

Er staat en geen tabel en geen code in het voorbeeldbestandje.

Probeer het zo eens

Sub VenA()
  Sheets("Blad1").ListObjects(1).Range.AutoFilter 6, "<=" & Format(Date + 14, "m-d-yyyy"), xlAnd
End Sub

 

[Jaminonp]

Ik heb het toegevoegd in mijn bestaande macro maar op ene of andere manier wordt deze niet juist gefilterd op datum

Het is de bedoeling voor kolom36 te filter op alles met "1"en in kolom 33 te filteren alles datums van vandaag + 14 dagen en ouder.

Hier het gedeelte van de macro zoals ik hem ingevoegd

Workbooks.Open Filename:= _
"M:\Gage Usage Tracking\Gage.xlsm"

ActiveSheet.ListObjects("Table_hnlmaa04_GAGETRAK65_Gage_Master").Range. _
AutoFilter Field:=36, Criteria1:="1"

ActiveSheet.ListObjects("Table_hnlmaa04_GAGETRAK65_Gage_Master").Range. _
AutoFilter Field:=33, Criteria2:="<=" & Format(Date + 14, "m-d-yyyy")

Range("A1:BB10000").Select
Range( _
"Table_hnlmaa04_GAGETRAK65_Gage_Master[[#Headers],[Last_Calibration_Date]]"). _
Activate
Cells.Select
Selection.Copy

Alvast bedankt voor de reactie

 

[VenA]

Wat wordt er niet juist gefilterd op datum? Waarom is het voorbeeldbestand niet representatief? Waarom is de code in #5 incompleet?

Obv van het bestandje: er wordt gefilterd op twee kolommen en de gegevens van 1 kolom worden gekopieerd naar blad2

Sub VenA()
'c00 = "M:\Gage Usage Tracking\Gage.xlsm"
'With GetObject(c00)
  With Sheets(1).ListObjects("Table_hnlmaa04_GAGETRAK65_Gage_Master")
    .Range.AutoFilter 6, "<=" & Format(Date + 14, "m-d-yyyy")
    .Range.AutoFilter 2, "Temperatuur controller"
    .ListColumns("Current Location").Range.Copy .Parent.Parent.Sheets(2).Cells(1)
    .Range.AutoFilter
  End With
'End With
End Sub

 

[Jaminonp]

Bedankt

Bedankt voor de oplossing, ik ben hier mee verder geholpen.