Her sayfayı farklı olarak kaydetme

[gercekgun]

Çok fazla sayfalı bir excel belgem var.. Artık sayfa eklemekte zorlanıyor.. Belgede çok kasmaya başladı.. Amacım bu sayfaların her birini ayrı ayrı çalışma kitabı olarak kayıt etmek.. Kendi sayfa isimleriyle beraber.. Bu işimi kolaylaştıracak bir yol biliyor musunuz?

 

[Muzaffer Ali]

Aşağıdaki kodlar işinizi görür mü?

Sub SayfayiDosyaYap()
    Dim Sayfa As Worksheet
    For Each Sayfa In ThisWorkbook.Worksheets
        If Sayfa.Name = "Kopyalamak istemediğin Sayfa adı" Then
        'Eğer kopyalanmasını istemediğiniz bir sayfa varsa yukarıya adını yazarsanız onuı kopyalamaz
        Else
            
            Sayfa.Copy
            ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sayfa.Name & ".xls"
            ActiveWorkbook.Close
        End If
    Next
End Sub