Live Chat & Podcast at 1:00PM Eastern on Sunday!
There's no such thing as a stupid question, but they're the easiest to answer.
JoinTour
Login
Search
Business Applications
Tag Cloud
access acer asus batch bios bsod crash desktop driver drivers error ethernet excel freeze gaming gpu hard drive hardware hdmi internet laptop malware memory modem monitor motherboard netgear network printer problem ram registry router slow software sound trojan ubuntu 11.10 uninstall usb video virus vista wifi windows windows 7 windows 7 32 bit windows 7 64 bit windows xp wireless
Search
Search for:
Tech Support Guy Forums > Software & Hardware > Business Applications >
auto refresh on excel spreadsheets

Reply  
Thread Tools
planningman40's Avatar
Junior Member with 3 posts.
 
Join Date: Jun 2008
Experience: Intermediate
03-Jun-2008, 09:23 AM #1
auto refresh on excel spreadsheets
at my office I created a spreadsheet that mimics the transport board (clip boards in a back office) and my boss wants to be able to have a screen in despatch showing this spreadsheet whilst being able to update the spreadsheet on his pc..... and having the screen in despatch update with any new additions

is there a way of setting up the spreadsheet to refresh every couple of mins so the screen in despatch is always current.

we are using windows 2000

thanks in advance for any help
DiscWorld's Avatar
Junior Member with 18 posts.
 
Join Date: Jun 2008
Location: Birmingham, UK
Experience: Advanced
05-Jun-2008, 08:02 AM #2
I have a spreadsheet that displays information from lots of linked spreadsheets, and toggles between sheets every minute, but you should be able to modify the code slightly for what you want.

--- MACROS ---

' General Declarations
Public RunWhen As Double
Public Const cRunIntervalSeconds = 60 ' seconds between updates
Public Const cRunWhat = "UpdateLinks" ' name of procedure to run
Public Toggle As Double

' Ensure Timer Starts when Workbook is opened
'
Private Sub Auto_Open()
Call StartTimer
End Sub

' Timer Program
' Macro recorded 21/11/2007 by W. Sheldon
'
Sub StartTimer()

RunWhen = Now + TimeSerial(0, 0, cRunIntervalQuick)
Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, Schedule:=True

End Sub



Sub UpdateLinks()
'
' Update data from external files
'
Application.ScreenUpdating = False

ActiveWorkbook.UpdateLink Name:= _
"\\SPREADSHEET PATH AND NAME.xls", Type:= xlExcelLinks

Application.ScreenUpdating = True

End Sub

Last edited by DiscWorld; 05-Jun-2008 at 08:06 AM.. Reason: Missed out main macro
planningman40's Avatar
Junior Member with 3 posts.
 
Join Date: Jun 2008
Experience: Intermediate
05-Jun-2008, 09:37 AM #3
need more help please..
hi..

thanks for the macro.. but I am having trouble with..

Activeworkbook.updatelink name:="f:\production planning\transport sheet wk23.xls",type:=xlexcellinks


when i run the macro is says this line has failed

what have I done wrong?
DiscWorld's Avatar
Junior Member with 18 posts.
 
Join Date: Jun 2008
Location: Birmingham, UK
Experience: Advanced
05-Jun-2008, 10:26 AM #4
You need a cell referencing the remote spreadsheet in your current spreadsheet, otherwise is errors because there is nothing to updated.

If you are using a SHARED workbook, that doesnt link to any other spreadsheets, then the Advanced tab of the Shared Workbook option has an "Update changes every x minutes" option, and you wouldnt need any macros.
Reply

Tags
auto, excel, refresh, spreadsheets

THIS THREAD HAS EXPIRED.
Are you having the same problem? We have volunteers ready to answer your question, but first you'll have to join for free. Need help getting started? Check out our Welcome Guide.

Search Tech Support Guy

Find the solution to your
computer problem!




Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
WELCOME TO TECH SUPPORT GUY! Are you looking for the solution to your computer problem? Join our site today to ask your question -- for free! Our site is run completely by volunteers who want to help you solve your computer problems. See our Welcome Guide to get started.
Thread Tools



Facebook Facebook Twitter Twitter TechGuy.tv TechGuy.tv Mobile TSG Mobile
You Are Using:
Server ID
Advertisements do not imply our endorsement of that product or service.
All times are GMT -4. The time now is 02:46 AM.
Copyright © 1996 - 2011 TechGuy, Inc. All rights reserved.

Powered by Cermak Technologies, Inc.