PİVOT TABLOLARI

[tseker71]

Hayırlı Ramazanlar herkese,

bir data tablosu ve buna bağlı birden fazla pivot tabloları var.
Her ay yeni verilerle data tablosunu güncelliyorum ancak bu esnada neden bilmiyorum pivot tablolarında veri alanı hep şaşıyor. Dolayısıyla tek tek bu tablolara gidip veri alanı güncelle demek zorunda kalıyorum.

Birden fazla pivot tabloda veri alanı güncellemenin pratik bir yolu var mı?

 

[muhasebeciyiz]

Genelde sorun, veri kaynağının aralığının değişmesi veya pivotların farklı cache kullanmasından kaynaklanır

Excel üst menüden Veri (Data) sekmesine gidin.
Tümünü Yenile (Refresh All) butonuna tıklayın.
Ctrl + Alt + F5
Bu işlem dosyadaki tüm pivot tabloları aynı anda günceller.
️ Ancak veri aralığı değişmişse (örneğin A1500 → A1650) bu yöntem tek başına yetmeyebilir.

En Sağlıklı Yöntem: Data’yı Excel Table’a Çevirmek
Data tablonuzu seçin.
Ctrl + T basın.
“Tablom başlık içeriyor” seçili olsun.
Tabloya bir isim verin (örneğin: DataTable)
Sonra Pivot Table oluştururken:
Table/Range = DataTable

Sub TumPivotlariGuncelle()

Dim ws As Worksheet
Dim pt As PivotTable

For Each ws In ThisWorkbook.Worksheets
    For Each pt In ws.PivotTables
        pt.RefreshTable
    Next pt
Next ws

End Sub

veya yukardaki makro kodunu kullan

 

[tseker71]

Genelde sorun, veri kaynağının aralığının değişmesi veya pivotların farklı cache kullanmasından kaynaklanır

Excel üst menüden Veri (Data) sekmesine gidin.
Tümünü Yenile (Refresh All) butonuna tıklayın.
Ctrl + Alt + F5
Bu işlem dosyadaki tüm pivot tabloları aynı anda günceller.
️ Ancak veri aralığı değişmişse (örneğin A1500 → A1650) bu yöntem tek başına yetmeyebilir.

En Sağlıklı Yöntem: Data’yı Excel Table’a Çevirmek
Data tablonuzu seçin.
Ctrl + T basın.
“Tablom başlık içeriyor” seçili olsun.
Tabloya bir isim verin (örneğin: DataTable)
Sonra Pivot Table oluştururken:
Table/Range = DataTable

Sub TumPivotlariGuncelle()

Dim ws As Worksheet
Dim pt As PivotTable

For Each ws In ThisWorkbook.Worksheets
    For Each pt In ws.PivotTables
        pt.RefreshTable
    Next pt
Next ws

End Sub

veya yukardaki makro kodunu kullan

Teşekkür ederim