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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.