Automatic date entry upon cell completion

  • Thread starter Thread starter Amber
  • Start date Start date
A

Amber

I have been unable to figure out how to have the current date
automatically inputted when another cell is completed. For example,
when an employee types his initials in B4, I would like the current
date to appear automatically in C4. Is this possible, and if so, what
is the best way to achieve this?

Many thanks,

Amber
 
This requires a worksheet_change event macro. Right-click
on the worksheet tab, View Code, and paste this in:

Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("B4")) Is Nothing Then
Application.ScreenUpdating = False
With Target
.Offset(, 1) = Format(Now(), "mm/dd/yy")
End With
End If
Application.ScreenUpdating = True
End Sub
 
Just a footnote to that, if you want there to be a continual ability to
update B* and have C* get a date, change the

Range("B4") to something like
Range("B1:B999") or wherever you input names / initials.

-Bob
 
Back
Top