Aktif sayfayı D sürücüsüne yedek alma

[Yesilyurtlu]

Değerli ÜSTADLARIM;

Aktif çalışma sayfasını D sürücüsüne YEDEK Klasörüne Yedek alındığı sayfa ve tarih adı ile yedekleyecek kodu paylaşabilir misiniz?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub AKTİF_SAYFAYI_YEDEKLE()
    If Not CreateObject("Scripting.FileSystemObject").FolderExists("D:\YEDEK") Then
    CreateObject("Scripting.FileSystemObject").CreateFolder ("D:\YEDEK")
    End If
    Sheets.Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="D:\YEDEK\" & ActiveSheet.Name & "_" & Format(Date, "dd_mm_yyyy") & ".xls"
    ActiveWorkbook.Close
End Sub

 

[Yesilyurtlu]

Korhan Abi ;
Teşekkür Ederim.Eline Sağlık. Hakkını Helal Et