Exceldeki belli sheetleri farklı bir dosya olarak kaydetme

[u.L.a.s]

Merhabalar

Bir excel dosyam var. içerisinden bir kaç tane sheet var.

Ben bu sheetlerden bazılarını bir makro ile bugünün tarihinide dosya adı ile birlikte yazacak şekilde başka bir excel dosyası olarak kaydetmek istiyorum.

Örneğin

aaa.xlsm diye bir excel dosyam var

bu dosyada aşağıdaki gibi farklı isimlerde sheetler var. abc sheetimde makro butonum olacak. buna bastığım zaman dfg,hjk,lmn sheetlerini tek bir excel dosyası içerisine alıp o excel dosyasını "aaa 13-04-2016.xlsm" adıyla kaydedecek. Yani bu durumda abc ile xyz sheetlerini bu dosyaya almamış olacak.
abc
dfg
hjk
lmn
xyz

Konu hususunda bilgi ve yardımlarınızı rica ederim

 

[u.L.a.s]

bende bu konuyla ilgili aşağıdaki gibi bir makro kod düzeneği var. fakat bu bütün sheetleri kaydediyor. ben sadece istediğim sheetleri ayrı bir excel dosyasında kaydetsin istiyorum. bu kod üzerinde düzenleme yapmak daha kolay olabilir diye yolluyorum

Sub Auto_close()
MsgBox "PROGRAM KAPATILIYOR"
ActiveWorkbook.Save
On Error Resume Next
org = ThisWorkbook.FullName
tarih = Format(Now - 1, "dd-mm-yyyy")
Application.DisplayAlerts = False
Application.StatusBar = "Dosyalar Siliniyor !!!..."
Kill ("C:\Users\username\Desktop\klasor\xxx.xlsm")
Application.StatusBar = "Bu uygulama C:\Users\username\Desktop\klasor\xxx " & tarih + ".xlsm olarak farklı kaydediliyor..."
ActiveWorkbook.SaveAs Filename:="C:\Users\username\Desktop\klasor\xxx " & tarih, FileFormat:=xlNormal
Application.StatusBar = False
Application.DisplayAlerts = False
Workbooks.Open(Filename:=org).RunAutoMacros Which:=xlAutoDeactivate
Windows("atm_offline " & tarih + ".xlsm").Close False
End Sub