virtual-bird
New Member
- Joined
- Mar 4, 2002
- Messages
- 7
I have this formula, given to me by Paul B.
It works a treat!!
But if I enter data in field 1 it puts date in field 2.
If I clear field 1 after this, the date stays in field 2.
How can I edit the code to clear this??
Thanks
Bruce
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
Select Case Target.Column
Case 1
Cells(Target.Row, 2) = Time & " " & Date
End Select
End Sub
It works a treat!!
But if I enter data in field 1 it puts date in field 2.
If I clear field 1 after this, the date stays in field 2.
How can I edit the code to clear this??
Thanks
Bruce
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
Select Case Target.Column
Case 1
Cells(Target.Row, 2) = Time & " " & Date
End Select
End Sub