-
Change Pivot Table Date Filter to Cell Reference
Hello
I need to do something really simple where I have many many pivot table in my report that required to updated every day
This involved changing the date filter
I have seen many posts on this however I always have issue with the identifying the correct PivotFields.
The data is obtained from Cube database and seems to have an array filter date.
Below is an example code where i just do the macro recording...
End goal is to change the date filter from [20-FEB-21] to a cell refence at H2
Thank youu
Sub Change_Date()
'
' Change_Date Macro
'
'
Sheets("Truck Usage").Select
ActiveSheet.PivotTables("Pivot_TruckHourly").PivotFields("[TIME].[TIME].[Year]" _
).VisibleItemsList = Array("")
ActiveSheet.PivotTables("Pivot_TruckHourly").PivotFields( _
"[TIME].[TIME].[Month]").VisibleItemsList = Array("")
ActiveSheet.PivotTables("Pivot_TruckHourly").PivotFields("[TIME].[TIME].[Day]") _
.VisibleItemsList = Array("[TIME].[TIME].[Day].&[20-FEB-21]")
End Sub
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules