hergün kopyalama

[dr_1356]

hergün bir excel dosyası kopyalanıp otomatik olarak kopyaladıgı dosyanın isminide o günkü gün ve ay tarihini atarak örneka xlşs dosyası kopyalanıp 01.08.xls ertesi gün 02.08xls........ gibi olabilirmi

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Dosyanızın bulunduğu klasöre yedekleme yapar. Dilerseniz kırmızı renkli bölümü değiştirerek farklı alanlara yedek oluşturabilirsiniz.

Option Explicit
 
Sub YEDEK_OLUŞTUR()
    Dim Dosya_Yolu As String
    Dim Dosya_Adı As String
    Application.DisplayAlerts = False
    [COLOR=red]Dosya_Yolu = ThisWorkbook.Path & "\"[/COLOR]
    Dosya_Adı = Format(Date, "dd.mm") & ".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

 

[dr_1356]

çok sagolun teşekür edrim ama bu makroyu nasıl yapacagımı bilemiyorum tarif edebilirmisiniz size çok oluyorum kusura bakmayın

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linki incelermisiniz.

http://www.excel.web.tr/f157/sayfada-buton-dugme-olusturmak-ve-makro-atamak-resimli-t59436.html

 

[dr_1356]

çok teşekür ederim sagoloun