Skip to main content

AccessTr.neT


Macro İçerisinde Değişiklik

Macro İçerisinde Değişiklik

Çözüldü #1
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.
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 16/04/2020, 21:42, Düzenleyen: yyhy.
Cevapla
#2
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

Cevapla
#3
R1C1:R50000C1
Yerine
A1:A50000
Gibide yazılabilr bence.
Cevapla
#4
Sayın; @feraz, @berduş ek dosyada uyguladım ama sonuç alamadım.
.rar DENEME Tablo - 1.rar (Dosya Boyutu: 62,92 KB | İndirme Sayısı: 3)
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 17/04/2020, 11:51, Düzenleyen: yyhy.
Cevapla
#5

Visual Basic Code
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.

Cevapla
#6
Sayın; @feraz, @berduş ek dosyada uyguladım ihtiyaca cevap verdi. Çok teşekkür ederim. Cevaplanan soruların içerisine taşıyabilirsiniz.
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da