Macro code to update Pivot table based on criteria

**romperstomper** · 09-30-2010, 04:08 AM

Hi,

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

**wish2excel** · 09-30-2010, 04:22 AM

I am so sorry for that, since i was posting it from my office, i totally for got about that. usually I do it from my home.
let me try it again

Option Explicit

Sub UpdatePT()
    ActiveSheet.PivotTables("PivotTable1").RefreshTable
    ActiveSheet.PivotTables("PivotTable2").RefreshTable
    ActiveSheet.PivotTables("PivotTable4").RefreshTable
    ActiveSheet.PivotTables("PivotTable5").RefreshTable
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month").CurrentPage = Range("MonthSelect") * 1
    ActiveSheet.PivotTables("PivotTable2").PivotFields("Month").CurrentPage = Range("MonthSelect") * 1
    ActiveSheet.PivotTables("PivotTable4").PivotFields("Month").CurrentPage = Range("MonthSelect") * 1
    ActiveSheet.PivotTables("PivotTable5").PivotFields("Month").CurrentPage = Range("MonthSelect") * 1
End Sub

I hope that was OKAY