Place a flag if another cell has been changed in a row

[simondb]

Hi,

I have a worksheet which has 10 columns and I want to add an 11th column which will contain a formula to show me if any of the 1st 10 columns have been changed. I have searched all over for something that will show me how to do this, can anyone help please

Thank you, Simon

 

[Matt Rogers]

Hi.

What will be changed.
Numbers or text?

 

[simondb]

Hi Matt, both, 1st 2 cols have numbers then all the rest are text

 

[simondb]

Hi, my ultimate goal is to create an updated date / time field as below

BUYER_NUMBER	YEAR	QUARTER	ACCOUNT_OWNER	REGION_OWNER	TEAM_OWNER	REGION	TEAM_NAME	ACCOUNT_NAME	PORTFOLIO_STATUS	UPDATEDDATETIME
19	2016	Q4	Carl Spencer	Rachel Emmerson	Gillian Lomax	North	BSM	Leeds Cars 1	Existing	16/11/2016 12:35:25
22	2016	Q4	Louise Judge	Rachel Emmerson	Gillian Lomax	North	BSM	Haydock	Existing
24	2016	Q4	Carl Spencer	Rachel Emmerson	Gillian Lomax	North	BSM	Leeds Cars 1	Existing
26	2016	Q4	Carl Spencer	Rachel Emmerson	Gillian Lomax	North	BSM	Leeds Cars 1	Existing
31	2016	Q4	Judith Langford	Monica Sturley	Monica Sturley	NBFD	NBFD	NBFD - Area 2	Existing
37	2016	Q4	Gavin Walker	Gavin Walker	Gillian Lomax	NE & Scotland	BSM	Washington	Existing
38	2016	Q4	Carl Spencer	Rachel Emmerson	Gillian Lomax	North	BSM	Leeds Cars 1	Existing
51	2016	Q4	Louise Taylor	Rachel Emmerson	Gillian Lomax	North	BSM	Knottingley	Reallocate
52	2016	Q4	Gavin Walker	Gavin Walker	Gillian Lomax	NE & Scotland	BSM	Washington	Existing
57	2016	Q4	Gavin Walker	Gavin Walker	Gillian Lomax	NE & Scotland	BSM	Washington	Re-engaged

<tbody>
</tbody><colgroup><col><col><col><col><col><col><col><col><col><col><col></colgroup>

 

[simondb]

Hi, this works perfectly

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rCell As Range
Dim rw As Long
Dim rChange As Range

On Error GoTo ErrHandler
Set rChange = Intersect(Target, Range("A:J"))
If Not rChange Is Nothing Then
Application.EnableEvents = False
For Each rCell In rChange
If rCell > "" Then
With rCell.Offset(0, 11 - ActiveCell.Column)
.Value = Now
.NumberFormat = "dd/MM/yyyy hh:mm:ss"
End With
Else
rCell.Offset(0, 11 - ActiveCell.Column).Clear
End If
Next
End If


ExitHandler:
Set rCell = Nothing
Set rChange = Nothing
Application.EnableEvents = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub