ActiveSheet.PivotTables("PivotTable2").ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
ThisWorkbook.Path & "\[DENEME Tablo - 1.xlsm]Tablo!R1C1:R50000C1" _
, Version:=6)
yukardaki şekilde dener misiniz?"ThisWorkbook.Path ifadesinde en başa fazladan çift tırnak eklemişsiniz.