Kitap adı

[ziya]

Merhaba,

Kitap adını A1 hücresinden alsın ve kaydetsin.
Yardımlarıız için teşekkür ederim.

 

[RBozkurt]

Deneyiniz.

Sub Kaydet()
    Dim kitapAdi As String
    Dim dosyaAdi As String
    kitapAdi = Range("A1").Value
    dosyaAdi = ThisWorkbook.Path & "\" & kitapAdi & ".xlsx"
    ActiveWorkbook.SaveAs dosyaAdi, FileFormat:=xlOpenXMLWorkbook
End Sub

 

[ziya]

Sn RBozkurt, teşekkür ederim.