Snasui Excel Forum

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCellColumn As Integer

xCellColumn = 3
If Target.Column = xCellColumn Then
Application.EnableEvents = False
Target.Offset(0, 1) = Format(Now, " hh:mm ")
Application.EnableEvents = True
End If
If Not Intersect(Target, Selection) Is Nothing Then
Selection.Offset(0, 1).Value = ClearContents
End If

xCellColumn = 5
If Target.Column = xCellColumn Then
Application.EnableEvents = False
Target.Offset(0, 1) = Format(Now, " hh:mm ")
Application.EnableEvents = True
End If
If Not Intersect(Target, Selection) Is Nothing Then
Selection.Offset(0, 1).Value = ClearContents
End If
End Sub

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range
    If Target.Columns.Count > 1 Then Exit Sub
    If Target.Column = 3 Or Target.Column = 5 Then
        For Each r In Target
            If r.Value <> "" Then
                r.Offset(0, 1) = Format(Now(), "h:mm")
            Else
                r.Offset(0, 1).ClearContents
            End If
        Next r
    End If
End Sub