Color Rows

  • Thread starter Thread starter smandula
  • Start date Start date
S

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
 
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
 
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
 
Back
Top