Refresh a date (month) on Several Pivot Tables

[l.niehues]

Hi there,

A created a lot of pivot tables. I tried to record a macro in order to refresh the pivot table and also the pivot graphs, but i dont know how to link a button to refresh the tables linked to a required month in a cell. The macro is shown bellow:

Sub Atualizar()
'
' Atualizar Macro
'

'
ActiveSheet.PivotTables("Tabela dināmica8").PivotFields("Data").ClearAllFilters
ActiveSheet.PivotTables("Tabela dināmica8").PivotFields("Data").PivotFilters. _
Add Type:=xlAllDatesInPeriodSeptember
ActiveSheet.PivotTables("Tabela dināmica1").PivotFields("Data").ClearAllFilters
ActiveSheet.PivotTables("Tabela dināmica1").PivotFields("Data").PivotFilters. _
Add Type:=xlAllDatesInPeriodSeptember
ActiveSheet.PivotTables("Tabela dināmica2").PivotFields("Data").ClearAllFilters
ActiveSheet.PivotTables("Tabela dināmica2").PivotFields("Data").PivotFilters. _
Add Type:=xlAllDatesInPeriodSeptember
End Sub


If i modify the moth to another inside the macro, it works. But i want to type a specific moth in a cell a push a button to refresh.

Thank you so much.

Leandro

[BrownBoy]

Just want to ask, but doesn't the "Refresh All" button work this? Have you tried that?

[l.niehues]

Hi BrownBoy,

Thank you for reply.

No, it doesnt work.

I have attached the file. if possible, go until the Plan11, you are gonna see what i mean. There are 12 pivot tables and each one has a pivot graph. I want to refresh all the tables, just typping a required month in the cell C5, and push the button refresh to update.

Planilha de controle - TESTE MACRO - Leandro VBA 2.zip

Thanks again.

Leandro

[BrownBoy]

What it sounds like you want is a quick way to filter your data by what month is typed into the box in Sheet "Plan11". If this is what your after, it would be more efficient to incorporate pivot table slicers into your workbook.

See the attached. I highlighted the cells I changed or added in yellow. Not major changes, but helped me. The file was too big so I deleted the sheets that I did not need in order to get my point across. This is the best I have to offer, I couldn't come up with the code, maybe someone else can help you with that.

[l.niehues]

Hi BrownBoy,

Thank you again.

I have an old version (2007) in my own computer. I will try to make what you said in my work computer on monday, there is a 2010 version. I will keep you updated what happens.

[l.niehues]

Hi BrownBoy,

I have tested the workbook. It's enough. Perfect!

Thank you for help.

Best regards.

Leandro