Pivotta veri kaynağını hücredeki sayfa isminden alması

[ASLAN7410]

Merhaba, hayırlı geceler.

Ekte gönderdiğim excel dosyamda, sayfaların isimleri yıl isimleri, istatistik sayfasında A2 hücresinde de yıl ismi var, butona bastığımda,
pivotun veri kaynağını değiştir kısmındaki sayfa ismini A2 hücresinden alabilir mi?

Yardımcı olur musunuz?

 

[Haluk]

Sub Test()
    Set myPivotTable = Sheets("İSTATİSTİK").PivotTables(1)
    newSourceData = Range("A2") & "!R1C2:R32C9"
    myPivotTable.SourceData = newSourceData
End Sub

.

 

[ASLAN7410]

Sayın Haluk Bey, süpersiniz, ellerinize sağlık çok teşekkür ediyorum.

Hayırlı geceler.

 

[ASLAN7410]

Sayın Haluk Bey, kodları orijinal dosyaya uyarladığım da gönderdiğim resimlerdeki hatayı alıyorum, birde veri aralığı E ve K sütunlarını nasıl yazmam gerekiyor.

Bu koddaki "!R1C2:R32C9" bu kısımda oynama yaptığımda da hata verdi.

newSourceData = Range("A3") & "!R1C2:R32C9"

 

[Haluk]

Koda;

..... PivotTables(41) yazarsanız, sayfada 41 adet Pivot Table var demektir..... Böyle olduğunu sanmıyorum.

41 yerine sayfadaki kaçıncı Pivot Table ise onu yazın.... Benim örnek kodda sayfada 1 tane vardı, ben de 1 yazdım.

.

 

[ASLAN7410]

Anladım Haluk Bey, sayfada 13 tane pivot tablo vardı, 13 yazdığımda hata vermedi.

Tekrar teşekkür ediyorum.

 

[ASLAN7410]

Sayın Haluk Bey, 2.mesajınızdaki kodu kendi dosyama uyguladım, bir türlü çalıştıramadım.
Kod dosyamın İSTATİSTİK sayfasında GETİR butonunda bulunuyor.
Yardımcı olur musunuz?

 

[ASLAN7410]

Arkadaşlar konu günceldir.

 

[Haluk]

Sayın Haluk Bey, 2.mesajınızdaki kodu kendi dosyama uyguladım, bir türlü çalıştıramadım.
Kod dosyamın İSTATİSTİK sayfasında GETİR butonunda bulunuyor.
Yardımcı olur musunuz?

Ben dosyanızdan bir şey anlamadım, kusura bakmayın .... 1 ay önce çalışıyor demiştiniz, şimdi ne oldu da çalışmıyor diyorsunuz?

.

 

[ASLAN7410]

Sayın Haluk Bey, Getir butona tıkladığımda I11 hücresinde yazılı bulunan 2019'!$A:$K bu veriyi sayfa üzerindeki tüm pivot uygulamalarında veri kaynağını değiştirme kısmındaki Tablo/Aralık kısmana yazmasını istiyorum. 2019 rakamınıda A6 hücresinden almasını istiyorum.

Yani A6 hücresindeki yıllardan örneğin 2020'yi seçip getir butonuna tıkladığımda, bütün pivot uygulamaları 2020 sayfasındaki verileri getirmesini istemiştim.
A6 hücresindeki yıllardan örneğin 2018'yi seçip getir butonuna tıkladığımda, bütün pivot uygulamaları 2018 sayfasındaki verileri getirmesini istemiştim.

İstatistik sayfasındaki bütün pivotlar hangi yıla ait bilgilerin gelmesini A6 hücresinden seçtiysem, o yıla ait bilgileri getirmek istiyorum.

 

[ASLAN7410]

Sayın Haluk Bey, isteğimi anlatamadım.

Excel dosyamı tekrar gönderiyorum, İSTATİSTİK sayfasındaki GETİR butonuna bastığımda, sayfanın adını A6 hücresinden, veri aralığı olarakta $A:$K bilgisinide bütün pivotların veri kaynağını değiştir kısmına yazmasını istiyorum.

Butona bastığımda yapılmasını istediğimin resimlerini gönderiyorum.

Yani İSTATİSTİK sayfasından yılların istatistiğini yapmak istiyorum.

Yardımcı olur musunuz?

 

[Merhum İdris SERDAR]

.

Dosyanız ekte.

.

 

[ASLAN7410]

Sayın İdris Bey, ellerinize sağlık, çok teşekkür ediyorum tam istediğim gibi oldu.

Hayırlı günler diliyorum.