scrollbar hareketi

[barutkokusu]

Sn. Hocalarım,
Yeni konu açamıyorum. O yüzden buraya yazıyorum.
Ekteki dosyada departures sayfasındaki hücreleri baştan sona kadar gidip,
tekrar başa döndürecek bir döngüye ihtiyacım var.
Yani slideshow gibi birşey olacak.
saygılarımla

 

[Korhan Ayhan]

Merhaba,

Neden yeni konu açamıyorsunuz? Anlam veremedim...

Aşağıdaki kodu deneyiniz.

Sub Makro1()
    Dim X As Integer
    
    Cells(1, 1).Select
    
    DoEvents
    
    For X = 1 To Cells(Rows.Count, 1).End(3).Row
        ActiveWindow.SmallScroll Down:=1
        Application.Wait Now + TimeValue("00:00:01")
    Next

    Cells(1, 1).Select
End Sub