DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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.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
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
Çok teşekkür ederim. Emeğinize sağlık.O halde aşağıdaki kodu deneyiniz.
Aynı işlemi sayfa düzeni sekmesinden kesme ekleyerek elle de yapabilirsiniz.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
İyi çalışmalar...