Pivot Table Sum - Count Hakkında

[eksoy]

Merhaba ,

Pivot tablonun data kısmına attığımız verilerin hepsinin Count iken Sum ya da Sum iken Count ( Pivot Table Field ayarlarını ) a çevirmek için nasıl bir kod yazmalıyım.teşekkürler...

 

[danersin]

makro recorder ile bu kodları bulabilirsiniz.

Sub Makro2()
Range("C5").Select
ActiveSheet.PivotTables("Özet Tablo 1").PivotFields("Toplam c").Function = _
xlCount
End Sub
Sub Makro3()
Range("D6").Select
ActiveSheet.PivotTables("Özet Tablo 1").PivotFields("Say c").Function = xlSum
End Sub

 

[eksoy]

Merhaba Danersin ,

Yapmak istediğim.Bu kodu add ins olarak excel e eklemek.bütün çalışma sayfalarında ve pivottablolarda kullanmak.Kodu tüm pivotlarda çalışabilecek şekilde yapmak istiyorum.yani data kısmında kaç tane veri varsa hepsini değiştirebilmeli.teşekkürler....

 

[danersin]

Sanırım bu yol gösterebilir.. (add-in yapmada sorun yaşarsanız
http://www.excel.web.tr/viewtopic.php?t=8571

Sub Makro2()
Dim tablo As PivotTable
Dim alan As PivotField
For Each tablo In ActiveSheet.PivotTables
For Each alan In tablo.DataFields
alan.Function = xlCount
Next
Next
End Sub

 

[eksoy]

Teşekkürler Danersin