Vba ile Özet Tablo Oluşturmak

[meleklerim]

Arkadaşlar hepinize kolay gelsin,
Bir vba projemde ihtiyaç duyduğum 2 adet raporu bildiğim klasik yolla (çokeğersay formülü) yapınca program çok hantallaştı. ekte örneğini sunduğum belgede tablom ve raporlarım bulunmaktadır. Rapor1 ve Rapor2 sayfasına tablonun özetini vba ile nasıl aktarabilirim? yardımcı olacak arkadaşlara şimdiden teşekkür ederim

 

[winstoncash]

Pivot table iş görmez mi burda? Çok komplike değil gibi geldi bana.

 

[meleklerim]

İş görecek her çözüme razıyım. İlla o tablo formatında da olmasına gerk yok. O tablodan o bilgileri çekse yeter

 

[winstoncash]

örneği inceler misiniz? sadece rapor 1 sayfasını yaptım. burada mühim olan listedeki mahalle isimleri ile rapor üst kısımdaki mahalle isimlerinin birebir aynı olması.

 

[meleklerim]

hocam elinize sağlık, çok teşekkür ederim. Ancak böyle tüm hücrelere sizin yaptığınız gibi "= eğersay" ya da benim yaptığım gibi "=çokeğersay" formülleri programı inanılmaz kasıyor. O formüllerin vba formatında yazılmasını sağlayıp sadece sınıf ve mahalle dolu olan hücrelerde aktif olabilmesini sağlamak gerekiyor. Emekleriniz için çok teşekkür ederim

 

[Merhum İdris SERDAR]

.

Pivot Table - Özet Tablo ile yapılmıştır.


.

 

[meleklerim]

İdris Bey, çok teşekkür ederim ama, sınıf, mahalle ve öğrenci sayıları değiştiğinde anında tablonun güncellenmesi gerekiyor. Ben sorunu şöyle çözdüm: Bir makro ile rapor verilerini asıl Öğrenci, sınıf ve Mahalle tablolarından değil de rapor oluşturacağım zaman o tabloları kopyaladığım geçiçi bir sayfadan almasını sağladım. Böylelikle asıl tablolar değiştiğinde anlık olarak rapor etkilenmediğinden yavaşlama olmuyor. Sadece rapor yazdırırken yavaşlama oluyor (45 sn ) o da normal geldi bana.

 

[Cengiz Demir]

VBA editörü açıp.

Sheet1 ve Sheet2 kod alanına bu kodları yapıştırırsanız; o sayfaları seçtiğinizde, özet tablo otomatik yenilenir .
Kodları ayarladıktan sonra dosyayı makro içeren dosya olarak kaydetmeniz gerekiyor.

Özet tablo verilerini, mevcut duruma göre değil de.
İleride eklenebilecek alanlarını da dahil edip, boşları göstermeyecek şekilde ayarlayabilirsiniz.

Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
End Sub

İdris Bey, çok teşekkür ederim ama, sınıf, mahalle ve öğrenci sayıları değiştiğinde anında tablonun güncellenmesi gerekiyor. Ben sorunu şöyle çözdüm: Bir makro ile rapor verilerini asıl Öğrenci, sınıf ve Mahalle tablolarından değil de rapor oluşturacağım zaman o tabloları kopyaladığım geçiçi bir sayfadan almasını sağladım. Böylelikle asıl tablolar değiştiğinde anlık olarak rapor etkilenmediğinden yavaşlama olmuyor. Sadece rapor yazdırırken yavaşlama oluyor (45 sn ) o da normal geldi bana.