Yedek Al Makrosu

[Abdulhey]

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

 

[Levent Menteşoğlu]

Kodunuzu aşağıdaki ile değiştirin.

[vb:1:7f99fc5204]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\" & [veri!b1] & ".xls
Application.DisplayAlerts = True
ActiveWorkbook.Save
Application.Quit
End Sub
[/vb:1:7f99fc5204]

Kodlarınız aşağıdaki şekilde kısaltılabilir.

[vb:1:7f99fc5204]Sub Yedekle()
ActiveWorkbook.SaveAs Filename:="D:\HESAPLAR\YEDEK\" & [veri!b1] & ".xls
Application.Quit
End Sub
[/vb:1:7f99fc5204]

 

[Abdulhey]

Teşekkürler Sayın Lenventm
Forumda daha önce yapmış olduğunuz yedek alma ile ilgili çalışmanızıda bulmuştum ama kendi çalışmama uyarlıyamamıştım. Form üzerinde kaydedilecek dosya ismini yerini değiştirilebilen bi çalışmaydı.

Tekrar teşekkür ederim yardımların için.