| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Timer question
Solved
"ordnance1" wrote in message ... An additional question In your post you said I should remember to cancel the second OnTime before I quite Excel. So I added the line below to my BeforeClose routine, but I get an error Method 'OnTime' of object'_Application failed. Application.OnTime RunWhenSplash, "ShowMySplash", , False "ordnance1" wrote in message ... I will give that a try tomorrow. Thanks a lot. "EricG" wrote in message ... You can simply add a second OnTime function. Define the CONSTANT SPLASH_MINUTES to be 7, and then add this code: RunWhenSplash = Now + TimeSerial(0, SPLASH_MINUTES, 0) Application.OnTime RunWhenSplash, "ShowMySplash", , True Public Sub ShowMySplash ClosingSplashScreen.Show ' Modal or Not? ' Do something based on user response? End Sub Don't forget to cancel the second OnTime before you quit Excel: Application.OnTime RunWhenSplash, "ShowMySplash", , False HTH, Eric "ordnance1" wrote: I have this timer code I got courtesy of Chip Pearson (http://www.cpearson.com/excel/TimedClose.htm) and am wondering if it can be altered in such a way that when I get down to 3 minutes (NUM_MINUTES is set to 10 minutes) ClosingSplashScreen.Show will run? Private Sub Workbook_Open() On Error Resume Next Application.OnTime RunWhen, "SaveAndClose", , False On Error GoTo 0 RunWhen = Now + TimeSerial(0, NUM_MINUTES, 0) Application.OnTime RunWhen, "SaveAndClose", , True End Sub |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Timer question | Excel Discussion (Misc queries) | |||
| Timer question | Excel Programming | |||
| VERY tricky timer question | Excel Programming | |||
| Stopping a Timer / Running a timer simultaneously on Excel | Excel Discussion (Misc queries) | |||
| Timer Question | Excel Programming | |||
![ordnance1[_2_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Hybrid Mode
