display a date
how do i include events?
i have about 20 columns that i want this to work with. i need the date to
come up in the cell to the left of the cell that i put the number in
thanks
"Shane Devenshire" wrote:
Hi,
Since you are only interested to get the date when you enter a number try this
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Or IsEmpty(Target) Or Not IsNumeric(Target)
Then Exit Sub
If Not Intersect(Target, [A:A]) Is Nothing Then
Target.Offset(, 1) = Date
End If
End Sub
If you are only doing this for a single column, here column A:A, then you
don't need to disable events... However if you want this to work for the
entire worksheet then you need to include them.
--
If this helps, please click the Yes button.
Cheers,
Shane Devenshire
"Richard" wrote:
Hi
when i enter a number into a cell i want the cell next to it to display the
date the number was entered
|