displaying an excel page on a large screen

rireland

Board Regular
Joined
Feb 12, 2004
Messages
64
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
 

Excel Facts

Pivot Table Drill Down
Double-click any number in a pivot table to create a new report showing all detail rows that make up that number

colbymack

Active Member
Joined
Jul 14, 2005
Messages
333
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
 
Master Excel Bundle

Excel contains over 450 functions, with more added every year. That’s a huge number, so where should you start? Right here with this bundle.

Forum statistics

Threads
1,168,129
Messages
5,857,537
Members
431,884
Latest member
Gcmoore63

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top