Auto Scroll Separate Files

[jarett]

I am setting up a TV screen that is hooked up to a laptop (HDMI), I have 4-5 separate Excel files that I would like to display on the tv screen. The files are not live and will just refresh through out the day. I know I can adjust the size and have all of them open on the same screen but, I was looking for a way to have each one open at maximum screen size and basically toggle/scroll to each file every minute or so. Is this possible or do I need some third party software add on?

 

[Candyman8019]

You could try something like this:

Private Sub rotatesheets()

restartloop:
Workbooks("Workbook1-Name.xlsm").Activate
Application.Wait (Now + TimeValue("00:01:00"))

Workbooks("workbook2-name.xlsm").Activate
Application.Wait (Now + TimeValue("00:01:00"))

GoTo restartloop
End Sub

To exit the loop, hold the ESC key.

 

[jarett]

You could try something like this:

Private Sub rotatesheets()

restartloop:
Workbooks("Workbook1-Name.xlsm").Activate
Application.Wait (Now + TimeValue("00:01:00"))

Workbooks("workbook2-name.xlsm").Activate
Application.Wait (Now + TimeValue("00:01:00"))

GoTo restartloop
End Sub

To exit the loop, hold the ESC key.

Might be a dumb question, but not proficient in VBA, do I have to enter this into each worksheet or just one worksheet?

 

[Candyman8019]

You can create an entirely different workbook for this script if you like. As long as the spreadsheets are all open and you have typed the filenames correctly, it should work. You could take it a step further and have this workbook open all of your required spreadsheets as well.

 

[Candyman8019]

Here's an example. If you create a new workbook and list all of your workbook filenames in column A, this script will open each of them, make them fullscreen and then rotate them. I haven't tested this yet...but I believe I have the syntax correct.

Private Sub rotatesheets()
Dim lrow As Long
lrow = Sheet1.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row

'open sheets listed in column A on Sheet1
For x = 1 To lrow
Workbooks.Open Sheet1.Range("A" & x).Value
ActiveWindow.WindowState = xlMaximized
Next x

'start rotating sheets
restartloop:
For x = 1 To lrow
Workbooks("A" & x).Activate
Application.Wait (Now + TimeValue("00:01:00"))
Next x

GoTo restartloop
End Sub

 

[jarett]

Here's an example. If you create a new workbook and list all of your workbook filenames in column A, this script will open each of them, make them fullscreen and then rotate them. I haven't tested this yet...but I believe I have the syntax correct.

Private Sub rotatesheets()
Dim lrow As Long
lrow = Sheet1.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row

'open sheets listed in column A on Sheet1
For x = 1 To lrow
Workbooks.Open Sheet1.Range("A" & x).Value
ActiveWindow.WindowState = xlMaximized
Next x

'start rotating sheets
restartloop:
For x = 1 To lrow
Workbooks("A" & x).Activate
Application.Wait (Now + TimeValue("00:01:00"))
Next x

GoTo restartloop
End Sub

Ok, tried the code and received a runtime error on the first file name. I forgot to mention these are network files, I am trying to list the file names in column A a couple different ways to see if I can manually access them through the new worksheet but every way says, "cannot open the specified file". These are the two file format names I tried, L is the drive letter and that drive is named "Internal";
L:\Internal\Warehouse and Gen Inventory\Inventory_Quality_Control_Log.xlsx
\\Internal\Warehouse and Gen Inventory\Inventory_Average.xlsx

I attempted saving the VBA workbook on the laptop and also tried running it on my pc.

scroll.xlsx
	A	B	C	D	E
1	L:\Internal\Warehouse and Gen Inventory\Inventory_Quality_Control_Log.xlsx
2	\\Internal\Warehouse and Gen Inventory\Inventory_Average.xlsx
3	\\Internal\Warehouse and Gen Inventory\Order_Line_Fill_Rate.xlsx
4	\\Internal\Documents\BO_Li ne_Percentage.xlsm
5
Sheet1

 

[Candyman8019]

Assuming \\internal references a specific server. Either of those formats should work. In column A if you click on one of the links will it open the file?

 

[Candyman8019]

Otherwise you can try \\servername\internal\… depending on your network structure.

 

[Candyman8019]

But long story short if it doesn’t open the file by clicking the link you added then it won’t open with the script either.

 

[jarett]

had to name the server in the file link, got all the files to open manually in the scroll.xlsx file. Ran VBA and got this error and it stated this part of the code as the error; "Workbooks("A" & x).Activate"