Colour rows based on value
 

Works fine for me. What do you mean when you say that ... when the change
takes place?

--
__________________________________
HTH

Bob

"Martin" wrote in message
...
Hello,

I have this code that almost works but just need some help. This looks at
the value of each row, column 3 and colours the entire row with shade 36
if
the cell value is different to the row above (still column 3). However
when
the change takes place in column 3 it doesnt shade that row but it shades
all
others. So I am almost there but stumped why it does this.

Can anyone help?

Dim lRow As Long
Dim lCol As Long

For lRow = 2 To 9216

If Cells(lRow, 3).Value = Cells(lRow - 1, 3) Then
If IsEmpty(Cells(lRow, 256)) Then
lCol = Cells(lRow, 256).End(xlToLeft).Column
Else
lCol = 256
End If
Range(Cells(lRow, 1), Cells(lRow, lCol)).Interior.ColorIndex = 36
End If
Next

Thanks

Colour rows based on value
 

Sorry. I mean for example column 3 row 4 to 8 is different to column 3 row 3
then that row is not coloured but row 5 to 8 is. So it misses out the first
row of where the change takes place

"Bob Phillips" wrote:

Works fine for me. What do you mean when you say that ... when the change
takes place?

--
__________________________________
HTH

Bob

"Martin" wrote in message
...
Hello,

I have this code that almost works but just need some help. This looks at
the value of each row, column 3 and colours the entire row with shade 36
if
the cell value is different to the row above (still column 3). However
when
the change takes place in column 3 it doesnt shade that row but it shades
all
others. So I am almost there but stumped why it does this.

Can anyone help?

Dim lRow As Long
Dim lCol As Long

For lRow = 2 To 9216

If Cells(lRow, 3).Value = Cells(lRow - 1, 3) Then
If IsEmpty(Cells(lRow, 256)) Then
lCol = Cells(lRow, 256).End(xlToLeft).Column
Else
lCol = 256
End If
Range(Cells(lRow, 1), Cells(lRow, lCol)).Interior.ColorIndex = 36
End If
Next

Thanks