Hücre Adını Vererek Yedek Dosya Oluşturma

[6729626]

Aşağıdaki Kodla. Sayfayı Proforma adıyla yedek alıyor, Bu yedeği Proforma adı ve sayfada a4 hücresindeki
değere göre nasıl yedek dosyası oluşturabilirim.
Örnek:Sheets("Proforma").Copy ve A4 hücresindeki değere göre
Yani: Proforma/Firma adı/tarih(A4 hücresindeki yazan firma adı)
Şİmdiden Teşekkürler, Kolay Gelsin.

Sub yedekal_kapat()
If Not CreateObject("Scripting.FileSystemObject").FolderExists("C:\YEDEK") Then
CreateObject("Scripting.FileSystemObject").CreateFolder ("C:\YEDEK")
End If
Sheets("Proforma").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\YEDEK\" & ActiveSheet.Name & "_" & Format(Date, "mm-dd-yy hh-mm") & ".xls"
ActiveWorkbook.Close
MsgBox "Verileriniz C:\YEDEK Klasörüne Kayıt Edilmiştir.", vbOKOnly + vbInformation, "İsim"
End Sub

 

[AdemCan]

firma_adi isimli bir değişken oluşturup, Proforma sayfası A4 hücresini bu değişkene eşitleyip, kaydet kodu içinde kullanabilirsiniz.

firma_adi = Sheets("Proforma").Range("A4").Value
ActiveWorkbook.SaveAs Filename:="C:\YEDEK\" & ActiveSheet.Name & "_" & firma_adi & "_" & Format(Date, "mm-dd-yy hh-mm") & ".xls"

 

[6729626]

firma_adi = Sheets("Proforma").Range("A4").Value ActiveWorkbook.SaveAs Filename:="C:\YEDEK\" & ActiveSheet.Name & "_" & firma_adi & "_" & Format(Date, "mm-dd-yy hh-mm") & ".xls"

Çok sağolun Allah Razı OLsun.

 

[AdemCan]

Amin cümlemizden razı olsun inşallah.