static date in new file when data entered in another

  • Thread starter Thread starter HELP ME PLEASE
  • Start date Start date
H

HELP ME PLEASE

Need help on this one. I want to enter the number "one" in any cell in a
column that will trigger entering todays date statically in the cell to the
right of that cell.
 
Right click the sheet tab, view code and paste this in. Change the column to
suit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Application.EnableEvents = False
If Target.Value = 1 Then
Target.Offset(0, 1).Value = Date
End If
Application.EnableEvents = True
End If
End Sub

Mike
 
:

Thank you very much your a genius! How do I make it work on more than one
column? exp. "U:U", "W:W", "Y:Y"
 
Back
Top