Hi, I am trying to create a script that will change the filtered date to the date a week ago when I cue the macro. Posted below is the code I came up with, but it is giving me a run time error. Any suggestions would be much appreciated. Sub PivotTableFilter() Dim PvtTbl As PivotTable Set PvtTbl = Worksheets("CWTPIVOT").PivotTables("PivotTable1") PvtTbl.PivotFields("SUM_END_DATE").PivotFilters.Add Type:=xlDateLastWeek End Sub

If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

Change Pivot Filter

Thread starter mdo8105
Start date Jun 22, 2016
Tags

filter macro pivot table 2013 vba & excel 2013

mdo8105

Board Regular

Jun 22, 2016

Hi,

I am trying to create a script that will change the filtered date to the date a week ago when I cue the macro. Posted below is the code I came up with, but it is giving me a run time error. Any suggestions would be much appreciated.

Code:

Sub PivotTableFilter()

Dim PvtTbl As PivotTable
Set PvtTbl = Worksheets("CWTPIVOT").PivotTables("PivotTable1")
PvtTbl.PivotFields("SUM_END_DATE").PivotFilters.Add Type:=xlDateLastWeek
 
End Sub