VBA Tüm Pivot Tabloları Refresh Etmek

Workbook (çalışma kitabı) içindeki tüm pivot tabloları refresh yani tazelemek için aşağıdaki macro kodunu kullanabilirsiniz.

Sub RefreshPivotTablolar() 
   Dim PT As PivotTable 
   For Each PT In ActiveSheet.PivotTables 
   PT.RefreshTable 
   Next PT 
End Sub 


VBA

İlginizi Çekebilir

VBA 1'den N'e Kadar Olan Çift Sayıların Toplamını Bulma Örneği

VBA İkinci Dereceden Bir Denklemin Köklerini Bulma Örneği

VBA Tüm Satırları Auto Fit Yapmak

VBA Bir Sayının Karekökünün Hesaplanması

VBA 1'den 100'e Kadar Sayı Toplam Örneği