VBA script to Filter Pivot Table Dates

[EaZyCheaZ]

I am trying to come up with a way to fitler a pivot table by date the same way i can with the filter dropdown. I have a table that filters using the TODAY feature in the filter dropdown undet date filters. I would like to assign a vba to a pair of buttons for easy switching between the "Today" date filter and the "Yesterday" feature so i no longer have to pull it up from teh filter dropdown.

 

[EaZyCheaZ]

http://www.pivot-table.com/excel-pivot-tables/pivot-table-date-filters
shows what i am talking about with the filter menus in the "Filter for a Specific Date Range" Section of the page.

 

[EaZyCheaZ]

Bump

 

[EaZyCheaZ]

rebump

 

[EaZyCheaZ]

Sub LastMonth()
Dim pt As PivotTable
Dim ptF As PivotField

Application.ScreenUpdating = False

Set pt = ActiveSheet.PivotTables("TABLENAME")
With pt
.ManualUpdate = True
.PivotCache.Refresh
For Each ptF In .PivotFields
If ptF.DataType = xlDate And ptF.Orientation <> xlHidden Then
With ptF
.ClearAllFilters
.PivotFilters.Add Type:=xlDateLastMonth
End With
End If
Next ptF
.ManualUpdate = False
End With

Application.ScreenUpdating = True
End Sub

Thanks to all who viewed but i found my own answer...oh well...i'll still come here for other answers but i doubt i'm posting again