Pivot cache update

[sms2luv]

Hi
I have a normal table(a) which gets data using getpivotdata
From other 4 pivot table

I made a new pivot from the normal table(a).
I am using below VBA code to refresh all pivot tables.

Private Sub refreshdata_Click()

Dim PC As PivotCache

For Each PC In ActiveWorkbook.PivotCaches

PC.refresh

Next PC

End Sub

When I run this code once the pivot does not gets updated and have to run the code twice.
I think that the code is first refreshing table(a) pivot and then its refreshing other 4 pivots.

In short I have a pivot table which is based on other pivot table.
Please help

 

[Debaser]

I suggest you either just add a second loop, or specifically refresh the pivot cache for the new pivot table again at the end.

 

[sms2luv]

Please help with the code

 

[Debaser]

Either just repeat the code you have, or refresh the pivot table by name - for example:

Sheets("sheet name here").Pivottables("pivot table name here").RefreshTable

 

[sms2luv]

Thanks

 

[sms2luv]

Hi
I tried the below code and got run time error.

PrivateSub refreshdata_Click()

Dim PC As PivotCache

Dim I as integer
For I = 1 to 3
ForEach PC In ActiveWorkbook.PivotCaches

PC.refresh

Next PC
Next i
EndSub

Also tried still got error

PrivateSub refreshdata_Click()

Dim PC As PivotCache
Sheets("pivot").Pivottables("pivottable2").refreshtable
ForEach PC In ActiveWorkbook.PivotCaches

PC.refresh

Next PC

EndSub

 

[Debaser]

What error? I assume the missing spaces in the code you posted are present in your actual code?