Yedekleme Hakkında

[ormann]

İyi günler ekteki örnek dosyada userform'dan çıkış yaptığım zaman "Dosyanızı yedeklemek istiyormusunuz ?" diye bir seçenek geliyor.Ben eveti seçtiğim zaman yedekleme yapıyor.Hayırı seçtiğim zaman ise yedekleme yapmadan sadece kayıt yaparak çıkış yapıyor.Benim istediğim Userformdan çıkış yapıp hiç bir seçeneği seçmessem 2 saniye içerisinde kayıt yapıp exel'den çıksın.Ayrıca yedekleme dosya adı,tarihi ve saati ile yedekleme yapsın istiyorum.Yardımlarınızı bekliyorum.Saygılar

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Set ds = CreateObject("Scripting.FileSystemObject")
Kyt = "D:\YEDEK"
On Error Resume Next
If Dir(Kyt) = "" Then MkDir Kyt
Dosya = ThisWorkbook.Name
uzanti = Right(Dosya, InStr(1, StrReverse(Dosya), ".", vbTextCompare))
If MsgBox("DOSYANIZI YEDEKLEMEK İSTİYORMUSUNUZ ?", vbInformation + vbYesNo, "YEDEKLEME") = vbYes Then
Dim Yedek As String
Trh = Format(Now, "dd.mm.yyyy hh_nn_ss")
ThisWorkbook.Save
ds.CopyFile ThisWorkbook.FullName, Kyt & "\" & Trh & uzanti
Else

End If
    If Excel.Application.Windows.Count > 1 Then
    ThisWorkbook.Save: ThisWorkbook.Close
    Else
    ThisWorkbook.Save: Application.Quit
    End If
End Sub

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı incelermisiniz.

 

[ormann]

Korhan bey ,çok teşekkür ederim.Ellerinize sağlık