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

--
evil bab
-----------------------------------------------------------------------
evil baby's Profile: http://www.excelforum.com/member.php...fo&userid=3198
View this thread: http://www.excelforum.com/showthread.php?threadid=51710

Just bumping this to see if I can get any help

--
evil bab
-----------------------------------------------------------------------
evil baby's Profile: http://www.excelforum.com/member.php...fo&userid=3198
View this thread: http://www.excelforum.com/showthread.php?threadid=51710

Sub aaTest()
Dim x
Range("G22").Select
Do While ActiveCell < 0
x = ActiveCell.Offset(-1, 0).Value
y = ActiveCell.Value
'MsgBox x
'MsgBox ActiveCell.Value
x = Abs(x)
y = Abs(y)
If y = (x + (x * 0.05)) Then
ActiveCell.Interior.ColorIndex = 3
ActiveCell.Font.ColorIndex = 2
ElseIf y <= (x - (x * 0.05)) Then
ActiveCell.Interior.ColorIndex = 3
ActiveCell.Font.ColorIndex = 2
ElseIf y = (x + (x * 0.02)) Then
ActiveCell.Interior.ColorIndex = 36
ActiveCell.Font.ColorIndex = 1
ElseIf y <= (x - (x * 0.02)) Then
ActiveCell.Interior.ColorIndex = 36
ActiveCell.Font.ColorIndex = 1
ElseIf y < (x + (x * 0.02)) Then
ActiveCell.Interior.ColorIndex = 35
ActiveCell.Font.ColorIndex = 1
ElseIf y (x - (x * 0.02)) Then
ActiveCell.Interior.ColorIndex = 35
ActiveCell.Font.ColorIndex = 1
End If
ActiveCell.Offset(0, 1).Select
Loop
End Sub

--
Regards,
Tom Ogilvy



"evil baby" wrote
in message ...

Just bumping this to see if I can get any help.


--
evil baby
------------------------------------------------------------------------
evil baby's Profile:
http://www.excelforum.com/member.php...o&userid=31983
View this thread: http://www.excelforum.com/showthread...hreadid=517107

Thanks for the help I'll work with that code.


--
evil baby
------------------------------------------------------------------------
evil baby's Profile: http://www.excelforum.com/member.php...o&userid=31983
View this thread: http://www.excelforum.com/showthread...hreadid=517107