recording a data entry date

G

Guest

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.
 
N

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
(e-mail address removed)
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Fixing date of entry 14
Recording the date another cell is edited or modified. 2
Excel Vba to change displayed year automatically. 14
Event recognition. 6
How would I put the date that data was put in a cell? 1
Date function 11
how do you store real time in excel when making an entry 1
Access How to record date/time when specific field is modified in Access 2007 0

Top