dosyadaki tüm pivot tablo ve grafiklerin veri kaynağını değiştirmek

[cliff]

Selamlar,

elimde makro yüklü bir excel dosyası var.

bir sekmeye (worksheet) verileri kopyalıyoruz, diğer sekmeklerdeki pivot tablo ve grafikler otomatik veri çekiyor.

sorunum şu ki kullanım talimatına, "ilgili sekmelere sağ tıklayıp verileri değiştir'e basarak kopyaladığınız verilerin aralığını düzeltin" şeklinde not düşülmüş.

böyle bir özellik bulamadım maalesef. tek tek tüm pivot table'larda çözümle menüsünden veri kaynağını değiştirip, düzelttiğimde ise formüller hata veriyor (özetverial formülü örneğin), grafikler bozuluyor (TL yapısı $'a dönüyor, veriler görünmüyor vs.)

dosyayı gizlilik nedeniyle paylaşamıyorum maalesef.

sheet içindeki tüm pivot tablo ve grafiklerin veri kaynağını değiştireceğim bir özellik var mı acaba?

 

[Necdet]

Merhaba,

PivotTable için Ad tanımını kullanırsanız böyle bir işleme gerek kalmaz.
Bunun için bile yine PivotTable'ın veri aralığını değiştirmeniz gerekecektir.

Örnek dosyayı paylaşım sitelerinden birine yüklerseniz yardımcı olacak arkadaşlar olacaktır.

 

[Necdet]

Tekrar Merhaba,

Pivot Table için bir Ad Oluşturun, Örneğin AdOzet olsun.

Aşağıdaki kodları bir modüle kopyalayıp 1 kere çalıştırmanız yeterli.

Sub PivotTableKaynakDegistir()

    Dim Sh As Worksheet
    Dim pt As PivotTable
    
    Application.ScreenUpdating = False
    
    For Each Sh In ActiveWorkbook.Worksheets
        For Each pt In Sh.PivotTables
            pt.SourceData = "AdOzet"
            pt.PivotCache.Refresh
        Next
    Next
    
    Application.ScreenUpdating = True
    
End Sub