Tabloyu sayfa sayfa gösterme

[merakli_72]

Merhaba arkadaşlar ekteki gibi bir çalışma kitabımız var,
Burdaki satır sayısı değişebiliyor yani tablo daha oldukça uzayabilir.

Yapmak istediğimiz tablonun 1.sayfası ekranda belli bir süre bekleyecek sonra pgDown basılmış gibi 2.sayfa gelecek ekrana, bu şekilde devam edecek son sayfaya geldiğinde tekrar 1.sayfaya dönecek

Benim sıkıntım son sayfaya gelindiğini nasıl anlayacağız ki tablonun son kısmını gösterdiğinde tekrar başa dönsün, Bir ekran sayfası 20 satırdan oluşur desek çözünürlüğe göre satır sayısı değişiyor ve buda farklı bilgisayarlarda kullanılacak

 

[hımmmmmmmm]

selam

şunu dene..

SATIRSAY=Worksheetfunction.countA(sheets("SayfaAdı").RANGE("A:A"))

komutu ile Satıcı isimleri kısmının Dolu hücrelerini saydır..
atıyorum 203 saydı ise, 20 şerli sayfalar halinde görmek istiyorsan, 11 adet sayfan olmasını sağla...
bu sayıyı kontrol ettirerek döngüde kullan... döngü bitince goto ile başa dön

DoEvents ilede mause kullanman mümkün.

böylece tablon sayfa sayfa sürekli dönecek bitince tekrar başa dönüp baştan tekrarlayacak
netice alamazsan bakarız...

 

[merakli_72]

Selam;
Pgdown tuşuna basılmış gibi yani bir ekran sayfası sonraya gidicek bunu nasıl sağlayacağız
Gerçek sayfa olsa sayfa kesmesi konarak 20 sayfaya bölünebilirdi ama ekran sayfasına nasıl böleceğiz

 

[hımmmmmmmm]

şunu bir dene

sayfaya komut butonu oluştur ve click yordamına şunu yaz
program duraklayarak pg down yapar...sonra başa döner tekrar dönmeye başlar. sen durdurana kadar...

ActiveWindow.LargeScroll Down:=I
komutu pg down yapan satırdır. sana fikir verebilir...

SATIR = WorksheetFunction.CountA(Sheets("Sayfa1").Range("A:A"))
X = Int(SATIR / 20) + 1
'--------------------------------------------
BASLA:
For I = 1 To X
For K = 1 To 400000: DoEvents: Next K
ActiveWindow.LargeScroll Down:=I
Next I
Range("A2").Select
GoTo BASLA