birden fazla değeri özet değere dönüştürme

[HarEndu]

merhaba,
ekteki dosyada gider cinsini(D) özetlemek istiyorum(J). D ye her girdiğim veri j de yenilensin. özet tablo ile oluyor fakat her seferinde veri güncellemesi yapmak gerekiyor. başka türlü nasıl özetleyebilirim. rica etsem yardımcı olabilirmisiniz....

 

[HarEndu]

acil yardımcı olabilecek varmı... Üstatlar

 

[YUSUF44]

Öncelikle sayfanıza bir özet tablo ekleyin. Daha sonra sayfa sekmesine sağ tıklayıp kod görüntüle deyin ve aşağıdaki kodları çıkan sayfaya yapıştırın:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b3:d33,f3:f33, h3,h33")) Is Nothing Then Exit Sub
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
End Sub

Daha sonra B333, F3:f33, H3:H33 hücrelerindeki her değişimde sayfada bulunan özet tablonuz yenilenecektir. (Kodlar sayın yurttaş'tan alıntıdır)

 

[HarEndu]

çok teşekkür ederim müthişsiniz.... tam istediğim gibi olmuş, tek sorunum veri girişi olduğunda belirlediğm satır yüksekliği küçülüyor. bunun önüne nasıl geçebilirim.
yüreğinize sağlık...

 

[YUSUF44]

Örnek dosyanızda öyle bir problem olmadı.

 

[HarEndu]

teşekkür ederim