Date Filter via Code?

[UpTheArgyle]

Hi
I have a pivot table I use daily - within the pivot I use date filter Between 2 dates.

The 2 dates I use are always in 2 separate cells on the same sheet.

Is it possible some code to pick the 2 dates up from the sheet?

Recording a macro (below) I get this but obviously the date are the dates I manually enter.

ActiveSheet.PivotTables("PivotTable5").PivotFields("calendar_date"). _
PivotFilters.Add Type:=xlDateBetween, Value1:="01/04/2011", Value2:= _
"24/06/2011"

Thanks

 

[VoG]

Try like this - change A1 and A2 to suit

ActiveSheet.PivotTables("PivotTable5").PivotFields("calendar_date"). _
PivotFilters.Add Type:=xlDateBetween, Value1:=Range("A1").Value, Value2:=Range("A2").Value

 

[baitmaster]

good God, not Plymouth Argyle I hope...

name two cells Date1 and Date2, or whatever else you want

ActiveSheet.PivotTables("PivotTable5").PivotFields("calendar_date"). _
PivotFilters.Add Type:=xlDateBetween, Value1:=Range("Date1"), Value2:= Range("Date2")

 

[UpTheArgyle]

whats green and white and slides down the table.............yes its Plymouth Argyle !!

Thanks for the replies gents