Need Helping hand here….my code seems weird :) Thanks for help:

[pedie]

Hi,
Happy Friday

I think i need some help here. I have this code which I dont know how to make it work.Hilighted region is where i'm getting error..

Please modify whi

Sub DT_try()
 d1 = Range("A" & Rows.Count).End(xlUp).Value
 d2 = Date & " " & Time
 'd3 = d2-d1
 'if d3 < "1:00:00" Then
 Range("B5").Value = d1
 Range("B6").Value = d2
[COLOR=yellowgreen] If d2 - d1 < "1:00:00" Then[/COLOR]
 MsgBox "<"
 Else
 MsgBox ">"
 End If
End Sub

 

[shg]

Maybe ...

Sub DT_try()
    d1 = Range("A" & Rows.Count).End(xlUp).Value
    d2 = Now
    Range("B5").Value = d1
    Range("B6").Value = d2
    
    If d2 - d1 < #1:00:00 AM# Then
        MsgBox "<"
    Else
        MsgBox ">"
    End If
End Sub

 

[pedie]

Works perfect. Okay I want to call macro1 if d2-d1 > 9 will this work if Am is there in the format?
Thanks again
What I mean is can it be in format "37:30:55" or 24 hrs...in case it does not work..

Sub DT_try7()
    d1 = Range("A" & Rows.Count).End(xlUp).Value
    d2 = Now
    Range("B5").Value = d1
    Range("B6").Value = d2
 
    If d2 - d1 > #9:00:00 AM# Then
        MsgBox "> gtr"
        call macro1
 
    Else
        MsgBox "< less"
    End If
End Sub

 

[pedie]

It is working fine I guess…Thank again.

Have a great Weekend!