Tüm çalışma kitabındaki Özet Tabloları/Pivot Table yenileyebileceğimiz iki farklı kod göstereceğim.

1.

Sub refresh()

ThisWorkbook.RefreshAll

End Sub

Yukarıdaki kod Excel’in eski versiyonlarında çalışmayabilir. Tüm excel versiyonlarında da kullanabileceğimiz kod ise:

2.

Sub refresh2()

Dim pvt As PivotTable

Dim sht As Worksheet

For Each sht In ActiveWorkbook.Sheets

For Each pvt In sht.PivotTables

pvt.RefreshTable

Next pvt

Next sht

End Sub

3.

Kod dışında kullanabileceğiniz ve çalışma kitabındaki tüm kaynakları yenileyen komut ise Menu, Data (Veri) sekmesi altındaki Refresh All buttonu.