Sayafaya sığmıyorsa alt sayfaya geçiş

[acar6783]

Kolay gelsin arkadaşlar,
Ekteki resimde olduğu gibi sıralı veriler eğer birsayfadan diğer sayfaya geçiyorsa tamamını bir sonraki sayfaya nasıl kaydırabilirim?

Not:Sayafalarca veri vardır.

Bir türlü mantık kuramadım
Yardım ve önerilerinizi bekliyorum.

https://yadi.sk/i/Y2Wz9e6p3Syv5p

 

[acar6783]

Sorun çözülmüştür.

SAY = WorksheetFunction.CountIf(fl.Range("A1:A" & fl.Cells(Rows.Count, "A").End(3).Row), aranan)

kacıncı = WorksheetFunction.Match(aranan, fl.Range("A1:A" & fl.Cells(Rows.Count, "A").End(3).Row), 0)
hangisatır = son_sat + SAY + 2

For satırtespit = 70 To 4200 Step 70


If son_sat = satırtespit Then son_sat = son_sat + 1
For h = 1 To SAY + 3
If son_sat = satırtespit - h Then son_sat = son_sat + h + 1

Next h

Next satırtespit