Hello Maryam,
This code loops through every cell in column A. Cell A1's colour is not changed. If the cell's value is greater than the value of the previous cell, it is coloured red. If the value is lower, it is coloured green. If the value is the same as the previous one, the same colour is used. Two variables are used to keep track of both the colour and value.
If your numbers are in a different column, just change all the A's to match. Change "main" to match the name of your worksheet.
Sub Colour()'Find last full row in column A. Just change the A to the column your numbers are in lastRow = Worksheets("main").Cells(Rows.Count, "A").End(xlUp).RowDim previousValue 'Stores previous value previousValue = Worksheets("main").Range("A1").ValueDim previousColour 'Stores previous colourForEach c In Worksheets("main").Range("A2:A"& lastRow).CellsIf c.Value = previousValue Then'If value doesn't change, use the same colour c.Interior.Color = previousColour previousValue = c.ValueElseIf c.Value > previousValue Then'If value goes up, colour cell red previousColour = RGB(255, 0, 0) previousValue = c.Value c.Interior.Color = previousColourElse'Else (value has gone down) colour cell green previousColour = RGB(0, 255, 0) previousValue = c.Value c.Interior.Color = previousColourEndIfNextEndSub
I tested this code in Excel 2010, but it should work on older versions too. Result of execution:
I hope this helps you.
Kind regards,
James Finch MCDST