Farklı Kaydetde Yol Değiştirme

[ahmetcirali]

Ad = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & _
"\yükleme tablosu\arşiv" & Application.PathSeparator & Format(Date, "mmmm.yyyy") & ".xlsm"
With ActiveWorkbook

.SaveAs Filename:=Ad

Arkadaşlar Bu Farklı Kaydet Makrosu Bilgisayardaki C: Üzerinden Çalışıyor Benim Çalışma Yapacağım Yer İse D:\Belgelerim\Yükleme Tablosu\Arşiv Dosyası Burdaki Dosyaya Farklı Kaydedecek Bunun İçin Bu Kodun Neresini Değiştirmem Gerekli Yardımcı Olursanız Sevinirim.

 

[ahmetcirali]

Ad = CreateObject("wscript.Shell").SpecialFolders.Item( "D:\Belgelerim\Yükleme Tablosu\Arşiv") & _
"\D:\Belgelerim\Yükleme Tablosu\Arşiv" & Application.PathSeparator & Format(Date, "mmmm.yyyy") & ".xlsm"
With ActiveWorkbook

.SaveAs Filename:=Ad


Birde Bunu Denedim Oldu Sanırım Bu Şekilde Yapılacaktı Sayın Ustalarım Eğer Kodda Bir Hata Varsa Düzetirseniz Sevinirim Kod Çalışıyorda Hani Aslında Bu Kod Bu Şekilde Olmalı Dİyorsanız Teşekkürler

 

[Zeki Gürsoy]

Amacınızın yedek kopya almak olduğunu tahmin ediyorum.

if thisworkbook.saved = false then
   thisworkbook.save
   thisworkbook.savecopyas _
     D:\Belgelerim\Yükleme Tablosu\Arşiv\" & _
       Format(Date, "mmmm.yyyy") & ".xlsm"
end if