View Single Post
  #3   Report Post  
Ron de Bruin
 
Posts: n/a
Default

Hi CC

You can do it with the change event of the worksheet
This example will place the date/time in the B column if you change
a cell in the range A1:A20.

Place the code in the Sheet module

Right click on a sheet tab and choose view code
Paste the code there
Alt-Q to go back to Excel


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("a1:a20"), Target) Is Nothing Then
Target.Offset(0, 1).Value = Format(Now, "mm-dd-yy hh:mm:ss")
End If
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



"CC" wrote in message
...
I keep a list of students and activities. Because the number of students
per
activity is limited, I would to track the date and time when they selected
their activity:
Student Activity Date
--------- -------- -----------
Smith Tennis 02/01/05

I would like the cells in the Date column to change automatically when the
Activity value is changed.
Thanks a lot,