Auto scrolling

[lupestrada]

I have a excel sheet with posted numbers that I would like to present on a large screen in front of our office. would anyone have a macro that would assist in auto scrolling through the excel sheet to the last page, then repeating over and over until I press a key to stop?

[LJMetzger]

Hi lupestrada and welcome to ExcelForum,

Try the attached file, which should work for any Excel file.

Lewis

[lupestrada]

Great Lewis,thanks so much for the help. quick question, When I attempt to run the macro provided I get a message stating
"code in project must be updated for 64bit system review and declare statements then mark them with the PtrSafe attribute".

Would you know how to fix this message?

[LJMetzger]

Hi,

It seems like you have a 64 bit version of Excel, which is fine. I apologize for the problem, but since I only have 32 bit Excel 2003, it is impossible for me to test the 64 bit code. Please bear with me. It may take a while, but we will eventually get you something that works to your satisfaction.

According to Microsoft, this warning message only occurs when in VBA, and can be ignored.
http://support.microsoft.com/kb/983043

Anecdotal evidence suggests, that it may stop the code from running.

I took out most of the offending code, which unfortunately leaves the Excel Cursor visible.

If this version doesn't work, and you are able to modify VBA, please try making the following changes in the new code. At the top of module 'ModAutoScroll':

'Replace this:
#If VBA7 And Win64 Then
    ' 64 bit Excel
    'The following line is supposed to be RED in 32 bit Excel
    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongLong)
#Else
    ' 32 bit Excel
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If


'With this:
    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongLong)

If you aren't able to modify VBA and you still have a problem, I will provide a new update, that only allows scrolling in increments of 1 full second.

I apologize again.

Lewis