arkadaslar selamlar ben yapmış oldugum excel vb kullanarak yedek al butonu koydum. İstediğim olay tarih olarak hangi gündeysek Örneğin : 09 nisan 2008 olarak yedek almasını istiyorum .fakat hata veriyor.
Private Sub CommandButton15_Click()
cevap = MsgBox("Bilgilerinizin son hali bugunku tarihle farklı kayıt edilerek yedeklenecektir. Yedeklenen bilgilere :" & yedekyolu & " My Documents ''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:\Windows\desktop\doluluk\doluluk tablosu-" & Date & " olarak kaydediliyor... Lutfen Bekleyiniz..!"
dosyaadi = "DOLULUK YEDEK-" & Str(Date)
ActiveWorkbook.SaveAs Filename:=dosyaadi & ".xls"
son:
end sub
hata verdiği yerdiği yer kırmızı olarak belirtilmiştir.
Bilenlerin çok acil yardım etmesi dileğiyle
Private Sub CommandButton15_Click()
cevap = MsgBox("Bilgilerinizin son hali bugunku tarihle farklı kayıt edilerek yedeklenecektir. Yedeklenen bilgilere :" & yedekyolu & " My Documents ''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:\Windows\desktop\doluluk\doluluk tablosu-" & Date & " olarak kaydediliyor... Lutfen Bekleyiniz..!"
dosyaadi = "DOLULUK YEDEK-" & Str(Date)
ActiveWorkbook.SaveAs Filename:=dosyaadi & ".xls"
son:
end sub
hata verdiği yerdiği yer kırmızı olarak belirtilmiştir.
Bilenlerin çok acil yardım etmesi dileğiyle