Sub deneme()
Dim adr As String
adr = Sheets("Sayfa1").PivotTables(1).PivotCache.SourceData
MsgBox Application.ConvertFormula(adr, xlR1C1, xlA1)
End Sub
Pivot tablonuz üzerinde bir hücre seçtiğinizde excelin üst menüsünden Pivot ile ilgili bir menü aktif hale gelecektir. Bu menüden bahsettiğiniz bölüme erişebilirsiniz.
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.