Table of Contents
Believe me, if you are able to refresh all the pivot tables at once it can save a lot of your time. Yes, that’s right. Just think like this. Suppose, you have 10 pivot tables and to refresh a single pivot table it takes one sec.
10 Pivots = 10 Seconds
Just like you can automate to create a pivot table there are few ways that you can use it to automatically refresh it as well. In this post, We will share with you 3-simple ways which you can use it to refresh all the pivot tables in single click.
You can use “Refresh All” Button to Update all the Pivot Tables in the Workbook
The “Refresh All” button is a simple and easy way to refresh all the pivot tables in a workbook with a single click.
All you need to do it is Go to Data Tab ➜ Connections ➜ Refresh All.
Another Way is Automatically Refresh All the Pivots When You Open a Workbook
In case you want to refresh all pivot tables on opening a workbook you can use following steps to make one time to set up for that.
Below steps you can use it to make all the pivot tables auto refresh while opening a workbook.
- Select any of the pivot tables from your workbook.
- Right click on it and select “PivotTable Options”.
- Go To Data Tab ➜ Tick Mark “Refresh Data When Opening A File”.
- Click OK.
VBA Code (MACRO) to Update All the Pivot Tables in a Single Click
Yes, you can use VBA code as well to refresh all pivot tables. All you have to do is just use below-mentioned code.
Sub RefreshCustomPivotTable()
With ActiveSheet
.PivotTables.RefreshTable
End With
End SubAbove code will refresh all the pivot tables from your active worksheet and you can also assign this macro to a button to use in a single click.
If you want to refresh only specific Pivot Tables with VBA code
Below VBA code you can use to update specific pivot table.
Sub RefreshCustomPivotTable()
With ActiveSheet
.PivotTables("PivotTable1").RefreshTable
.PivotTables("PivotTable2").RefreshTable
.PivotTables("PivotTable3").RefreshTable
.PivotTables("PivotTable4").RefreshTable
.PivotTables("PivotTable5").RefreshTable
End With
End SubChange the name of the pivot tables as per your workbook. And, if you want to update these custom pivot tables every time when you open a workbook, change the name of the macro to auto_open.
Sub auto_open()
With ActiveSheet
.PivotTables("PivotTable1").RefreshTable
.PivotTables("PivotTable2").RefreshTable
.PivotTables("PivotTable3").RefreshTable
.PivotTables("PivotTable4").RefreshTable
.PivotTables("PivotTable5").RefreshTable
End With
End Sub
