AccessTr.neT

Sub PivotDüzelt()
'
' PivotDüzelt Makro
'

'
    Range("M12").Select
    ActiveSheet.PivotTables("PivotTable2").ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "C:\Users\Pc\Desktop\Kategori Haricindekileri Listeleme 2020\excel\[DENEME Tablo - 1.xlsm]Tablo!R1C1:R5C1" _
        , Version:=6)
    ActiveSheet.PivotTables("PivotTable2").ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "C:\Users\Pc\Desktop\Kategori Haricindekileri Listeleme 2020\excel\[DENEME Tablo - 1.xlsm]Tablo!R1C1:R50000C1" _
        , Version:=6)
    Range("M12").Select
End Sub


Macro içerisindeki dizinde macrom çalışıyor başka bir klasöre ve dizine aldığım zaman çalışmıyor. Acaba kırmızı punto ile işaretlediğim bölümü dosyamın olduğu yer olarak düzeltip nasıl çalıştırabilirim. Yani dosyayı nereye götürürsem orada çalışsın hata vermesin istiyorum. Yardımcı olan arkadaşlara teşekkür ederim.

Tam olarak hangi dosyada bu kodlar ve veri alınan Excel dosyası hangi altdizinde
bu kod aktif dosyanın olduğu dizini verir
Diyelimki dosyaniz C:\Users\Pc\Desktop\Kategori Haricindekileri Listeleme 2020 dizininde ve veri alınan dosyanız ise   "C:\Users\Pc\Desktop\Kategori Haricindekileri Listeleme 2020\excel\" dizinin de ise
şeklinde yazmalisiniz

R1C1:R50000C1
Yerine
A1:A50000
Gibide yazılabilr bence.

Sayın; @feraz, @berduş ek dosyada uyguladım ama sonuç alamadım.

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.

Sayın; @feraz, @berduş ek dosyada uyguladım ihtiyaca cevap verdi. Çok teşekkür ederim. Cevaplanan soruların içerisine taşıyabilirsiniz.