How can I date-tag a user entry? If the user, for example, enters data into
A1, the Macro should detect it and enter the value of the date in the
adjacent cell, B1.
--
Gary's Student

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrorHandler
Application.EnableEvents = False
Target.Offset(0, 1).Value = Now()
ErrorHandler:
Application.EnableEvents = True
End Sub

HTH

Jim Thomlinson


"Gary's Student" wrote:

How can I date-tag a user entry? If the user, for example, enters data into
A1, the Macro should detect it and enter the value of the date in the
adjacent cell, B1.
--
Gary's Student

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'when entering data in any cell in Col A
On Error GoTo enditall
Application.EnableEvents = False
If Target.Cells.Column = 1 Then
n = Target.Row
If Excel.Range("A" & n).Value < "" Then
Excel.Range("B" & n).Value = Date 'Now if you want Time also
End If
End If
enditall:
Application.EnableEvents = True
End Sub

This is sheet event code.

Right-click on the sheet tab and "view code".

Paste the above in that module.


Gord Dibben Excel MVP

On Tue, 17 May 2005 16:51:02 -0700, "Gary's Student"
wrote:

How can I date-tag a user entry? If the user, for example, enters data into
A1, the Macro should detect it and enter the value of the date in the
adjacent cell, B1.

Thank you both.
--
Gary's Student


"Gary's Student" wrote:

How can I date-tag a user entry? If the user, for example, enters data into
A1, the Macro should detect it and enter the value of the date in the
adjacent cell, B1.
--
Gary's Student