satır sayısı

Katılım
1 Ekim 2017
Mesajlar
685
Excel Vers. ve Dili
2019 türkçe
Merhabalar
iyi günler, iyi çalışmalar arkadaşlar. Örneğin 500 kişilik bir listem var her sayfada 20 satır olmasını istiyorum bunu kod ile yapmak mümkün mü. Yardımcı olursanız çok sevinirim.
 

Ekli dosyalar

Katılım
1 Ekim 2017
Mesajlar
685
Excel Vers. ve Dili
2019 türkçe
İyi çalışmalar arkadaşlar sorum güncelliğini koruyor. Yardımcı olursanız çok sevinirim.
 

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,086
Excel Vers. ve Dili
2007 Türkçe
Merhaba,
Aşağıdaki kodu deneyiniz.
PHP:
Sub kod()
Dim s1 As Worksheet, s2 As Worksheet, a As Integer
Set s1 = Sheets("Sayfa1")
For a = 2 To s1.Cells(Rows.Count, "A").End(3).Row Step 20
    Set s2 = Sheets.Add(after:=Sheets(Sheets.Count))
    s1.Range("1:1," & a & ":" & a + 19).Copy s2.Range("A1")
Next
End Sub
 
Katılım
1 Ekim 2017
Mesajlar
685
Excel Vers. ve Dili
2019 türkçe
Merhaba,
Aşağıdaki kodu deneyiniz.
PHP:
Sub kod()
Dim s1 As Worksheet, s2 As Worksheet, a As Integer
Set s1 = Sheets("Sayfa1")
For a = 2 To s1.Cells(Rows.Count, "A").End(3).Row Step 20
    Set s2 = Sheets.Add(after:=Sheets(Sheets.Count))
    s1.Range("1:1," & a & ":" & a + 19).Copy s2.Range("A1")
Next
End Sub
Merhaba Ömer bey İlginiz için çok teşekkür ederim. İş yerine gidemediğim için cevabınıza geç cevap verebildim kusura bakmayın. Benim isteğim tek sayfada ön izleme yaparken her sayfada 20 kişi olmasını istiyordum. İyi çalışmalar.
 

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,086
Excel Vers. ve Dili
2007 Türkçe
O halde aşağıdaki kodu deneyiniz.
PHP:
Sub kod()
Dim a As Integer
With ActiveSheet
    .ResetAllPageBreaks
    For a = 22 To .Cells(Rows.Count, "A").End(3).Row Step 20
        .HPageBreaks.Add Before:=.Cells(a, "A")
    Next
End With
End Sub
Aynı işlemi sayfa düzeni sekmesinden kesme ekleyerek elle de yapabilirsiniz.
İyi çalışmalar...
 
Katılım
1 Ekim 2017
Mesajlar
685
Excel Vers. ve Dili
2019 türkçe
O halde aşağıdaki kodu deneyiniz.
PHP:
Sub kod()
Dim a As Integer
With ActiveSheet
    .ResetAllPageBreaks
    For a = 22 To .Cells(Rows.Count, "A").End(3).Row Step 20
        .HPageBreaks.Add Before:=.Cells(a, "A")
    Next
End With
End Sub
Aynı işlemi sayfa düzeni sekmesinden kesme ekleyerek elle de yapabilirsiniz.
İyi çalışmalar...
Çok teşekkür ederim. Emeğinize sağlık.
 

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,086
Excel Vers. ve Dili
2007 Türkçe
Rica ederim, iyi çalışmalar...
 
Üst