select different cells depening on the time of day?

[danbates]

Hi,

Please can someone help me?

I would like a vba code that selects cell D1 if the time is between 05:40 and 17:40,
and if the time is between 17:41 and 05:39 then it selects E1.

thnaks

Dan

 

[James006]

Hi,

You could test following :

Sub TestT()
  If Now - Int(Now) > 0.2361 And Now - Int(Now) < 0.7361 Then
      MsgBox Range("D1").Value
  Else
      MsgBox Range("E1").Value
  End If
End Sub

Hope this will help

 

[danbates]

Hi James006,

Perfect, thank you.

Regards

Dan

 

[MARK858]

It is no better than what James006 has posted but might be a bit easier if you ever have to amend the times to use Timevalue...

Sub TestT2()
  If Now - Int(Now) > TimeValue("05:40") And Now - Int(Now) < TimeValue("17:40") Then
      MsgBox Range("D1").Value
  Else
      MsgBox Range("E1").Value
  End If
End Sub