Alt sekmeleri farklı sayfalara halinde kayıt etmek mümkünmü ?

[enesyildiz]

Merhaba Arkadaşlar.
Başlığı okuyan herkesin aklına sekmeye sağ tıklayıp yeni kitaba taşıyıp oradan farklı kaydettir muhtemelen.
Fakat Benim istediğim alt sekmelerde süzülmüş veriler var. aynı excel çalışma kitabın sekme isimlerine uygun şekilde farklı kaydet yapmak mümkün mü?

misal verecek olursak sekme isimleri Sinop Sivas Samsun gibi iller. ben bunları aynı isimler farklı çalışma kitabı olarak kayıt etmek istiyorum.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodları kullanabilirsiniz.

Sub SayfalariKaydet()
    Dim Syf As Worksheet
    For Each Syf In ThisWorkbook.Worksheets
        Syf.Copy
        ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Syf.Name
        ActiveWorkbook.Close
    Next
End Sub