İsteğe bağlı Yedekleme

[mehmetkoca]

Arkadaşlar aşağıdaki kod yardımıyla excel sayfasını masaüstünde bir klasöre yedekliyorum.Yapmak istediğim bu koda bir ekleme yaparak , eğer aynı isim ve numaralı dosya yedeklenmişse Msg box çıkıp ( Bu dosya daha önce yedeklenmiştir , yinede yedeklemek istiyormusunuz) şeklinde uyarının çıkıp hayır denilince işlemin iptal edilmesi , evet deyince ise eski dosyanın üzerine yedekleme yapması.

Yardımlarınız için şimdiden teşekkürler.Saygılarımla.

Sub Yedek_Al()
    Dim Dosya_Yolu As String, Dosya_Adı As String
    
Application.ScreenUpdating = False
    Sheets("BİLDİRİM").Select
    Sheets("BİLDİRİM").Copy
     
    Dosya_Adı = Range("L1").Value & " - " & Range("L4").Value & " - " & Range("L2").Value & ".xls"
    ActiveWorkbook.SaveCopyAs Filename:="C:\Documents and Settings\ADMIN\Desktop\BİLDİRİM DOSYASI" & Application.PathSeparator & Dosya_Adı
    ActiveWorkbook.Close 0
    Sheets("BİLDİRİM").Select
Application.ScreenUpdating = True
    MsgBox "Yedekleme işlemi tamamlanmıştır.", vbInformation
End Sub

 

[mehmetkoca]

İsteğe bağlı yedekleme

Yardımcı olabilirmisiniz değerli Üstadlar

 

[mehmetkoca]

Isteğe bağlı yedekleme

Bu konuda fikri olan varmı arkadaşlar