sheet leri ayirma

[kadir68]

iyi gunler arkadaslar,
2 gundur forumlarda aramama ragmen istedigim gibi bir makro bulamadim.
benim yapmak istedigim sey uzerinde calistigim bir excel dosyasi var ,bu dosyanin icin 10 tane sheet var, ben bu sheetlerde 4 tanesini alip baska bir isimle kaydedecek bir makro ariyorum.
yani benim calistigim dosyanin adi takip.xls ve bu dosyada sheet1,sheet2,sheet3......sheet10 kadar calisma sayfalari var ben ornegin sheet2,sheet5 ,sheet7 ve sheet 9 u iceren yedek.xls adinda bir dosya olarak farkli bir dizine kaydetmek istiyorum.
yardimlarinizi bekliyorum arkadaslar

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz. Kodda geçen sayfa isimlerini ve dosya yolunu kendinize göre değiştirmeyi unutmayınız.

Option Explicit
 
Sub İSTENİLEN_SAYFALARI_YEDEKLE()
    Sheets(Array("Sayfa1", "Sayfa3")).Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\YEDEK\YEDEK.xls", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ActiveWindow.Close
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[kadir68]

tam istedigim gibi olmus,cok tesekkur ederim