Advanced pivot table filtering VBA

[deadlyliquidx]

Good Morning All!
So I have a pivot table connected to a database.
Now I have three pivot tables, one for Year to date, month to date, and week to date.
Now its a huge database so it takes a good half an hour for each pivot to update.
Problem is that the person has to come back to the sheet to do MTD filter and then again after the long wait to the WTD Filter.
Is there anyway to set it so that the person can choose the dropdown filters for all three pivot tables first and then click a button (macro) so that it refreshes each filter based on the chosen dropdowns one after the other automatically.
Then someone can literally choose the filters and go grab a cup of coffee or something instead of waiting on one to finish after another.

This would be super helpful.
Thanks!!!

 

[mrmmickle1]

Depending on what version of Excel your working on you may want to look into using PowerPivot or refining the data that is being pulled by creating a database query. This would do some of the work for you.

This is how to set Pivot Table filters in VBA:

   [COLOR=#008000]'Put a dropdown in A1[/COLOR]
   MyFilter = Range("A1").Value
   ActiveSheet.PivotTables("PivotTable1").PivotFields("Month").CurrentPage = MyFilter

 

[deadlyliquidx]

Depending on what version of Excel your working on you may want to look into using PowerPivot or refining the data that is being pulled by creating a database query. This would do some of the work for you.

This is how to set Pivot Table filters in VBA:

   [COLOR=#008000]'Put a dropdown in A1[/COLOR]
   MyFilter = Range("A1").Value
   ActiveSheet.PivotTables("PivotTable1").PivotFields("Month").CurrentPage = MyFilter

That didnt do it, I just literally need to tell my pivot table to not update when I choose a new dropdown filter. I can figure out the rest of the code from there.
Like something on the private sub worksheet Code to tell the sheet not to allow any pivot updates until told to do so.

 

[deadlyliquidx]

bumpity bump