özet tablo veri kaynağı ( toplu değişim )

[karakoc39]

merhabalar
excel'imde 12 tane özet tablo var.bu özet tabloların veri kaynağını tek tek değişitiriyorum
bu özet tabloların veri kaynağını toplu şekilde değiştirebileceğim kod vb varmıdır?
şimdiden teşekkürler

 

[Korhan Ayhan]

Merhaba,

Var olan kaynaklar nedir ne olarak güncelleme istiyorsunuz?

Makro ile döngü kurularak yapılabilir.

 

[karakoc39]

mrb
varolan EYLÜL!$A:$AJ verikaynağını EKİM!$A:$AJ olarak manel değiştiriyorum
mesela birsonraki ay EKİM!$A:$AJ ı KASIM!$A:$AJ olarak değiştireceğim sürekli aynı
12 tane kadar özet tablo var bunları tek tek değiştirmeyim de mesela bir tıkla değişsin

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Tum_Ozet_Tablolarin_Veri_Kaynagini_Degistir()
    Dim Tablo As PivotTable, Eski_Ay As Variant, Yeni_Ay As Variant
    
    Eski_Ay = InputBox("Lütfen değiştirmek istediğiniz eski ay adını giriniz!", "Değişecek Ay Adı")
    If Eski_Ay = False Or Eski_Ay = "" Then
        MsgBox "Lütfen eski ay adını giriniz!", vbCritical
        Exit Sub
    End If
    
    Yeni_Ay = InputBox("Lütfen yeni ay adını giriniz!", "Yeni Ay Adı")
    If Yeni_Ay = False Or Yeni_Ay = "" Then
        MsgBox "Lütfen yeni ay adını giriniz!", vbCritical
        Exit Sub
    End If
    
    For Each Tablo In ActiveSheet.PivotTables
        Tablo.SourceData = Replace(Tablo.SourceData, Eski_Ay, Yeni_Ay)
    Next

    MsgBox "Tüm özet tabloların veri kaynağı güncellenmiştir.", vbInformation
End Sub

 

[Merhum İdris SERDAR]

.

Buradaki örnekleri inceleyin.

Pivot Table’ın Kaynak Verisini Değiştirmek – 1 – Excel Gurusu

Pivot Table’ın Kaynak Verisini Değiştirmek – 2 – Excel Gurusu

Pivot Table’ın Kaynak Verisini Değiştirmek – 3 – Excel Gurusu

.

 

[karakoc39]

Deneyiniz.

hocam çalışmadı,çalışacak gibi ama olmuyor
kısa bir video ekledim

 

[Korhan Ayhan]

Merhaba,

O hata özet tablolarınız arasında yeterli miktarda boş satır olmadığı için kaynaklanıyor. Tablolar üst üste bindiği için sizi uyarıyor.

 

[karakoc39]

Merhaba,

O hata özet tablolarınız arasında yeterli miktarda boş satır olmadığı için kaynaklanıyor. Tablolar üst üste bindiği için sizi uyarıyor.

doğru olabilir ama ekimler kasım olmuyor
manuelde sıkıntı yok

 

[Korhan Ayhan]

Birde siz sadece ay adını yazıp deneyiniz.

 

[karakoc39]

Birde siz sadece ay adını yazıp deneyiniz.

onu denemiştim aynı idi tablo aralarını açıp deneyeceğim

 

[Korhan Ayhan]

Ben tek tabloda sadece ay adını yazarak denediğimde hata vermedi.

 

[karakoc39]

ay adı yazınca aşağıdaki hata veriyor

pvEs4u.jpg

pvEs4u Fotoğrafı, resimleri, fotoğrafları

hizliresim.com

hocam kod çalışıyor gibi hata yok ama veri kaynağı değişmiyor aynı kalıyor.
veri kaynağım aşağıdaki sekmelerde

SKCuN7.jpg

SKCuN7 Fotoğrafı, resimleri, fotoğrafları

hizliresim.com

 

[karakoc39]

Hocam süpersin
oldu kusura bakma senide meşgul ediyorum
sorunsuz çalışıyor
emeğine sağlık
sağlıklı günler dilerim