Color Rows

[smandula]

Hello,
This VBA hilites 5 rows, I need the last two rows to be a different color,
an color
As of now all rows are a light green

Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cell As Range
Dim i As Long
Dim iPos As Long

Me.Cells.Interior.ColorIndex = xlColorIndexNone
For Each Cell In Target.EntireRow.Cells
For i = 1 To 4
iPos = 0
On Error Resume Next
iPos = Application.Match(Cell.Value, Rows(Target.Row + i),
0)
On Error GoTo 0
If iPos <> 0 Then 'return_type' is 1
Cells(Target.Row + i, iPos).Interior.ColorIndex = 35
Cell.Interior.ColorIndex = 35
End If
Next i
If Range("A1").Value = 0 Then Exit Sub
Next Cell

End Sub

 

[Tom Ogilvy]

If iPos <> 0 Then 'return_type' is 1
if i < 3 then
Cells(Target.Row + i, iPos).Interior.ColorIndex = 35
Cell.Interior.ColorIndex = 35
else
Cells(Target.Row + i, iPos).Interior.ColorIndex = 5
Cell.Interior.ColorIndex = 5
End if
End If

 

[smandula]

Thanks Tom

It works OK!

However, any number on the first row which has the same corresponding number
in the last two rows will take on the Color 5, a darker color. So the first
row
is a mix of Colors 35 & 5. Still provides the same answer.

I can live with that.

With Thanks
Steve