makro ile özet tablo oluşturmak

[marlalı1]

arkadaşlar excelde 1 den 31 e kadar sayfalar var.her sayfa bir gün.bu günlere girdiğim değerleri excel de rapor sayfasında görmek istiyorum.bunu makro yada vba ile nasıl yapabiliriz.

 

[omerceri]

1. Grafiğinizin "Rapor" adlı sayfada
2. Grafiğinizin 1 adet olduğunu
2. Kaynak verilerinin bulunduğu sayfa adının Rapor sayfasında C3 hücresine yazacağınız
4. Kaynak verilerinin "A" sütununda
olduğunu varsayarak aşağıdaki kodu hazırladım.
Örnek dosya ekleseydiniz daha kolay olurdu

Sub Makro1()
SayfaAdı = Sheets("Rapor").Range("C3")
say = Sheets(SayfaAdı).Range("a65536").End(3).Row
Sheets("Rapor").ChartObjects(1).Activate
ActiveChart.SetSourceData Source:=Sheets(SayfaAdı).Range("a1:a" & say)  
End Sub

 

[omerceri]

Yine yanlış anlamışım Özet tablo yerine Grafik için makro yazmışım.
Özet tablo için olan makro aşağıda
1. Veri aldığınız sayfaların, Veri Kaynağı A1 hücresinden başlıyor kaç satır aşağı gidiyorsa onu buluyor ve A ve B sütunlarını içeriyor. Kendi özet tablonuzun durumuna göre değiştirin.
2. Sayfa adını Rapor sayfasında A1 hücresine yazın

Sub Makro1()
SayfaAdı = Sheets("Rapor").Range("a1")
say = Sheets(SayfaAdı).Range("a65536").End(3).Row
yazi = SayfaAdı & "!" & Range("A1:B" & say).Address(True, True, xlR1C1)
   ActiveWorkbook.PivotCaches(1).SourceData = yazi
End Sub