Hey NickHK,
I was able to get the first version to work and it looks great, but
like you said, it is a little unstable, difficult to terminate if let to run
for a little while. And in real use, the paging part will be left to run for
extended periods of time.
I was not able to get this later version to run, primarily because it
will not "compile".
You mentioned something about putting the Public constants, etc in a
module. I dont know how to do that, I'm not familiar with the Excel
environment. I set up command buttons for the macros I recorded and they
work. I'm trying to activate this paging code also w/ a Command button, but
when I tried to put this paging code in with the rest of my Command button
code, it blows up. I tried putting the Public constants & variables at the
top, but it still blows up. Where do I put it?
Sorry I'm so clueless.
Joe
"NickHK" wrote:
> This version is a bit more stable. As you cannot pass parameters in a call
> to .OnTime, use public variables to pass settings:
> SHIFT+ESC to halt execution.
>
> '<Standard Module code>
> Public StartRange As Range
> Public NextRange As Range
>
> Public Const HOURS_DELAY As Long = 0
> Public Const MINUTES_DELAY As Long = 0
> Public Const SECONDS_DELAY As Long = 2
>
> Public Const ROWS_JUMP As Long = 25
> Public Const COLUMNS_JUMP As Long = 0
>
> Public mStopLoop As Boolean
>
> Public Sub MyGoToLoop()
>
> With Application
> .Goto NextRange, True
>
> If ActiveCell.Row + ROWS_JUMP < ActiveSheet.UsedRange.Rows.Count Then
> Set NextRange = ActiveCell.Offset(ROWS_JUMP, COLUMNS_JUMP)
> Else
> Set NextRange = StartRange
> End If
>
> If mStopLoop = False Then
> .OnTime Now + TimeSerial(HOURS_DELAY, MINUTES_DELAY, SECONDS_DELAY),
> "MyGoToLoop"
> Else
> .Goto StartRange, True
> .OnKey "+{ESC}", ""
> End If
> End With
>
> End Sub
>
> Public Function StopLoop()
> mStopLoop = True
> End Function
> '</Standard Module code>
>
> '<WS Copde>
> Private Sub CommandButton1_Click()
>
> Set StartRange = Range("A1")
> Set NextRange = Range("A1").Offset(ROWS_JUMP, COLUMNS_JUMP)
> mStopLoop = False
>
> With Application
> .Wait Now + TimeSerial(HOURS_DELAY, MINUTES_DELAY, SECONDS_DELAY)
> .OnKey "+{ESC}", "StopLoop"
> End With
>
> Call MyGoToLoop
>
> End Sub
> '</WS Copde>
>
> NickHK
>
> "Grrrrrumpy" <(E-Mail Removed)> wrote in message
> news:B5B1641D-0ACF-4B7C-9F8E-(E-Mail Removed)...
> > No code can be seen/ modified, it was pass protected. I think I'm being
> > confusing. I want to display 28 or so rows of screen1 of a spreadsheet,
> > pause, page down, display the next 28 rows, pause, page down.. etc. I want
> > code or a macro to do this. When I reached the bottom, say 25 pages, I
> want
> > to go to the top and start over. If you do a print preview or a web page
> > preview of a spreadsheet, you will get an idea of what I want to see on
> the
> > screen. I dont want to see the row or column markings on the screen.
> >
> > "NickHK" wrote:
> >
> > > Can't you just edit the code you have from before, change the 4 to 18.
> > >
> > > NickHK
> > >
> > > "Grrrrrumpy" <(E-Mail Removed)> wrote in message
> > > news:3C18552E-0AA6-4FC1-9338-(E-Mail Removed)...
> > > > In an Excel 2003 spreadsheet, I have my layouts in sheet1, my data is
> > > input
> > > > for these layouts are inputted from sheet2.
> > > > The layouts consist of 28-30 rows (this can be changed to fit on a
> > > screen).
> > > > I want to display on the screen the 30 rows of sheet1.
> > > > A laptop will be connected to a big screen TV so it can be viewed in a
> > > large
> > > > room.
> > > > I want to pause a few seconds, page down and display the next 28 or
> 30
> > > > rows, pause, page down...etc.
> > > > When I reach the bottom, I want to go to the top and start the display
> > > > again. The display should be in "web page format" or "print preview
> > > format".
> > > > To stop the process, the user press the ESC key.
> > > >
> > > > This has done before. It displays groups of 4 teams in a round robin
> > > format
> > > > that
> > > > is updated during the event. The previous code was limited to 72
> teams -
> > > 18
> > > > screens. It needs to be expanded. The macros were pass protected and
> are
> > > > unaccessible.
> > > >
> > > > How do I do put the worksheet in webpage format and page down thru it?
> > > >
> > > > Thanks
> > > > Joe
> > > >
> > >
> > >
> > >
>
>
>
|