Scrolloing
Sandy
Right click your sheet tab, View code and paste this in. It scrolls from a1
to the last used cell in column A at the rate of 1 row per second. Change the
time value to suit
Sub sonic()
lastrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Range("A1").Select
For x = 1 To lastrow
ActiveWindow.ScrollRow = activerow + x
Application.Wait Now + TimeValue("00:00:01")
Next
End Sub
Mike
"Sandy" wrote:
Is there any way to code smooth scrolling in vba, such that the information
can be read as the scroll takes place. I suppose I mean a slow scroll.
I have tried .ScrollRow and .SmallScroll combined with Time Values which
does scroll slowly but jumpy.
Sandy
|