Automatic Row Scrolling

[ramshakku]

Hi,

I have excel file with 1045 rows, which I needs to display in the display board.
I will zoom the excel file to display for the first 20 rows, thereafter that excel sheet should auto scroll one row after with time interval of 1 second.
After it reaches last row, automatically it has to be redirected to the 1 st row.
This iteration should happen endlessly.
How to accomplish the above requirement ? Need your best support dears.

Regards,
Ram

 

[RatExcel]

Sub ScrollMe()

For i = 1 To 1045
    Application.Wait (Now + TimeValue("00:00:01"))
    ActiveWindow.SmallScroll Down:=1
Next i

ActiveWindow.SmallScroll Up:=1045

Call ScrollMe

End Sub

 

[AlphaFrog]

Here's another method. Run Scroll_Start to start the scrolling and run Scroll_Stop to stop or before you close the worksheet.

[color=darkblue]Public[/color] NextTime [color=darkblue]As[/color] [color=darkblue]Date[/color] [color=green]'Place this at the very top of the code module[/color]
    
[color=darkblue]Sub[/color] Scroll_Start()
    NextTime = Now + TimeValue("00:00:01")  [color=green]'One second interval[/color]
    [color=darkblue]If[/color] ActiveWindow.VisibleRange.Rows(1).Row < (1045 - 20) [color=darkblue]Then[/color]
        ActiveWindow.SmallScroll Down:=1
    [color=darkblue]Else[/color]
        ActiveWindow.ScrollRow = 1
    [color=darkblue]End[/color] [color=darkblue]If[/color]
    Application.OnTime NextTime, "Scroll_Start"
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
    
[color=darkblue]Sub[/color] Scroll_Stop()
    [color=darkblue]On[/color] [color=darkblue]Error[/color] [color=darkblue]Resume[/color] [color=darkblue]Next[/color]
    Application.OnTime NextTime, "Scroll_Start", Schedule:=[color=darkblue]False[/color]
[color=darkblue]End[/color] Sub

 

[ramshakku]

Dear RatExcel,

Really thanks for your immediate help.