Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
pivot tabloda değerler bölüme attığım her bir verinin direk toplamını almak istiyorum. her defasında "say" olarak geliyor ve ben bunu tek tek toplatıyorum.
Eğer hepsinin Toplam olmasını istiyorsanız PivotTable'in üzerinde iken bu kodu çalıştırın.
Kod:
Sub PivotFieldToplam()
Dim pt As PivotField
With Selection.PivotTable
.ManualUpdate = True
For Each pt In .DataFields
With pt
.Function = xlSum
.NumberFormat = "#,##0"
End With
Next pt
.ManualUpdate = False
End With
End Sub
Eğer hepsinin Toplam olmasını istiyorsanız PivotTable'in üzerinde iken bu kodu çalıştırın.
Kod:
Sub PivotFieldToplam()
Dim pt As PivotField
With Selection.PivotTable
.ManualUpdate = True
For Each pt In .DataFields
With pt
.Function = xlSum
.NumberFormat = "#,##0"
End With
Next pt
.ManualUpdate = False
End With
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.