| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Run macro on excel open if after certain time
I already use this code to execute a macro if the date is Friday. I
want to amend it so that it will run only if it is before 11:00 If (Weekday(Now) = vbFriday) And Sheet5.Range("fri_weather").Value = "" Then [Friday] Thanks for nay help you may provide. Thanks, Steve |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Run macro on excel open if after certain time
One way:
If Sheet5.Range("fri_weather") = vbNullString Then _ If WeekDay(Date) = vbFriday Then _ If Time < TimeSerial(11, 0, 0) Then _ [Friday] In article om, "Steve" wrote: I already use this code to execute a macro if the date is Friday. I want to amend it so that it will run only if it is before 11:00 If (Weekday(Now) = vbFriday) And Sheet5.Range("fri_weather").Value = "" Then [Friday] Thanks for nay help you may provide. Thanks, Steve |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Run macro on excel open if after certain time
Try something like:
Sub tcheck() Dim v As Double v = Now() tm = v - Int(v) If tm 0.45833 Then MsgBox ("too late - after 11:00 AM") Else MsgBox ("its before 11:00 AM") End If End Sub -- Gary's Student gsnu200704 "Steve" wrote: I already use this code to execute a macro if the date is Friday. I want to amend it so that it will run only if it is before 11:00 If (Weekday(Now) = vbFriday) And Sheet5.Range("fri_weather").Value = "" Then [Friday] Thanks for nay help you may provide. Thanks, Steve |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Run macro on excel open if after certain time
On Feb 8, 8:41 am, JE McGimpsey wrote:
One way: If Sheet5.Range("fri_weather") = vbNullString Then _ If WeekDay(Date) = vbFriday Then _ If Time < TimeSerial(11, 0, 0) Then _ [Friday] In article om, "Steve" wrote: I already use this code to execute a macro if the date is Friday. I want to amend it so that it will run only if it is before 11:00 If (Weekday(Now) = vbFriday) And Sheet5.Range("fri_weather").Value = "" Then [Friday] Thanks for nay help you may provide. Thanks, Steve- Hide quoted text - - Show quoted text - Thank You Very Much JE . It works perfectly ! Steve |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| When i open excel file it takes time to open | Excel Discussion (Misc queries) | |||
| Open workbook macro if time is between??? | Excel Programming | |||
| Can Excel open a new application every time you open a file? | Setting up and Configuration of Excel | |||
| open up an excel program with an auto open macro | Excel Programming | |||
| How do I stop Excel from closing the open file each time I open a. | Setting up and Configuration of Excel | |||
Linear Mode
