recording a data entry date

[Rusty 1i]

How do I automatically record the original date of a data entry into a
specific cell? I do not want the date to update if the cell entry is
modified.

[Nick Hodge]

Rusty

Either manually Ctrl+; or with a worksheet_change() event which could check
if the cell already had a date in it and if so not change it, so for A1
changing, this code will put the date and time modified the first time only
in B1. (There is no protection in this code to stop a user changing it

Private Sub Worksheet_Change(ByVal Target As Range)
With Application
.EnableEvents = False
If Not .Intersect(Target, Range("A1")) Is Nothing Then
If Target.Offset(0, 1).Value = "" Then
Target.Offset(0, 1).Value = Now()
End If
End If
.EnableEvents = True
End With
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
www.nickhodge.co.uk
nick_hodgeTAKETHISOUT@zen.co.uk.ANDTHIS


"Rusty 1i" <Rusty 1i@discussions.microsoft.com> wrote in message
news:597170C7-166E-42AA-90CD-4F56D8B86B6F@microsoft.com...
> How do I automatically record the original date of a data entry into a
> specific cell? I do not want the date to update if the cell entry is
> modified.