Excel Auto Scrolling? [Pictures in Thread]

[OrzoTV]

Alright, I'll try to explain what I need as best I can.

I have Microsoft Excel 2010 and I am trying to make it so that the excel document will automatically scroll down 1 row say every 10 seconds, once it reaches the end it goes back to row 2 and repeats the process.

I have fixed row 1 so that it stays displayed at all times, and have the document placed so that it shows 5 rows of information, but I have 13 rows in total. I want it to scroll down 1 row at a time and finish on 13 and return to 2. Then repeat.

I have hidden all the rows below row 13.

Does anyone know a good way to do this?

 

[JoeMo]

Install this as a standard module and run StartScroll with Sheet1 active.

Public runWhen As Date
Sub StartScroll()
runWhen = Now + TimeSerial(0, 0, 10)
Application.OnTime runWhen, "StartScroll", , True
If ActiveWindow.ScrollRow <= 12 Then
    ActiveWindow.ScrollRow = ActiveWindow.ScrollRow + 1
Else
    ActiveWindow.ScrollRow = 2
End If
End Sub
Sub StopScroll()
On Error Resume Next
Application.OnTime runWhen, "StartScroll", , False
ActiveWindow.ScrollRow = 2
End Sub

 

[OrzoTV]

Install this as a standard module and run StartScroll with Sheet1 active.

Public runWhen As Date
Sub StartScroll()
runWhen = Now + TimeSerial(0, 0, 10)
Application.OnTime runWhen, "StartScroll", , True
If ActiveWindow.ScrollRow <= 12 Then
    ActiveWindow.ScrollRow = ActiveWindow.ScrollRow + 1
Else
    ActiveWindow.ScrollRow = 2
End If
End Sub
Sub StopScroll()
On Error Resume Next
Application.OnTime runWhen, "StartScroll", , False
ActiveWindow.ScrollRow = 2
End Sub

Works perfectly!

Thank you very much!

 

[JoeMo]

Works perfectly!

Thank you very much!

You are welcome - thanks for the reply.