Reply to thread

Message: [QUOTE="evil baby, post: 7797118"] I had to format a row of numbers depending on the value above it. I have to compare A2 to A1 and change A2 accordingly. Problem is when A1 is a negative number the conditional formattin doesn't work. Here is my code: I'm pretty new at this so it is probably really ugly Dim x Range("G22").Select Do While ActiveCell <> 0 x = ActiveCell.Offset(-1, 0).Value 'MsgBox x 'MsgBox ActiveCell.Value If ActiveCell.Value >= (x + (x * 0.05)) Then ActiveCell.Interior.ColorIndex = 3 ActiveCell.Font.ColorIndex = 2 ElseIf ActiveCell.Value <= (x - (x * 0.05)) Then ActiveCell.Interior.ColorIndex = 3 ActiveCell.Font.ColorIndex = 2 ElseIf ActiveCell.Value >= (x + (x * 0.02)) Then ActiveCell.Interior.ColorIndex = 36 ActiveCell.Font.ColorIndex = 1 ElseIf ActiveCell.Value <= (x - (x * 0.02)) Then ActiveCell.Interior.ColorIndex = 36 ActiveCell.Font.ColorIndex = 1 ElseIf ActiveCell.Value < (x + (x * 0.02)) Then ActiveCell.Interior.ColorIndex = 35 ActiveCell.Font.ColorIndex = 1 ElseIf ActiveCell.Value > (x - (x * 0.02)) Then ActiveCell.Interior.ColorIndex = 35 ActiveCell.Font.ColorIndex = 1 End If ActiveCell.Offset(0, 1).Select Loop End Su [/QUOTE]