Date update on data update

[Chris Thompson]

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.

 

[steve]

Chris,

Here is a worksheet change event code. It goes into the worksheet module
(not a standard module)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Cells(Target.Row, 5) = Date
End If
End Sub

You can restrict the rows by using
If Target.Row > 2 Then
*above code*
End if

 

[Rocky McKinley]

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("D3100"), Target) Is Nothing Then
Cells(Target.Row, 5).Value = Date
End If
End Sub

Regards, Rocky McKinley

 

[Jean-Paul Viel]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = "4" Then
Target.Offset(0, 1).Value = Date
End If
End Sub