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

ASLAN7410

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
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?
 

Ekli dosyalar

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Kod:
Sub Test()
    Set myPivotTable = Sheets("İSTATİSTİK").PivotTables(1)
    newSourceData = Range("A2") & "!R1C2:R32C9"
    myPivotTable.SourceData = newSourceData
End Sub
.
 

ASLAN7410

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
Sayın Haluk Bey, süpersiniz, ellerinize sağlık çok teşekkür ediyorum.

Hayırlı geceler.
 

ASLAN7410

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
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"
 

Ekli dosyalar

  • 67.5 KB Görüntüleme: 7
  • 57.2 KB Görüntüleme: 7

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
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

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
Anladım Haluk Bey, sayfada 13 tane pivot tablo vardı, 13 yazdığımda hata vermedi.

Tekrar teşekkür ediyorum.
 

ASLAN7410

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
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?
 

Ekli dosyalar

ASLAN7410

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
Arkadaşlar konu günceldir.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
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

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
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

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
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?
 

Ekli dosyalar

ASLAN7410

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
Sayın İdris Bey, ellerinize sağlık, çok teşekkür ediyorum tam istediğim gibi oldu.

Hayırlı günler diliyorum.
 
Üst