Can anyone help, i am looking at displaying some performance information around several site on plasma screens. The information is excel based and on severla tabs within a document. What i would like to be able to do is for the document to auto tab from one tab to the next in a timed step. So would display tab 1 for 10 secs then move to tab 2 etc?

I've had good luck duplicating anything a person can do with Workspace Macro pro. You can schedule a repeating job that just steps through the tabs.

Have you a link to download this from web? Also is it difficult to use

Here is the link: http://www.tethyssolutions.com/automate-everyday-tasks.htm
It's pretty easy to record a macro, just hit record and do with your keyboard or mouse what you want it to do at the speed you want it to do. Then stop recording, save it and schedule it.
They have a demo version you can download to try it out, but the full version isn't expensive to buy.

Hello,

I have downloaded a trial version of this, just wondering how do you find the interaction of this between other applications such as excel. If I get the macro to try to open a file from a specific location within windows explorer then it struggles to find it? If the excel file is open it does what is required, not sure if this is a issue with the trial version or full application? Also scheduling doesn't seem to work in the trial version?

If you can help again would really appreciate before we spend any money on this

thanks

Hi,

You can use Excel's VBA function to do this job.

Go to Tools > Macro > Visual Basic Editor

Go to View > Project Explorer

Right clck on the bold name of your workbook and insert Module

Copy and paste the following code in blank module:

Public Const TimerTest = "ActionSub" 'call the sub routine with sheet tab
Dim SheetNo As Integer


Sub TimerStart()

Dim RunTime As Double

RunTime = Now + TimeSerial(0, 0, 10) ' Wait 10 secs
Application.OnTime EarliestTime:=RunTime, Procedure:=TimerTest, Schedule:=True 'Start sub

End Sub

Sub TimerStop()
On Error Resume Next
Application.OnTime EarliestTime:=RunTime, Procedure:=TimerTest, Schedule:=False 'stop sub
End Sub


Sub ActionSub()
'This contains the code to tab sheets

Select Case SheetNo ' Change sheet
Case 0
Sheet2.Activate
SheetNo = 3
Case 1
Sheet1.Activate
SheetNo = 2
Case 2
Sheet2.Activate
SheetNo = 3
Case 3
Sheet3.Activate
SheetNo = 1
Case Else
Sheet1.Activate
SheetNo = 2
End Select

Call TimerStart ' RESTART 10 SEC WAIT

End Sub

To start the timer go to tools > Macro > Macro and run TimerStart, to stop run TimerStop. The actual event of tabbing sheets is in ActionSub section.

Hope this is what you are looking for.

Cheers

John

Thanks for the code got it working.