YEDEKLEME İçİN YARDIM

[cycl]

YEDEKLEME İÇİN YARDIM

ÇALIŞMA KİTABINI YEDEK ALMAK İÇİN NE YAPABILIRIM VE ALDIGIM YEDEKLERI GERI NASIL CAGIRABILIRIM YARDIMCI OLURSANIZ SEVINIM

 

[airborne]

yedekleme için önce belgelerim klasörüne yedeklerinizi toplayacağınız bir klasör açın daha sonra

Private Sub CommandButton20_Click()
cevap = MsgBox("Bilgilerinizin son hali bugunku tarihle farklı kayıt edilerek yedeklenecektir. Yedeklenen bilgilere :" & yedekyolu & "Belgelerim klasöründen erişebilirsiniz. Devam etmek istiyor musunuz..?", vbYesNo, "Yedek Alma...")
If cevap = vbNo Then
GoTo son
End If
Application.StatusBar = " Belgeniz: C:\Belgelerim\Bordro Yedek\Bordro Yedek-" & Date & " olarak kaydediliyor... Lutfen Bekleyiniz..!"
dosyaadi = "c:\Belgelerim\BordroYedekleri'yedeklerinizi toplayacağınızklasör ismini buraya yazın\Yedekleyeceğiniz dosya adı Yedek-" & Str(Date)'
ActiveWorkbook.SaveAs Filename:=dosyaadi & ".xls"
son:
Application.Quit
End Sub