arşiv sayfası

[önder34]

merhaba arkadaşlar ekte yaptığım çalışmayı ay sonlarında ay ve yıl adı girerek başk bir excel sayfasına yada başka bir klasöre arşivlemek istiyorum bunu nasıl yapabiliriz.ekders1 ve ekders 2 sayfaları arşivlencek ve tek bir sayfada arşivleme yapacak .yardımlarınızı bekliyorum

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SAYFAYI_YEDEKLE()
    If Not CreateObject("Scripting.FileSystemObject").FolderExists("C:\YEDEK") Then
    CreateObject("Scripting.FileSystemObject").CreateFolder ("C:\YEDEK")
    End If
    Sheets(Array("ekders", "ekders2")).Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\YEDEK\" & ActiveSheet.Name & "_" & Format(Date, "mmmm_yyyy") & ".xls"
    ActiveWorkbook.Close
End Sub

 

[önder34]

yedeklemeyle ilgili bir buton falan kullanacakmıyız ben işin içinden çıkamadım dosya üzerinde gösterebillirseniz çok daha iyi olacak .ilginiz ve yardımınız için teşekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki görsel anlatımı inceleyiniz.

[URL="http://www.excel.web.tr/f157/sayfada-buton-duome-olu-turmak-ve-makro-atamak-t59436.html"]Sayfada Buton-Düğme Oluşturmak ve Makro Atamak (Resimli Anlatım)[/URL]

 

[mustafakoker]

Eki İnceleyiniz
Not Kodlar Korhan Hocamdan (ç)alıntıdır.

 

[önder34]

Arkadaşlar bayram nedeniyle nete giremedim yardımını esirgemeyen herkese paylaşımından dolayı teşekkür ederim .