Bir dosyadakı sayfaları ayrı ayrı excel dosyalarına kaydettirme.

[doganayfidaan]

Sub Kaydet()

    Dim wb As Workbook
    Dim ws As Worksheet
    Dim strFileName As String
    Dim strFolderName As String
    Dim strDate As String
    Dim i As Integer
   
    strFolderName = ThisWorkbook.Path & "\YEDEK\"
   
    If Dir(strFolderName, vbDirectory) = "" Then
        MkDir strFolderName
    End If
   
    strDate = Format(Date, "dd.mm.yyyy")
   
    Set wb = ThisWorkbook
   
    For i = 5 To wb.Worksheets.Count
        Set ws = wb.Worksheets(i)
        strFileName = strFolderName & ws.Name & "-" & strDate & ".xlsx"
        ws.Copy
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:=strFileName, FileFormat:=51
        ActiveWorkbook.Close
        Application.DisplayAlerts = True
    Next i
   
End Sub

Hocam verdiğiniz yanıt macOS için mi windows için mi?

 

[RBozkurt]

Windows denedim, çalışıyor

 

[doganayfidaan]

Windows denedim, çalışıyor

Son ilettiğiniz kod düzgün çalışmıyor,Sayfa sınırlaması yapılmıyor direkt kopyalamya başlıyor öncesindeki kodunuz daha düzgün çalışmakta.Benim şuanlık isteğim macOs için hocam. Ve bundan önceki ilettiğiniz kodlamada 41.sayfadan sonra listeleme gerçekleşmiyor onun içinde bir çözüm lazım.

 

[doganayfidaan]

!GÜNCEL

 

[doganayfidaan]

Güncel