Vba bug fix

[adpatel]

Hello everyone, I have a VBA code which is very simple, but still it's not working as it should be, so i think there is little bug in code, pls help to find it out

Requirement:-

If cell value is 0 or time is less than 15:29:00

than do nothing

else, 'Main code ll be run in this case'

My code:-

Dim LTime As Date

   Sheets("AD").Select
    
    If Range("J2").Value = 0 Or LTime < "15:29:00" Then
    Range("K3").Select
    
    Else


Sheets("AD").Select

 Range("J2:AF3").Select
    Selection.Copy
 
    Range("J6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("J6").Select
   
       
      End If

Any help ll be appriciated

 

[Zot]

@Zot you do need to use the Timevalue part as Now includes the date, so it includes the Integer part of the number.

For instance here it is 06:57 which is 0.289583333333333 without the date part.

Now would give 44210.289583333333333 which would be greater than TimeValue("03:29:00 PM") which is 0.645138888888889.

Ahhh .... forgot that Now has Date and Time... Thanks

 

[MARK858]

Ahhh .... forgot that Now has Date and Time... Thanks

You're welcome