Özet Tabloda iki sütunun farkını oluşturma

[tamer42]

Merhaba,
Ekli dosyada hazırladığım pivot örneğinde "Alış" ve " Satış" sütunlarının farkını yan tarafta formül ile oluşturdum,
bu farkın özet tablo içinde hazırlanması mümkün müdür?

iyi Çalışmalar.

 

[YUSUF44]

Yanlış hatırlamıyorsam "hesaplanmış alan ekle" özelliği var. Özet tablo menüsünde en sağ taraftaydı. O menüde yeni alan için isim verip formül kısmına da hangi alan ya da alanlara nasıl bir işlem yapılacağını seçiyorsunuz.

 

[tamer42]

Yanlış hatırlamıyorsam "hesaplanmış alan ekle" özelliği var. Özet tablo menüsünde en sağ taraftaydı. O menüde yeni alan için isim verip formül kısmına da hangi alan ya da alanlara nasıl bir işlem yapılacağını seçiyorsunuz.

Hocam Hesaplanış alan; alanlar arasında işlem yapıyor, dosyayı incelerseniz;
Burada "Alış" ve " Satış" sütunları birer alan değil; "Hesap Türü" Alanı içinde birer elaman

 

[YUSUF44]

Aşağıdaki kodları pivot sayfasının kod bölümüne yapıştırıp dener misiniz? Pivot tabloyu yenilediğinizde fark sütunu ekler ve satıştan alışı çıkararak yazar:

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Application.EnableEvents = False
        ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
        sonD = WorksheetFunction.Max(5, Cells(Rows.Count, "D").End(3).Row)
        sonC = WorksheetFunction.Max(5, Cells(Rows.Count, "C").End(3).Row)
        son = WorksheetFunction.Max(sonC, sonD)
        Range("D5:D" & son).Clear
        Range("D5:D" & son).Interior.Color = xlNone
        Range("C3:C" & sonC).Copy Range("D3:D" & sonC)
        [D4] = "Fark"
        For i = 5 To sonC
            Cells(i, "D") = Cells(i, "C") - Cells(i, "B")
        Next
        Cells(sonC, "D") = WorksheetFunction.Sum(Range("D5:D" & sonC - 1))
        Range("B6").Select
    Application.EnableEvents = True
End Sub

 

[tamer42]

Aşağıdaki kodları pivot sayfasının kod bölümüne yapıştırıp dener misiniz? Pivot tabloyu yenilediğinizde fark sütunu ekler ve satıştan alışı çıkararak yazar:

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Application.EnableEvents = False
        ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
        sonD = WorksheetFunction.Max(5, Cells(Rows.Count, "D").End(3).Row)
        sonC = WorksheetFunction.Max(5, Cells(Rows.Count, "C").End(3).Row)
        son = WorksheetFunction.Max(sonC, sonD)
        Range("D5:D" & son).Clear
        Range("D5:D" & son).Interior.Color = xlNone
        Range("C3:C" & sonC).Copy Range("D3:D" & sonC)
        [D4] = "Fark"
        For i = 5 To sonC
            Cells(i, "D") = Cells(i, "C") - Cells(i, "B")
        Next
        Cells(sonC, "D") = WorksheetFunction.Sum(Range("D5:D" & sonC - 1))
        Range("B6").Select
    Application.EnableEvents = True
End Sub

Teşekkürler Yusuf Hocam

 

[Korhan Ayhan]

Alternatif;

"Hesaplanmış Öğe" uygulaması yapılmıştır.

 

[tamer42]

Alternatif;

"Hesaplanmış Öğe" uygulaması yapılmıştır.

Korhan Hocam ilginize çok teşekkür ederim,
Bir şey sormak istiyorum, burada "Hesaplanmış Alan" altında Fark alanını görmedim,
Nasıl oluşturduğunuz konusunda bilgi verirseniz bizde bu konuyu öğrenmiş oluruz.

tekrar teşekkürler, iyi pazarlar

 

[Korhan Ayhan]

@tamer42,

Hesaplanmış Öğe olarak belirtmiştim. Aynı menüden erişebilirsiniz.

 

[tamer42]

@tamer42,

Hesaplanmış Öğe olarak belirtmiştim. Aynı menüden erişebilirsiniz.

Ekli dosyayı görüntüle 226615

Tşk