Macro İçerisinde Değişiklik

Macro İçerisinde Değişiklik - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Macro İçerisinde Değişiklik (/konu-macro-icerisinde-degisiklik.html)

Sayfalar: 1 2

Macro İçerisinde Değişiklik - yyhy - 16/04/2020

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.

Re: Macro İçerisinde Değişiklik - berduş - 17/04/2020

Tam olarak hangi dosyada bu kodlar ve veri alınan Excel dosyası hangi altdizinde

Kod:

ThisWorkbook.Path

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

Kod:

ThisWorkbook.Path & "\excel\[DENEME Tablo - 1.xlsm]Tablo!R1C1:R50000C1"

şeklinde yazmalisiniz

RE: Macro İçerisinde Değişiklik - feraz - 17/04/2020

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

Re: Macro İçerisinde Değişiklik - yyhy - 17/04/2020

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

RE: Macro İçerisinde Değişiklik - berduş - 17/04/2020

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.

RE: Macro İçerisinde Değişiklik - yyhy - 17/04/2020

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