Çözüldü Sayfaları ayırmak

[k0081]

Merhaba arkadaşlar;

Bir excel dosyasındaki sayfaları, aynı isimleri ile, çalışma kitabının bulunduğu konuma nasıl ayırabiliriz?

örnek dosya


indir


yardımcı arkadaşa şimdiden teşekkürler.

 

[k0081]

****** BU KONU ÇÖZÜLMÜŞTÜR. *****************

Sub SayfalariAyir()
    Dim ws As Worksheet
    Dim i As Integer
    Dim hedefKlasor As String
    
    hedefKlasor = ThisWorkbook.Path & "\"
    For Each ws In ThisWorkbook.Sheets
    
        sayfaAdi = ws.Name
        dosyaAdi = hedefKlasor & sayfaAdi & ".xlsx"
        Sheets(sayfaAdi).Copy
        ActiveWorkbook.SaveAs dosyaAdi
        ActiveWorkbook.Close False
    Next ws
End Sub