Excel VBA Video Training/ EXCEL DASHBOARD REPORTS

Refresh Pivot Table via VBA

Refresh Pivot Table via VBA/Update Pivot Table With VBA

See Also: Hide/Show Pivot Table Field Items . Got any Excel/VBA Questions? Free Excel Help

Refresh Pivot Tables

Those of you that use Pivot Tables will be well aware of their power. However, one draw-back can be that you can only refresh the PivotTables automatically by setting it refresh on open via the PivotTable Options. Lets look at some ways we can refresh all, or chosen Pivot Tables.

The code below here can be called (Run) via the Worksheet_Activate Event. To get to the Private Module of any Worksheet right click on the sheet name tab and choose View Code. In you would place code like shown below;

Private Sub Worksheet_Activate()
Run "PivotMacro"
End Sub

Refresh a Single Pivot Table

Sub PivotMacro()
Dim pt As PivotTable
Set pt = ActiveSheet.PivotTables("MyPivot")
pt.RefreshTable
End Sub

Refresh all Pivot Tables in a Worksheet

Sub AllWorksheetPivots()
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
End Sub

Refresh Chosen Pivot Tables in a Worksheet

Sub ChosenPivots()
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
Select Case pt.Name
Case "PivotTable1", "PivotTable4", "PivotTable8"
pt.RefreshTable
Case Else
End Select
Next pt
End Sub

Refresh All Chosen Pivot Tables in a Workbook

Sub AllWorkbookPivots()
Dim pt As PivotTable
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.RefreshTable
Next pt
Next ws
End Sub

Excel Dashboard Reports & Excel Dashboard Charts 50% Off Become an ExcelUser Affiliate & Earn Money

Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALL purchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to [email protected] 31 days after purchase date.

Instant Download and Money Back Guarantee on Most Software

Excel VBA Video Training/ EXCEL DASHBOARD REPORTS

Excel Trader Package Technical Analysis in Excel With $139.00 of FREE software!

Microsoft � and Microsoft Excel � are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft