yedek alma sorunu

[thugangel]

Merhabalar. Aşağıdaki kodla çalışma kitabından her çıkışımda yedek alıyorum.Ancak her seferinde aynı isimde mevcut dosya var uyarısı veriyor. Bu uyarıyı otomatik geçmesini istiyorum.yani dosyamı bana sormadan son haliyle kaydetsin. Yardımlarınız için gerçekten çok teşekkür ederim. Bu forum bana çok şey kazandırdı.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set ds = CreateObject("Scripting.FileSystemObject")
ThisWorkbook.Save
If ds.FolderExists("D:\YEDEK DEFTER") = False Then
ds.CreateFolder "D:\YEDEK DEFTER"
End If
Set s1 = Sheets("Sayfa2")
ActiveWorkbook.SaveAs Filename:="D:\YEDEK DEFTER\" & s1.[a8] & " - " & ActiveWorkbook.Name & ".xlsm"
End Sub

 

[Excelmy]

Sayın thugangel

Kullandığınız kodları nasıl bileceğiz.

Eklememişsiniz.

 

[thugangel]

Bu arada dosyayı hep aynı isimle kaydetmek zorundayım. dosya ismine tarih. - saat eklemesi yapmadım

 

[thugangel]

evet farkettim hemen düzelttim

 

[Excelmy]

Bu şekilde uygulama yapın.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Set ds = CreateObject("Scripting.FileSystemObject")
ThisWorkbook.Save
If ds.FolderExists("D:\YEDEK DEFTER") = False Then
ds.CreateFolder "D:\YEDEK DEFTER"
End If
Set s1 = Sheets("Sayfa2")
ActiveWorkbook.SaveAs Filename:="D:\YEDEK DEFTER\" & s1.[a8] & " - " & ActiveWorkbook.Name & ".xls"
Application.DisplayAlerts = True
End Sub

 

[thugangel]

çok teşekkür ederim.