Sayfaları ayırma

[BBBBuRaKKKK]

Merhaba,

Excel' de sayfalarım var.
1. sayfa sabit kalacak şekilde bütün sayfaları ayırmak istiyorum.
Ayırdığım her excel dosyasında 1. sayfanın olması gerekiyor.
Dosya yükleyemedim malesef altın üye olmadığım için.

Yardımcı olur musunuz?

 

[dEdE]

Merhaba,
Sorunuz, Excel'e Yeni Başlayanlar bölümünde ama kod ile çözmek isterseniz aşağıdaki kodu örnek bir dosya üzerinde deneyiniz.

Sub Sayfa_Ayir()
    Application.ScreenUpdating = False
    Set KTP = Workbooks("Test.xlsm") 'Buraya örnek dosyanızın adını yazın.
    For i = 2 To Sheets.Count
        KTP.Sheets("Sayfa1").Copy
        KTP.Sheets(i).Copy after:=ActiveWorkbook.Sheets(Sheets.Count)
        ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Test" & i & ".xlsx", 51
        ActiveWorkbook.Close
    Next
    Application.ScreenUpdating = True
End Sub

 

[BBBBuRaKKKK]

Elinize sağlık, teşekkür ederim