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.
Faydalanılması temennisiyle
Uygulama Adımları
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Alttaki kodu yapıştırın.
Hazır Kod
VBA:
You must log in to view content
(12 satır)
Açı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.
Faydalanılması temennisiyle