Yardım Hücre Değeri Adını vererek Yedek Dosya oluşturma

fenetre · 22 May 2021

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

muygun · 23 May 2021

Merhaba;
Boş bir modüle;

C++:

Sub istenilen_sayfayı_kaydet()
If Not CreateObject("Scripting.FileSystemObject").FolderExists("C:\YEDEK") Then
CreateObject("Scripting.FileSystemObject").CreateFolder ("C:\YEDEK")
End If
Application.DisplayAlerts = False
kayıtyol = "C:\YEDEK\" ' kayıt yol
kayıtadı = "Proforma" & "_" & Range("a4") ' kayıt adı
Sheets("Proforma").Copy
ActiveWorkbook.SaveAs kayıtyol & kayıtadı & ".xls"
ActiveWorkbook.Close
kayıtyol = vbNullString
kayıtadı = vbNullString
MsgBox "Verileriniz C:\YEDEK Klasörüne" & kayıtadı & " Adı ile aynı isimli kayıt varsa üzerine , yoksa yeni kayıt olarak   Kayıt Edilmiştir.", vbOKOnly + vbInformation, "BİLGİ..."
End Sub

Kodlarını ekleyerek deneyin.
İyi çalışmalar.

Yardım Hücre Değeri Adını vererek Yedek Dosya oluşturma

fenetre

muygun