Makro ile Pivot Tablo Oluşturma

Bu dosya, tek bir makro çalıştırarak büyük bir veri listesinden Pivot Tablo oluşturmanızı sağlar. Makro, yıl ve aya göre satırlarda, bölgeye göre sütunlarda harcama toplamını gösteren hazır bir özet tablo üretir.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Data: A1:G32975 aralığında yaklaşık 32 bin satırlık ham veri bulunur. İlk satır başlıklardır. Makronun kullandığı Yıl, Ay, Bolge ve Harcama alanları bu başlıklar arasında yer alır.
• Dosyada DataList adlı bir ad tanımı vardır ve Data!$A$1:$G$1 aralığını, yani başlık satırını gösterir.
• Pivot Tablo sayfası dosyada hazır gelmez, makro çalıştığında oluşturulur.

Dosyada hücre formülü bulunmaz, tüm işlem makro ile yapılır.

Makrolar​

Module1 içinde tek bir makro vardır: InsertPivotTable. Yaptığı işlemler sırasıyla şöyledir:

1. Varsa önceki "PivotTable" sayfasını uyarı vermeden siler, aynı adla yeni boş bir sayfa ekler.
2. Data sayfasında son dolu satırı ve son sütunu bularak veri aralığını kendisi belirler. Satır sayısı arttığında aralığı elle değiştirmeniz gerekmez.
3. Bu aralıktan Pivot önbelleği ve "SalesPivotTable" adlı Pivot Tabloyu oluşturur.
4. Yıl ve Ay alanlarını satıra, Bolge alanını sütuna yerleştirir.
5. Harcama alanını toplam (xlSum) olarak değer alanına ekler, #,##0 biçimi uygular ve alanı "Gelir" olarak adlandırır.
6. Satır şeritlerini açar ve PivotStyleMedium9 stilini uygular.

Kodda zararlı bir işlem yoktur. Yalnızca makronun oluşturduğu "PivotTable" sayfası silinir ve dış bağlantı kurulmaz. Bu nedenle bu adla sakladığınız başka bir sayfa varsa makroyu çalıştırmadan önce adını değiştirin.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Data sayfasındaki başlıkların Yıl, Ay, Bolge ve Harcama olarak durduğundan emin olun. Makro bu adlara göre çalışır.
3. Alt+F8 tuşlarına basın, InsertPivotTable makrosunu seçip Çalıştır deyin.
4. Oluşan PivotTable sayfasında Yıl ve Ay kırılımında bölgelere göre gelir toplamlarını inceleyin.
5. Kendi verinizi kullanacaksanız Data sayfasını aynı başlık yapısıyla değiştirip makroyu yeniden çalıştırın.