Next problem!

virtual-bird · Mar 5th, 2002, 06:32 PM

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

Mar 5th, 2002, 08:55 PM

select column B when you select your data in A and delete them at the same time, because this is in VBA it will put the date back in when you enter your data in A again. please keep posting to the same thread other wise people will have a hard time tracking it

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 5th, 2002, 06:32 PM	#1
virtual-bird New Member Join Date: Mar 2002 Posts: 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

Mar 5th, 2002, 08:55 PM	#2
Guest Posts: n/a	select column B when you select your data in A and delete them at the same time, because this is in VBA it will put the date back in when you enter your data in A again. please keep posting to the same thread other wise people will have a hard time tracking it