Thread: Automatic Recording of current time when Specific Cell is Changed

Try this,

Right Click the tab "Joes Sheet" then click View Code.

In the resulting window paste all of this code

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim isect As Range
    
    Application.EnableEvents = False
    
    On Error GoTo ExitLine
    
    Set isect = Intersect(Target, Range("B5:H5"))
    If Not isect Is Nothing Then
        If Target = "" Then
            Target.Offset(-2, 0) = ""
        Else
            Target.Offset(-2, 0) = Format(Now(), "hh:mm")
        End If
    End If
    
    Set isect = Intersect(Target, Range("B39:H39"))
    If Not isect Is Nothing Then
        Target.Offset(1, 0) = Format(Now(), "hh:mm")
    End If
    
    Set isect = Nothing
    
ExitLine:
    Application.EnableEvents = True
    On Error GoTo 0
End Sub

Hope this helps

If you need any further information, please feel free to ask further

However

If this takes care of your needs, please click EDIT in your original post, click GO ADVANCED and set the PREFIX box to SOLVED. It helps everybody!
Also
If you are satisfied by any members response to your problem please consider using the scales icon top right of thier post to show your appreciation.

Marcol, I confess I've not read the question but I would make the point that though not vital in this instance (in terms of avoiding perpetual loop) you should toggle events when altering active sheet content via the Change event

(ie the act of altering content will in turn re-invoke the change event - needlessly in this instance however were the altered cell within the range of interest you would end up in a perpetual loop).

And if you toggle events you should add an error handler "just in case" so as to ensure events are reactivated irrespective of outcome.

Hi Don,

Point taken, I'm working on a time limited machine at the moment,( I'm away from home)
To much a of a rush agianst available time.

I've amended the code in Post #2

Don't think it needs an error handler, but will check later.

EDIT

Okay, still in a rush, I've added belt and braces version

Cheers