Farklı Kaydet Makrosunda dosya kayıt yolunun hücreden alinmasi

[RamazanCager]

Merhaba arkadaşlar. Aşağıdaki makroda yazılı olan dosya kayıt yolunun c:\yedek\ kısmının sayfada bulunan bir hücreye yazdığım dosya yolunu kullanmak istiyorum. Bunu koda nasıl yazmam gerekiyor.

Sub Farklı_Kaudet()
ActiveWorkbook.SaveAs Filename:="C:\yedek\" & Cells(3, 4).Value & ".xlsm"
Application.Quit
End Sub

 

[Korhan Ayhan]

Deneyiniz

ActiveWorkbook.SaveAs Filename:= Range("A1").Value & Cells(3, 4).Value & ".xlsm"

 

[RamazanCager]

Deneyiniz

ActiveWorkbook.SaveAs Filename:= Range("A1").Value & Cells(3, 4).Value & ".xlsm"

Çok teşekkür ederim. Bilgisayar başına gectigimde deneyeceğim.

Birde mevcut dosyanın bulunduğu konuma kaydetmesi için de hangi kodun kullanilacagini yazabilirseniz sevinirim

 

[Korhan Ayhan]

Deneyiniz.

ActiveWorkbook.SaveAs Filename:= ThisWorkbook.Path & "\" & Cells(3, 4).Value & ".xlsm"

 

[RamazanCager]

Tekrar teşekkür ederim Korhan bey. Bu kodlar çok işime yarayacak. Allah razı olsun.

 

[RamazanCager]

Kodlar sorunsuz çalışıyor. Teşekkürler

 

[ziya]

Deneyiniz.

ActiveWorkbook.SaveAs Filename:= ThisWorkbook.Path & "\" & Cells(3, 4).Value & ".xlsm"

Korhan hocam,
yukarıdaki kodu "dosya adını" hücreden al olarak uyarlamak istedim, her zamanki gibi beceremedim. Benim kaydedeceğim dosya csv formatında.
Yardımınızı rica ediyorum.

 ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Cells(1, 20).Value & ".csv", FileFormat:=xlCSV, Local:=True