Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
code reopens file
The following code tries to reopen my files 30-45 seconds after I close them.
Any ideas what might make it do this? The code is meant to track my time in the different bids I work on Thanks, Andy Code in module: Public Sub StartCounting(Optional bStart As Boolean = False) Const dINCREMENT As Date = #12:01:00 AM# If Not bStart Then With Sheets("Bid Summary").Range("J3") ..Value = .Value + dINCREMENT End With End If dNextCall = Now + dINCREMENT Application.OnTime dNextCall, "StartCounting", Schedule:=True End Sub Public Sub StopCounting() Application.OnTime dNextCall, "StartCounting", Schedule:=False End Sub Code in workbook: Public Sub StartCounting(Optional bStart As Boolean = False) Const dINCREMENT As Date = #12:01:00 AM# If Not bStart Then With Sheets("Bid Summary").Range("J3") ..Value = .Value + dINCREMENT End With End If dNextCall = Now + dINCREMENT Application.OnTime dNextCall, "StartCounting", Schedule:=True End Sub Public Sub StopCounting() Application.OnTime dNextCall, "StartCounting", Schedule:=False End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
code reopens file
Unless you are closing Excel you have to call the StopCounting routine
before you close the workbook, else Excel looks for the macro you scheduled. -- Jim "AJB" wrote in message ... | The following code tries to reopen my files 30-45 seconds after I close them. | Any ideas what might make it do this? The code is meant to track my time in | the different bids I work on | | Thanks, | | Andy | | Code in module: | Public Sub StartCounting(Optional bStart As Boolean = False) | Const dINCREMENT As Date = #12:01:00 AM# | If Not bStart Then | With Sheets("Bid Summary").Range("J3") | .Value = .Value + dINCREMENT | End With | End If | dNextCall = Now + dINCREMENT | Application.OnTime dNextCall, "StartCounting", Schedule:=True | End Sub | | Public Sub StopCounting() | Application.OnTime dNextCall, "StartCounting", Schedule:=False | End Sub | | Code in workbook: | Public Sub StartCounting(Optional bStart As Boolean = False) | Const dINCREMENT As Date = #12:01:00 AM# | If Not bStart Then | With Sheets("Bid Summary").Range("J3") | .Value = .Value + dINCREMENT | End With | End If | dNextCall = Now + dINCREMENT | Application.OnTime dNextCall, "StartCounting", Schedule:=True | End Sub | | Public Sub StopCounting() | Application.OnTime dNextCall, "StartCounting", Schedule:=False | End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Sort not saved across saves/reopens | Excel Worksheet Functions | |||
Workbook reopens after close | Excel Programming | |||
code to check file size everytime an Excel file is opened | Excel Programming | |||
Code in one workbook to call code in another XL file | Excel Programming | |||
Import VBA Code in Excel-File ? (Export VBA Code to file) | Excel Programming |