displaying an excel page on a large screen

[rireland]

I am using Excel as a scoring system for a horse event. There are many pages in the system but 3 of the pages show the running totals and places. At present we print out these pages every 1/4 hour and put them out so the competitors can see how they're going. I would like to display these pages on a large screen. I can't just link into the computer monitor as that display is going all over the place as we enter results. I guess I could set up a new file on a another computer, connected to the display that replicates the 3 critical pages but I need some means of flicking between pages so it shows the resuls for grade1 for 10 seconds then gr2 then gr3 and then back to gr1. Bear in mind all this is usually done in a paddock using gennies!
Richard

 

[colbymack]

I use this group of macros to move between 2 cells every 5 seconds. The cells are actually named (using the Insert, Name menu). The names in this case are Bcell1, and Ccell1. You could use the range name of your 3 different items you want to toggle between the different "screens" of displayed data. While the below only toggles between 2 fields, you could put in different iterations to toggle between more.

Also, you can refer to a posting by StevenD called "Checking the time." for more information, as that is where some of this came from.

HTH,
Colbymack


Public RunWhen As Double
Public Const cRunIntervalSeconds = 5 ' 5 seconds
Public Const cRunWhat2 = "Macro3"
Public Const cRunWhat = "Macro2"



Sub StartTimer()

RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _
schedule:=True
End Sub

Sub Macro2()
'
' Macro2 Macro
'
'
' Keyboard Shortcut: Ctrl+k
'
Application.Goto Reference:="Bcell1"
StartTimer2
End Sub

Sub Macro3()
'
' Macro3 Macro
'
'
' Keyboard Shortcut: Ctrl+g
'
Application.Goto Reference:="Ccell1"
StartTimer
End Sub

Sub StartTimer2()

RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat2, _
schedule:=True
End Sub