VBA formula based from NOW

[poikl]

Hi,
I have a colA which contains the NOW formula.
Can you please write a VBA MACRO formula to enter in ColK either RB If the adjacent ColA shows time equal or earlier than 3:00PM and if after then, FM?

 

[6StringJazzer]

You don't need VBA for this. You can use a formula in column K:

=IF(A1<=TIMEVALUE("3:00 PM"),"RB",FM")

 

[poikl]

Hi, Thank you your formula is great and works though as a formula but I'd like to ask if you can write it out as code which I would be able to copy and paste?

 

[Skyybot]

Maybe this?

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Dim cellA As Range
If Not Application.Intersect(Me.Range("K:K"), Target) Is Nothing Then
    Set cellA = Me.Cells(Target.Row, "A")
    Select Case Hour(cellA.Value)
        Case Is > Hour("3:00:00PM")
            Target.Value = "FM"
        Case Is < Hour("3:00:00PM")
            Target.Value = "RB"
    End Select
End If
End Sub

 

[poikl]

Skybot, Thank you for your help