DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub deneme()
Dim adr As String
adr = Sheets("Sayfa1").PivotTables(1).PivotCache.SourceData
MsgBox Application.ConvertFormula(adr, xlR1C1, xlA1)
End Sub