View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Rocky McKinley Rocky McKinley is offline
external usenet poster
 
Posts: 102
Default Date update on data update

Hi Chris,
You can try the code below by right clicking on the worksheet name and
selecting "View Code" and pasting the following routine in. You can change
the Range to just D3 if that's all you need otherwise the code will work
from D3 to D100.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("D3:D100"), Target) Is Nothing Then
Cells(Target.Row, 5).Value = Date
End If
End Sub

Regards, Rocky McKinley

"Chris Thompson" wrote in message
om...
Hopefully, a relatively simple one to answer.

I have a worksheet where column D contains names (selected from a
combo box). I want the cell next to the name (ie column E same row)
to be updated with the current date only when the name is changed.
ie. If the name in D3 is changed the value in E3 becomes todays date.
I only want this though if the information in D3 is changed (ie I do
not want E3 altered if the name picked from the combobox is the same
as the one already in D3 - the names in the combobox are unique by the
way).

If somebody could advise with some code I would be very grateful.

Chris Thompson.