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
[TABLE="width: 1339"]
<tbody>[TR]
[TD]BUYER_NUMBER[/TD]
[TD]YEAR[/TD]
[TD]QUARTER[/TD]
[TD]ACCOUNT_OWNER[/TD]
[TD]REGION_OWNER[/TD]
[TD]TEAM_OWNER[/TD]
[TD]REGION[/TD]
[TD]TEAM_NAME[/TD]
[TD]ACCOUNT_NAME[/TD]
[TD]PORTFOLIO_STATUS[/TD]
[TD]UPDATEDDATETIME[/TD]
[/TR]
[TR]
[TD]19[/TD]
[TD]2016[/TD]
[TD]Q4[/TD]
[TD]Carl Spencer[/TD]
[TD]Rachel Emmerson[/TD]
[TD]Gillian Lomax[/TD]
[TD]North[/TD]
[TD]BSM[/TD]
[TD]Leeds Cars 1[/TD]
[TD]Existing[/TD]
[TD]16/11/2016 12:35:25[/TD]
[/TR]
[TR]
[TD]22[/TD]
[TD]2016[/TD]
[TD]Q4[/TD]
[TD]Louise Judge [/TD]
[TD]Rachel Emmerson[/TD]
[TD]Gillian Lomax[/TD]
[TD]North[/TD]
[TD]BSM[/TD]
[TD]Haydock[/TD]
[TD]Existing[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]24[/TD]
[TD]2016[/TD]
[TD]Q4[/TD]
[TD]Carl Spencer[/TD]
[TD]Rachel Emmerson[/TD]
[TD]Gillian Lomax[/TD]
[TD]North[/TD]
[TD]BSM[/TD]
[TD]Leeds Cars 1[/TD]
[TD]Existing[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]26[/TD]
[TD]2016[/TD]
[TD]Q4[/TD]
[TD]Carl Spencer[/TD]
[TD]Rachel Emmerson[/TD]
[TD]Gillian Lomax[/TD]
[TD]North[/TD]
[TD]BSM[/TD]
[TD]Leeds Cars 1[/TD]
[TD]Existing[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]31[/TD]
[TD]2016[/TD]
[TD]Q4[/TD]
[TD]Judith Langford[/TD]
[TD]Monica Sturley[/TD]
[TD]Monica Sturley[/TD]
[TD]NBFD[/TD]
[TD]NBFD[/TD]
[TD]NBFD - Area 2[/TD]
[TD]Existing[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]37[/TD]
[TD]2016[/TD]
[TD]Q4[/TD]
[TD]Gavin Walker[/TD]
[TD]Gavin Walker[/TD]
[TD]Gillian Lomax[/TD]
[TD]NE & Scotland[/TD]
[TD]BSM[/TD]
[TD]Washington[/TD]
[TD]Existing[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]38[/TD]
[TD]2016[/TD]
[TD]Q4[/TD]
[TD]Carl Spencer[/TD]
[TD]Rachel Emmerson[/TD]
[TD]Gillian Lomax[/TD]
[TD]North[/TD]
[TD]BSM[/TD]
[TD]Leeds Cars 1[/TD]
[TD]Existing[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]51[/TD]
[TD]2016[/TD]
[TD]Q4[/TD]
[TD]Louise Taylor[/TD]
[TD]Rachel Emmerson[/TD]
[TD]Gillian Lomax[/TD]
[TD]North[/TD]
[TD]BSM[/TD]
[TD]Knottingley[/TD]
[TD]Reallocate[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]52[/TD]
[TD]2016[/TD]
[TD]Q4[/TD]
[TD]Gavin Walker[/TD]
[TD]Gavin Walker[/TD]
[TD]Gillian Lomax[/TD]
[TD]NE & Scotland[/TD]
[TD]BSM[/TD]
[TD]Washington[/TD]
[TD]Existing[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]57[/TD]
[TD]2016[/TD]
[TD]Q4[/TD]
[TD]Gavin Walker[/TD]
[TD]Gavin Walker[/TD]
[TD]Gillian Lomax[/TD]
[TD]NE & Scotland[/TD]
[TD]BSM[/TD]
[TD]Washington[/TD]
[TD]Re-engaged[/TD]
[TD][/TD]
[/TR]
</tbody><colgroup><col><col><col><col><col><col><col><col><col><col><col></colgroup>[/TABLE]

 

[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