satır sayısı

sedat2161

Altın Üye
Altın Üye
Katılım
1 Ekim 2017
Mesajlar
272
Beğeniler
14
Excel Vers. ve Dili
2010 türkçe
#1
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

sedat2161

Altın Üye
Altın Üye
Katılım
1 Ekim 2017
Mesajlar
272
Beğeniler
14
Excel Vers. ve Dili
2010 türkçe
#2
İ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
2,645
Beğeniler
189
Excel Vers. ve Dili
2007 Türkçe
#3
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
 

sedat2161

Altın Üye
Altın Üye
Katılım
1 Ekim 2017
Mesajlar
272
Beğeniler
14
Excel Vers. ve Dili
2010 türkçe
#4
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
2,645
Beğeniler
189
Excel Vers. ve Dili
2007 Türkçe
#5
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...
 

sedat2161

Altın Üye
Altın Üye
Katılım
1 Ekim 2017
Mesajlar
272
Beğeniler
14
Excel Vers. ve Dili
2010 türkçe
#6
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
2,645
Beğeniler
189
Excel Vers. ve Dili
2007 Türkçe
#7
Rica ederim, iyi çalışmalar...
 
Üst