OnTime Function

[Ralph M]

I thought an OnTime procedure was supposed to execute, even if Excel was closed or the computer is off, and the time had passed. When you turn your computer on and open Excel isn't it supposed to execute then?
Mine doesn't do anything if I don't have Excel open.

[Mark O'Brien]

OnTime is qualified by the application. (i.e. Excel session). If Excel isn't open, OnTime ain't gonna do squat.

Out of interest, who told you that it would work even if the computer was turned off?

[Ralph M]

Not that it would work if the computer is off, but would execute when the workbook was opened, even if the time had passed. What do you suggest I use to add data into specific cells on the 1st of every month ie:vacation time as the dates occure? I've tried just about everything, even the date now in the workbook open. I have 12 months to add in 2 different cells on 18 worksheets.
Any ideas? By the way that's what I was working on yesterday and I failed to thank you for you help. Thanks Mark

[Mark O'Brien]

I'm not quite following you. What data is being added on the first of the month? Where is the data coming from?

[Ralph M]

I have a workbook with 18 epmloyees on it and I would like Excel to add sick time and vaction time on the 1st day of every month. I supply the amount and what sheets the amount goes on and I even select which cells. What I am trying to do is enter this data in the code and when ie:May 1st rolls around Excel will add the time from the code. If the workbook isn't opened on May 1st, I need the code to apply when the workbook is finally opened.

[Mark O'Brien]

OK, that sounds a bit more reasonable.

I would suggest something like this:

Private Sub Workbook_Open()

   If ThisWorkbook.BuiltinDocumentProperties("Last Save Time") < Now _

   And Day(Now) > 1 _

   And Month(Now) < Month(ThisWorkbook.BuiltinDocumentProperties("Last Save Time")) Then

     'Your macro here

   End If

End Sub



This checks when the last time your workbook was saved and if today is past the first of the month, and if this month is later than last month.



In short, this is really ugly looking, but I got a tee time in about an hour and I need to rush.  Sorry.



I'll fix it later if this doesn't inspire anyone else.  
		

[Bhavesh]

Hello,

I see you are an expert programmer. Hoping you can help.

I am trying the following code to get the Time start function up and running.

Sub TimeStart()

Application.OnTime TimeValue("14:30:00"), "Time"

End Sub

But to my dismay this is not working, the 'Time' macro does not work. My excel session is open at this time.

Your help would be much appreciated.