Pivot table macro

[nishpearl123]

Hi,

I have 10 pivot reports from one database.

Everytime i change the database, i have to individually "Refresh" all the Pivot.

Is there any shortcut?

Regards,

Ni****h

 

[texasalynn]

check out this post

 

[nishpearl123]

Hi,

i tried what you suggested. but first of all it on running the macro it gives an error "400".

and secondly my pivot table are in 10 different worksheets but from the code it appers that if would work on all pivot table in a single sheet.

kindly assist.

regards,

ni****h

 

[texasalynn]

non-programatic option is:

• Right click on each pivot table
• Select Table options
• Tick the 'Refresh on open' option.
• Click on the OK button

This will refresh the pivot table each time the workbook is opened.

here are a couple of other options with vba

Refresh all pivots in Workbook – Method 1
Sub PT_1()
For Each pt In ActiveWorkbook.PivotCaches
pt.Refresh
Next pt
End Sub
Refresh all pivots in Workbook – Method 2
Sub PT_2()
For Each sht In ActiveWorkbook.Worksheets
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
Next sht
End Sub