excell 100 erli bölme

[sevensuleyman]

merhaba ;
aşağıda belirtmiş oldugum excell dosyasını buton yardımı ile seçerek aşağıda belirttiğim şekilde excell dosyaları oluşmasını istiyorum

ilk satır sabit kalacak şekilde excell dosyasındaki verileri 100 erli olarak farklı excell dosyaları oluşturmak istiyorum. 100 rakam ayarı sürekli uzun ömürlü olması için değiştirebilelim.
yardımcı olurrsanız sevnirim.

 

[sevensuleyman]

güncel

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Verileri_Bolerek_Dosya_Olarak_Kaydet()
    Dim S1 As Worksheet, Klasor As String, Say As Long
    Dim Satir_Sayisi As Variant, Son As Long, X As Long
    
    Klasor = Environ("UserProfile") & "\Desktop\" & Format(Date, "dd_mm_yyyy")
    
    If Dir(Klasor, vbDirectory) = "" Then MkDir Klasor
        
    Satir_Sayisi = InputBox("Verileri kaç satırlık dosyalara ayırmak istiyorsunuz?", "Veri Satır Sayısı", 100)
    
    If Satir_Sayisi = "" Then
        MsgBox "Lütfen pozitif bir değer giriniz!", vbCritical
        Exit Sub
    End If
    
    Set S1 = Sheets("Urun")
    
    Son = S1.Cells(S1.Rows.Count, 1).End(3).Row
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    For X = 2 To Son Step Satir_Sayisi
        Say = Say + 1
        Workbooks.Add (1)
        S1.Rows(1).Copy Range("A1")
        S1.Range("A" & X & ":A" & X + Satir_Sayisi - 1).EntireRow.Copy Range("A2")
        Columns.AutoFit
        ActiveWorkbook.SaveAs Klasor & "\Stok Listesi - " & Say, 51
        ActiveWorkbook.Close 0
    Next

    Set S1 = Nothing

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Korhan Ayhan]

Daha önce benzer bir kodlama paylaşmışım. Arama yapınca ulaştım.

Excel dosyasını belli satır sayısı ile yeni dosyalara bölmek?

Merhabalar, Excel makrolarında yeniyim. Şöyle bir ihtiyacım vardı. Elimde A'dan P'ye sutun, 20000 satırlı bir excel dosyası var. 1. satırda sütünların başlığı var. Ad, id, link vs.. gibi. Amacım bu datayı ilk satır hepsinde aynı olmak üzere 50 satır halinde bölerek yeni dosyalar kaydetmek. Bu...

www.excel.web.tr

 

[sevensuleyman]

Daha önce benzer bir kodlama paylaşmışım. Arama yapınca ulaştım.

Excel dosyasını belli satır sayısı ile yeni dosyalara bölmek?

Merhabalar, Excel makrolarında yeniyim. Şöyle bir ihtiyacım vardı. Elimde A'dan P'ye sutun, 20000 satırlı bir excel dosyası var. 1. satırda sütünların başlığı var. Ad, id, link vs.. gibi. Amacım bu datayı ilk satır hepsinde aynı olmak üzere 50 satır halinde bölerek yeni dosyalar kaydetmek. Bu...

www.excel.web.tr

çok teşekkür ederim. iyi bayramlar şimdiden