Özet tabloda ekstre sorunu?

[expertr]

Arkadaşlar işyerinde müşteri hesaplarını excelde takip ediyoruz. Müşteriler hesap ekstresi istediği zaman özet tablo kullanarak müşterilere cari hesap ekstresi vermek istiyorum. Fakat bir türlü esktrenin bakiye kısmını ayarlayamadım. Ekteki dosyayı incelerseniz sorunumu daha iyi anlarsınız. Yardımlarınız için şimdiden teşekkürler.

 

[hamitcan]

Ufak bir makro ile yada özet tablo dışına bir formül ekleyerek halledebilirsiniz.
Formül ile;

j5=ÖZETVERİAL("Toplam TUTAR";$A$3;"TARIH";TARİH(2009;1;1);"YUKLEME NO";;"YÜKLEME BİLGİSİ";;"FATURA NO";;"KALITE/ETIKET";"MODEL4";"MIKTAR (M2)";100;"FIAT";24)

j6=ÖZETVERİAL("Toplam TUTAR";$A$3;"TARIH";TARİH(2009;2;1);"YUKLEME NO";;"YÜKLEME BİLGİSİ";;"FATURA NO";;"KALITE/ETIKET";"MODEL4";"MIKTAR (M2)";200;"FIAT";24)-ÖZETVERİAL("Toplam ODEME ";$A$3;"TARIH";TARİH(2009;2;1);"YUKLEME NO";;"YÜKLEME BİLGİSİ";;"FATURA NO";;"KALITE/ETIKET";"MODEL4";"MIKTAR (M2)";200;"FIAT";24)+J5

diğer formülleri çoğaltmak size kalmış.
Kod yardımıyla;

Sub bakiye()
[j4] = "BAKİYE"
    [j5] = [h5] - [i5]
    For i = 6 To [a65536].End(3).Row - 1
        Cells(i, "j") = Cells(i - 1, "j") + Cells(i, "h") - Cells(i, "i")
    Next
End Sub

şeklinde hesaplayabilirsiniz.

 

[expertr]

Öncelikle yardımın için teşekkürler.
Ben formülü veya kodu kullandığım zaman müşteriyi değiştirdiğimde otomatik olarak rakamı hesaplayacakmı?

Ayrıca kodu hangi bölüme yazmam gerekiyor?

 

[hamitcan]

Extre sayfasının kod kısmına ekleyin.

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Columns("j").Clear
    [j5] = [h5] - [i5]
    For i = 6 To [a65536].End(3).Row - 1
        Cells(i, "j") = Cells(i - 1, "j") + Cells(i, "h") - Cells(i, "i")
    Next
    [j4] = "BAKİYE"
End Sub

Açıkcası formül konusunda fazla bilgim yok ama verdiğim formül dinamik değil. Formülü sadeleştirmek ve dinamik hale sokmak gerekiyor. Ama yukarıdaki kod özet tabloyu değiştirdiğinizde çalışacaktır, bu da işinizi görür sanırım.

 

[expertr]

sayın Hamitcan,

yardımlarınız için çok teşekkür ederim. Sizin yardımlarınız ile çok güzel bir uygulama yapmış olduk. İnşallah bundan sonra işlerimiz daha hızlı bir şekilde sonuçlanır.


İyi çalışmalar
Hasan Tonbak
Gaziantep