Change event when existing text is changed

[arcaidius]

Trying to perform a change event when value is changed within a range to highlight the cell that changed, and insert date and user into C1 and D1.
I have been searching about it for a few hours now everything I have found only works when the cell is blank. If the cell has existing values it is highlighted as soon as I select the cell. Tracking changes on the review Tab does not work because it has tables. Can anyone please help? Code I have so far is:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
   If Target.CountLarge > 1 Then Exit Sub
   If Not Intersect(Target, Range("B:B,C:C,D:D")) Is Nothing Then
      If Target <> "" Then Target.Interior.ColorIndex = 36
   End If
End Sub

 

[Joe4]

How exactly is the text changed?
Is it changed manually, or is it a formula or link?

If it is changed manually, you will want to use a "Worksheet_Change" event instead, which triggers when some range is manually changed.

 

[arcaidius]

It is changed manually.

 

[arcaidius]

in a table... not sure if that matters.

Range("Table1[[Licensor]:[M Max]]")

 

[Joe4]

Which column does this occur in?
Column B?

 

[arcaidius]

Oh man I'm an idiot! It was on worksheet but as "Selection change" not "Change".

Do you know how to insert the user in a cell when this happens?

 

[Joe4]

Oh man I'm an idiot! It was on worksheet but as "Selection change" not "Change".

Do you know how to insert the user in a cell when this happens?

You can use "Environ" to do that.
See here: Macro to Add Windows Username in Cell

 

[arcaidius]

Thank you Sir. Everything works perfect! here is final code: (on worksheet - Change)

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Not Intersect(Target, Range("Table1[[Licensor]:[M Max]]")) Is Nothing Then
      If Target <> "" Then Target.Interior.ColorIndex = 36
      Range("D1") = Now
      Range("C1").Value = Environ("Username")
   End If
End Sub

 

[Joe4]

You are welcome.
Glad you got everything working the way you want!