Save As'de Dosya İsmini Hücreden Alsın

[baydeniro]

Merhaba arkadaşlar. Aşağıdaki kodda Makro ile Save As yapabiliyoruz. Peki dosyanın A1 hücresinden almasını isterden bu kodu nasıl revize etmeliyiz ?

ActiveWorkbook.SaveAs "C:\Excel\" & "A1" & ".xls"

 

[Emir Hüseyin Çoban]

Merhaba,

ActiveWorkbook.SaveAs "\" & [A1] & "\" & "A1" & ".xls"

Şeklinde deneyiniz.

Alternatif olarak çalışmanızı farklı kaydetmek için kodlar.

Sub farklı_kaydet()
ActiveWorkbook.saveas Filename:="\" & [a1] & "\" & ActiveSheet.Range("a2")
MsgBox "Farklı kaydet işlemi başarıyla gerçekleştirilmiştir. Çalışmanıza bu dosya üzerinden devam edin.", vbInformation, "Farklı Kaydet"
End Sub

 

[baydeniro]

Merhaba huseyincoban çok teşekkür ederim. Eline, aklına sağlık.