Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
copy rows based on cell colour by conditional formating | Excel Programming | |||
copy rows based on cell colour | Excel Programming | |||
copy rows based on cell colour | Excel Programming | |||
Hide rows based on colour | Excel Programming | |||
Assign a particular colour to rows based on their current status | Excel Programming |