PDA

View Full Version : Filter date from multiple Pivot tables



adamsm
04-26-2010, 10:33 AM
Hi Anyone,

I'm Having the following code to filter date from a given range from my pivot table. It works fine with one pivot table.

When I run the code I want dates to be filtered from the second pivot table.

Can anyone help me to modify this code

Thanks in advance


Sub FilterPivotDates()
With ActiveSheet.PivotTables("PivotTable1")
' Remove any existing filter
.ClearAllFilters
' Add a filter for the date range
.PivotFields("Date").PivotFilters.Add Type:=xlDateBetween, _
Value1:=CStr(Range("H1")), Value2:=CStr(Range("H2"))
End With

End Sub