DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("Özet Tablo 2").ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"[Kitap6(1).xls]TABLO!R4C2:R" & [TABLO!a65536].End(3).Row & "C5" _
, Version:=xlPivotTableVersion10)
End Sub