belirli süre ile satır atlatma

[benelexcel]

herkese selamlar.....

yaklaşık 5000 satırlık tablom var (artabilirde...) . isteğim şu : bu tabloyu datashow ile sunum yapmak istiyorum bir tuşa basarak (a1) hücresine yazılacak saniye kadar bir süre sonra otomotik olarak a2 hücresi seçilsin sonra a3 ve ....... listenin sonuna kadar böyle satır satır aşağıya inerek devam etsin tabii olarak bir de stop düğmesi olsa iyi olur.
ilgilenecek arkadaşlara şimdiden teşekkür ederim...

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[benelexcel]

sayın levent; gecenin bu saatinde ilgilendiğiniz için teşekkür ederim.
yalnız yazılan rakam saniye cinsinden değil sayı büyüdükçe daha hızlı ilerleme oluyor !

bir de herhalde excelden kaynaklanan bir problem ekranda görünen en alt satıra gelindiğinde bir satır miktarı değilde 5- 10 satır birden yukarıya fırlıyor ve satırdaki bilgileri takip zorlaşıyor.
kısaca sayfa ekranda en alta inildiğinde de bir satır miktarı ilerlense .... olamaz mı?
TEÞEKKÜRLER

 

[danersin]

Saniye cinsinden değil evet, küçüldükce yavaşlıyor, 3 veya 4 uygun bir hız. bu önemli mi?
kodda aşağıdaki satırı eklerseniz scroll ile ilgili sorun sadece ilk sayfa değişirken yaşanır, sonra sorun kalmaz, kursör hep sayfanın ortasında kalır.


If b1 = 2 Then
End If
Loop While finnish - Start <= 3
ActiveWindow.ScrollRow = 1
Selection.Cells.Offset(1, 0).Select
GoTo ResumeSub:
End Sub

 

[spilavci]

Sayın danersin gerçekten güzel bir çalışma

kodu belirli bir alanda yapmak için neyapacağız?Ã?rn.A5:G34 aralığı gibi

teşekürler.Bu arada zeyno344 ne yaptı acaba PP ses ekleme konusunda

iyi günler.

 

[danersin]

@spilavcı , Ã?nce belirteyimde kodlar Levent Beyin.
Son kısmını aşağıdaki gibi yapınca en başa döner örneğin.


Selection.Cells.Offset(1, 0).Select
If ActiveCell = Cells(43, 2) Then Cells(5, 2).Select
GoTo ResumeSub:
End Sub

 

[spilavci]

teşekürler selamlar