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...
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
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....
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
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.