VBA ile Özet Tablo (Pivot Table) Oluşturma

Kurumsal raporlamanın en güçlü aracı olan Pivot Tabloları (Özet Tablo) manuel olarak hazırlamak zaman alır. VBA kodlarıyla ham verileri kaynak göstererek saniyenin onda birinde profesyonel Pivot Tablolar kurabilir, satır, sütun ve veri alanlarını otomatik yerleştirebilirsiniz.

Pivot Cache ve Pivot Table Mantığı

VBA ile Pivot Tablo kurarken iki aşama izlenir: Önce verilerin hafızada saklandığı önbellek alanı (PivotCache) oluşturulur, ardından bu önbellek kullanılarak çalışma sayfasında Pivot Tablo (PivotTable) inşa edilir.

Örnek Pivot Tablo Kod Kalıbı


                                Dim pc As PivotCache

                                Dim pt As PivotTable

                                

                                ' Veri aralığını önbelleğe al

                                Set pc = ActiveWorkbook.PivotCaches.Create(xlDatabase, Range("A1:C100"))

                                

                                ' Yeni sayfada Pivot Tabloyu oluştur

                                Set pt = pc.CreatePivotTable(Sheets("Rapor").Range("A1"), "SatisPivotu")

Canlı Simülatör: Otomatik Pivot Özet Raporu

Aşağıdaki makro, ham satış verilerini tarayarak otomatik olarak Özet Rapor (Pivot) oluşturacaktır. Kodu Çalıştır butonuna basın ve raporun oluşumunu izleyin.

Visual Basic Editörü

Module1 (Code)

Sub PivotOlustur()
    ' Özet tablo önbelleğini ve tablosunu kur
    Range("D1").Value = "Şehir"
    Range("E1").Value = "Toplam Satış"

    Range("D2").Value = "İstanbul"
    Range("E2").Value = "450.000 ₺"

    MsgBox "Pivot özet raporu başarıyla oluşturuldu!", vbInformation
End Sub

Canlı Pivot Rapor Ekranı

D (Özet Şehir)

E (Özet Ciro)

Önceki VBA Dersleri VBA ile Grafik Oluşturma

Microsoft Excel ✕

Pivot özet raporu başarıyla oluşturuldu!