Color a cell When Change Is Made

[Zorro]

I have used the following:

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Interior.ColorIndex = 8
End Sub

But what I really want to do is to color the entire row in one color and the
changed cell in another.

Any code out there please?

TIA
Zorro

 

[George Nicholson]

Private Sub Worksheet_Change(ByVal Target As Range)
Target.EntireRow.Interior.ColorIndex = 37
Target.Interior.ColorIndex = 8
End Sub

HTH,

 

[Chip Pearson]

I would add a safeguard to ensure that Target is only one row tall.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Rows.Count = 1 Then
Target.EntireRow.Interior.ColorIndex = 37
Target.Interior.ColorIndex = 8
End If
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)

 

[Zorro]

Thanks for that. One problem though. I can only highlight one change per row
using the code below. Is there a way to highlight a number of cells on the
same row as they are changed. They may not neccessarily be contiguous.

Private Sub Worksheet_Change(ByVal Target As Range)
Target.EntireRow.Interior.ColorIndex = 3
Target.Interior.ColorIndex = 8
End Sub

Cheers
Zorro

 

[David McRitchie]

If the coloring is only to help identify the cell during
the time that it is selected see Chip's
RowLiner addin
http://www.cpearson.com/excel/RowLiner.htm

"Chip Pearson"