Veri Aktarma

[gsaglam]

Yaklaşık 20 000 satır olan bir excel dosyası var. Bu dosyayı 500 satır 500 satır sayfalara ayırmak istiyorum, nasıl yapabilir.
Teşekkürler

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Sub SayfalaraBol()
    SayfaSilOlustur
    For i = 1 To Sheets("Sayfa1").[a65536].End(3).Row Step 500
        x = x + 1
        Sheets("" & x & "").Rows("1:500") = Sheets("Sayfa1").Rows(i & ":" & i + 499).Value
    Next
    MsgBox "Bitti"
End Sub
Sub SayfaSilOlustur()
    For i = Sheets.Count To 1 Step -1
        If Sheets(i).Name <> "Sayfa1" Then
            Application.DisplayAlerts = False
               Sheets(i).Delete
            Application.DisplayAlerts = True
        End If
    Next
    s = WorksheetFunction.RoundUp(Sheets("Sayfa1").[a65536].End(3).Row / 500, 0)
    For i = 1 To s
       Sheets.Add: ActiveSheet.Name = i
    Next
End Sub

 

[gsaglam]

işime yaradı teşekkür ederim