Makrolar ile Özet Tablo Oluşturma

Bu dosya, Excel'deki bir veri listesinin VBA kodu ile Özet Tabloya (PivotTable) dönüştürülmesini örnekler. Özet tablo, ayrıntılı verileri özetleyerek kullanıcı için önemli olan bilgileri öne çıkarır. Dosyada bu işlemi yapan bir makro bulunur.

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

Dosyanın içeriği​

• Sheet1: A1:D13 aralığında Temsilci, Bölge, Ay ve Tutar sütunlarından oluşan veri listesi bulunur. Dört temsilci (Ali, Burhan, Celil, Derin) için Ocak, Şubat ve Mart aylarına ait tutarlar yer alır. Bölge sütununda Marmara ve Akdeniz değerleri vardır.
• Dosyada formül, tablo, grafik ya da hazır özet tablo yoktur. Özet tablo, makro çalıştırıldığında yeni bir sayfada oluşturulur.

Makrolar​

Dosyada Module1 içinde iki makro vardır:

• CreatePivotTable: Asıl çalışan makrodur. A1 hücresinin bulunduğu veri bölgesini kaynak alarak bir PivotCache oluşturur, yeni bir sayfa ekler ve A3 hücresine özet tabloyu yerleştirir. Bölge alanını sayfa filtresine, Ay alanını sütunlara, Temsilci alanını satırlara, Tutar alanını ise değer alanına ekler. Alan başlıklarını gizler (DisplayFieldCaptions = False).
• RecordedMacro1: Makro kaydedici ile üretilmiş örnek koddur. Kod içinde "will not work" notu vardır; alan adları İngilizce (SalesRep, Month, Sales) ve hedef sayfa adları bu dosyaya uymadığı için çalışmaz. Karşılaştırma amacıyla bırakılmıştır.

Kodda dosya silme ya da dışarıya bağlantı gibi zararlı bir işlem görünmemektedir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sheet1 sayfasında veri listesinin üzerinde olduğunuzdan emin olun.
3. Alt+F8 tuşlarıyla makro listesini açın, CreatePivotTable makrosunu seçip Çalıştır'a basın.
4. Yeni eklenen sayfada Temsilci satırlarını, Ay sütunlarını ve Bölge filtresini içeren özet tabloyu inceleyin.
5. Kendi verinizde kullanmak için sütun başlıklarının makrodaki alan adlarıyla (Bölge, Ay, Temsilci, Tutar) aynı olması gerekir.