kaydedilecek harddiski seçmek

[acolkesen1]

Merhaba Arkadaşlar,
ActiveWorkbook.SaveCopyAs "C:\Yedek\" &" DosyaAdı.xls"
Yukarıdaki kodda hangi harddiske kaydedeceğini A1 hücresinden aldırmak istiyorum. Birkaç deneme yaptım ama olmadı. İlgilenen arkadaşlara teşekkür ederim.

 

[leumruk]

Merhaba,
Aşağıdaki gibi deneyin.

Sub kayit()
Yol = [a1].Text
ActiveSheet.Copy
ActiveWorkbook.SaveCopyAs Yol & ":\Yedek\" & "DosyaAdı.xls"
ActiveWorkbook.Close False
End Sub

a1'e sadece harddisk yolunun harfini yazın: C veya D gibi...

 

[acolkesen1]

Merhaba sayın leumruk,
Yardımınız için teşekkürler.
Sizin ve şahsınızda tüm forum üyelerinin cumhuriyet bayramını kutlar, esenlikler dilerim.