yedek alıyorum ama program yedeklediğim dosya ile çalışıyor.

[olymposss]

arkadaşlar kolay gelsin

aşağıdaki kodları kullanarak yedek alıyorum ancak yedekleme işlemi bittikten sonra program yedek aldığım dosya ile çalışıyor bunu düzenleyerek program aynı yerden çalışsın ancak yedek klasörüne aynısını kopyalasın.( not, yedek alırken ve sonrasında program çalışmaktadır)

isim = Range("a5").Value
Fname = Format(Now, "dd_mm_yyyy hh_mm_ss") & " " & isim & ".xls"
klasor = "YEDEK"
Set ws = ActiveWorkbook
Application.DisplayAlerts = False
ac:
Set Fs = CreateObject("Scripting.FileSystemObject")
If Fs.FolderExists("d:\" & klasor) Then
GoTo devam
Else
Fs.CreateFolder ("d:\" & klasor)
'GoTo ac
End If
devam:
With ws
.SaveAs "d:\" & klasor & "\" & Fname
End With
MsgBox "Yedekleme işleminiz tamamlandı. "

yardımlarınız için teşekkürler saygılar:???:

 

[alpi]

Aşağıdaki kodu bir deneyin

Dim Budosya As String
Budosya = ThisWorkbook.FullName
isim = Range("a5").Value
Fname = Format(Now, "dd_mm_yyyy hh_mm_ss") & " " & isim & ".xls"
klasor = "YEDEK"
Set ws = ActiveWorkbook
Application.DisplayAlerts = False
ac:
Set Fs = CreateObject("Scripting.FileSystemObject")
If Fs.FolderExists("d:\" & klasor) Then
GoTo devam
Else
Fs.CreateFolder ("d:\" & klasor)
'GoTo ac
End If
devam:
With ws
.SaveAs "d:\" & klasor & "\" & Fname
Workbooks.Open (Budosya)
Workbooks(Fname).Close
End With
MsgBox "Yedekleme işleminiz tamamlandı. "

 

[Mahmut Kök]

Yedek alma işini farklı kaydet seçeneği ile yaptığınız için, o andaki çalışmanız farklı bir isim alıyor ve o isim altında çalışmaya devam ediyor.

Bu şekilde yedeklemeye devam edecekseniz, yedeğini aldığınız programı (asıl dosya) makro ile açtırın ve yedeklenmiş halini de makro ile kapattırın..

 

[Mahmut Kök]

Tıpkı Alpi'nin yaptığı gibi...