Merhabalar;
Benim halihazırda aylara göre hesap tablom var. Aşağıdaki makroyla yedek alıyorum. Benim istediğim aldığı yedeğin isminin Çalışma kitabımda bulunan 'VERİ' sayfasındaki 'B1' hücresindeki değerinin olması. Acaba bu mümkünmü ?
Kodlar :
Sub Yedekle()
Dim i As String
Dim b As String
Dim c As String
Dim d As String
Application.DisplayAlerts = False
b = Len(Right(ActiveWorkbook.Name, 4))
Debug.Print b
i = Len(ActiveWorkbook.Name)
c = Left(ActiveWorkbook.Name, (i - b))
Debug.Print c
Debug.Print i
d = Format(Now, "dd mm yyyy hh mm nn")
ActiveWorkbook.SaveAs Filename:= _
"D:\HESAPLAR\YEDEK\" & c & d & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = True
ActiveWorkbook.Save
Application.Quit
End Sub
Benim halihazırda aylara göre hesap tablom var. Aşağıdaki makroyla yedek alıyorum. Benim istediğim aldığı yedeğin isminin Çalışma kitabımda bulunan 'VERİ' sayfasındaki 'B1' hücresindeki değerinin olması. Acaba bu mümkünmü ?
Kodlar :
Sub Yedekle()
Dim i As String
Dim b As String
Dim c As String
Dim d As String
Application.DisplayAlerts = False
b = Len(Right(ActiveWorkbook.Name, 4))
Debug.Print b
i = Len(ActiveWorkbook.Name)
c = Left(ActiveWorkbook.Name, (i - b))
Debug.Print c
Debug.Print i
d = Format(Now, "dd mm yyyy hh mm nn")
ActiveWorkbook.SaveAs Filename:= _
"D:\HESAPLAR\YEDEK\" & c & d & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = True
ActiveWorkbook.Save
Application.Quit
End Sub