Need to subtract Time from Data + Time cell VBA

[Fortune77]

Hi Experts,

Need you help with Macro to subtract 2:30:00 HRS from a column which has date and time in this format "10/7/17 2:40 PM" .

Thanks

 

[FormR]

Hi, here is one option you can try - it assumes your dates are in column A starting on row 2.

With Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
    .Value = Evaluate(Replace("IF(ISNUMBER(@),@-TIME(2,30,0),@)", "@", .Address))
End With

 

[Fortune77]

Hi, here is one option you can try - it assumes your dates are in column A starting on row 2.

With Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
    .Value = Evaluate(Replace("IF(ISNUMBER(@),@-TIME(2,30,0),@)", "@", .Address))
End With

WOW !
Thank you FormR !!

That Code worked .

Thanks a lot !!!