Private
Sub
Worksheet_Change(
ByVal
Target
As
Range)
If
Target.Count > 1
Then
Exit
Sub
Select
Case
Target.Column
Case
2
If
Intersect(Target, Columns(2))
Is
Nothing
Then
Exit
Sub
If
Target =
""
Then
Target.Offset(0, -1).ClearContents
Else
: Target.Offset(0, -1) =
Date
Case
4
If
Intersect(Target, Columns(4))
Is
Nothing
Then
Exit
Sub
If
Target =
""
Then
Target.Offset(0, -1).ClearContents
Else
: Target.Offset(0, -1) =
Date
Case
6
If
Intersect(Target, Columns(6))
Is
Nothing
Then
Exit
Sub
If
Target =
""
Then
Target.Offset(0, -1).ClearContents
Else
: Target.Offset(0, -1) =
Date
Case
Else
End
Select
End
Sub