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.
Reklamlar