farklı kaydet

[gelen gecer mdmx]

Private Sub CommandButton3_Click()
 MsgBox "Varolan Bilgileri  " & Format(Date, "dd.mm.yyyy") & "  tarihinde Yedekliyorsunuz!!!"

Dim yol As String
yol = "C:\"
ActiveWorkbook.SaveAs yol & "DESTAN     " & Format(Date, "dd.mm.yyyy") & ".xls"

End Sub

diye bir macro yazdım mevcut dosyayı kaydediyor aynı gün yedekleme yapınca doğal olarak böyle bir dosya var değiştirilsin mi diyor. hayır a tıklayınca hata veriyor. yardımcı olabilirmisiniz?

 

[ftekin]

Anladığım kadarıyla değiştirilsin mi tarzında uyarı mesajı almak istemiyorsunuz.
Eğer öyleyse;

MsgBox "Varolan Bilgileri " & Format(Date, "dd.mm.yyyy") & " tarihinde Yedekliyorsunuz!!!"

Dim yol As String
Application.DisplayAlerts = False 'Uyarı vermemesi için
yol = "C:\"
ActiveWorkbook.SaveAs yol & "DESTAN " & Format(Date, "dd.mm.yyyy") & ".xls"

 

[gelen gecer mdmx]

yok böyle bir mesaj gelsin ama bu gelen mesaja hayır dediğim zaman hata veriyor. bunu nasıl çözebilirim acaba?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Private Sub CommandButton3()
    On Error GoTo Son
    MsgBox "Varolan Bilgileri  " & Format(Date, "dd.mm.yyyy") & "  tarihinde Yedekliyorsunuz!!!"
    
    Dim yol As String
    yol = "C:\"
    ActiveWorkbook.SaveAs yol & "DESTAN     " & Format(Date, "dd.mm.yyyy") & ".xls"
Son:
End Sub

 

[gelen gecer mdmx]

çok teşekkür ederim.güzel çalışıyor. iyi günler.