VBA For Time Stamp

[data808]

I have some VBA that I am using to trigger a time stamp when I type into certain cells. The problem is that even if the time stamp has already been triggered and the cell is filled in with the time, it will continue to update the time if I keep updating the cells that trigger it. Is there a way to have it so that if the cells already have a time in it, it will stop the updating of the time? Here is the current code I am using:

' type in columns A-C to do a time stamp in column D. 
    With Target
        If .Count > 1 Then Exit Sub
        If Not Intersect(Range("A:C"), .Cells) Is Nothing Then
        Application.EnableEvents = False
        With Range("D" & Target.Row)
            If Not IsDate(.Value) Then
                .NumberFormat = "HH:MM"
                .Value = Now
            End If
        End With
        Application.EnableEvents = True
        End If
    End With
' same as above but different range and target
    With Target
        If .Count > 1 Then Exit Sub
            If Not Intersect(Range("F:O"), .Cells) Is Nothing Then
        Application.EnableEvents = False
        With Range("E" & Target.Row)
            If Not IsDate(.Value) Then
                .NumberFormat = "HH:MM"
                .Value = Now
            End If
        End With
        Application.EnableEvents = True
        End If
    End With

 

[Micron]

Check if the cell IsEmpty or = "" ? If not true, there is a value there already. Not bullet proof since the value can be "dog" so up to you to decide how many tests you need. I can't tell from the code where it is - E or D so I kept this simple. Maybe it's both?

 

[ouvay]

Give this a go

    ' type in columns A-C to do a time stamp in column D.
    With Target
        If .Count > 1 Then Exit Sub
        If Not Intersect(Range("A:C"), .Cells) Is Nothing Then
        Application.EnableEvents = False
        With Range("D" & Target.Row)
            If Not IsDate(.Value) And .Value = "" Then
                .NumberFormat = "HH:MM"
                .Value = Now
            End If
        End With
        Application.EnableEvents = True
        End If
    End With
' same as above but different range and target
    With Target
        If .Count > 1 Then Exit Sub
            If Not Intersect(Range("F:O"), .Cells) Is Nothing Then
        Application.EnableEvents = False
        With Range("E" & Target.Row)
            If Not IsDate(.Value) And .Value = "" Then
                .NumberFormat = "HH:MM"
                .Value = Now
            End If
        End With
        Application.EnableEvents = True
        End If
    End With

 

[data808]

Give this a go

    ' type in columns A-C to do a time stamp in column D.
    With Target
        If .Count > 1 Then Exit Sub
        If Not Intersect(Range("A:C"), .Cells) Is Nothing Then
        Application.EnableEvents = False
        With Range("D" & Target.Row)
            If Not IsDate(.Value) And .Value = "" Then
                .NumberFormat = "HH:MM"
                .Value = Now
            End If
        End With
        Application.EnableEvents = True
        End If
    End With
' same as above but different range and target
    With Target
        If .Count > 1 Then Exit Sub
            If Not Intersect(Range("F:O"), .Cells) Is Nothing Then
        Application.EnableEvents = False
        With Range("E" & Target.Row)
            If Not IsDate(.Value) And .Value = "" Then
                .NumberFormat = "HH:MM"
                .Value = Now
            End If
        End With
        Application.EnableEvents = True
        End If
    End With

Thank you very much. I knew it was something easy but when I saw how little of the code you removed, I was not anticipating that. I was trying to add in an IF cell is <> 0 statement. lol

Thanks again for the help.

 

[data808]

Check if the cell IsEmpty or = "" ? If not true, there is a value there already. Not bullet proof since the value can be "dog" so up to you to decide how many tests you need. I can't tell from the code where it is - E or D so I kept this simple. Maybe it's both?

Thanks for the help. Looks like @ouvay solved it. Appreciate your suggestion though.

 

[ouvay]

Thanks for the feedback! happy to help