LinkBack URL
About LinkBacks
Sub UPDATE() With Worksheets("Data") With .Range("A2", .Range("A2").End(xlDown)).Offset(, 1) .FormulaR1C1 = "=(NOW()-RC[-1])*24" 'in hours .Value = .Value End With End With End Sub
Sub UPDATE() With Worksheets("Data") With .Range("A2", .Range("A2").End(xlDown)).Offset(, 1) .FormulaR1C1 = "=(NOW()-RC[-1])*24" 'in hours .Value = .Value End With End With End Sub
Avoid using Select, Selection and Activate in your code. Use With ... End With instead.
You can show your appreciation for those that have helped you by clicking the * at the bottom left of any of their posts.
thank you, works perfectly
it works perfectly but now I have another feature that I would like to add. I want to add a status column. I don't want the timer to update if the status column for that corresponding time/date is "Complete". please see attached file.
or should I start a new thread for this feature?
thank u in advance
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Register To Reply
Bookmarks