Sayfayı farklı kaydetme

[saroz]

Ek'te gönderdiğim Excel dosyasında sorunumu ayrıntılı olarak açıkladım. Excel sayfasının yedekleme amaçlı farklı kaydedilmesini istiyorum.

 

[saroz]

Excel ustaları bu konuyla ilgili birkaç kez yardım istedim ama kimse yardım etmiyor.

 

[Korhan Ayhan]

Selamlar,

Forumda arama yapsaydınız yedekleme ve farklı kaydetme ile ilgili onlarca başlığa ulaşabilirdiniz. Bu konu bir çok kez işlenmişti. Aşağıdaki kodu modüle ekleyip denermisiniz.

Option Explicit
 
Sub YEDEK_OLUŞTUR()
    Dim Dosya_Yolu As String
    Dim Dosya_Adı As String
    Application.DisplayAlerts = False
    Dosya_Yolu = "L:\1201_GENEL EVRAK\SAROZ\SAROZ2010\APS DOSYASI\NİSAN 2010\"
    Dosya_Adı = Range("H1") & " - " & Format(Now, "ddmmyyyy_hhmmss") & ".xls"
    ActiveWorkbook.SaveAs (Dosya_Yolu & Dosya_Adı)
    MsgBox "Yedekleme işlemi tamamlanmıştır.", vbInformation
    If Excel.Application.Windows.Count = 1 Then
    Application.Quit
    Else
    ThisWorkbook.Close
    End If
End Sub