Pivot Table Yenileme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Hazır Kod
VBA:
Sub RefreshAllPivotTables()
Dim ws As Worksheet
Dim pt As PivotTable
' Bütün çalışma sayfalarındaki bütün PivotTable'ları döngü ile gez
For Each ws In ThisWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.RefreshTable
Next pt
Next ws
MsgBox "Tüm Pivot Tabloları yenilendi.", vbInformation
End SubAçıklama
Bu makro, açık olan çalışma kitabındaki (ThisWorkbook) tüm çalışma sayfalarını (Worksheets) dolaşır ve her bir sayfadaki her bir PivotTable'ı bulur. Bulunan her PivotTable için RefreshTable metodu çağırılır, bu da PivotTable'ın veri kaynağından en son verileri çekerek yenilenmesini sağlar.Nasıl Kullanılır
- Bu kodu kullanmak için, öncelikle Excel'de Alt + F11 tuşlarına basarak VBA editörünü açın.
- "Insert" menüsünden "Module" seçeneğini tıklayarak yeni bir modül oluşturun.
- Yukarıda verilen RefreshAllPivotTables subrutinini bu modüle yapıştırın.
- VBA editörünü kapattıktan sonra, Excel'de "Developer" sekmesi altında yer alan "Macros" butonuna tıklayarak "RefreshAllPivotTables" makrosunu seçin ve "Run" butonuna tıklayın.
Bu makro, özellikle büyük ve karmaşık Excel raporlarında, veri kaynaklarındaki güncellemelerden sonra tüm PivotTable'ların hızlıca güncellenmesi gerektiğinde kullanışlıdır. PivotTable'larınızın veri kaynağı çok büyükse veya dış veri kaynaklarına bağlıysa, bu işlem biraz zaman alabilir, bu yüzden işlemin başlatılmasından önce bunu göz önünde bulundurun.
Faydalanılması temennisiyle