Hello All,

Looking for code that does the following.
Reviews cells I4,L4 and O4 If any of these cells are <0 andif any of the
same cells are 0 then Msgbox "Site Balance" else do nothing. Then next row
and keep doing it until the end of page.

Thanks in advance!!
Aaron

iLastRow = Cell(Rows.Count,"I").End(xlUp).Row
For i = 1 To iLastRow
If Cells(i,"I").Value <0 or Cells(i,"L").Value < 0 Or _
Cells(i,"M") < 0 Then
MsgBox "Site balance on rfow " & i
End If
Next i

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"Aaron" wrote in message
...
Hello All,

Looking for code that does the following.
Reviews cells I4,L4 and O4 If any of these cells are <0 andif any of the
same cells are 0 then Msgbox "Site Balance" else do nothing. Then next
row
and keep doing it until the end of page.

Thanks in advance!!
Aaron

This would not work. I only need the msgbox if there are both positive and
Negative numbers in the three cells.

"Bob Phillips" wrote:

iLastRow = Cell(Rows.Count,"I").End(xlUp).Row
For i = 1 To iLastRow
If Cells(i,"I").Value <0 or Cells(i,"L").Value < 0 Or _
Cells(i,"M") < 0 Then
MsgBox "Site balance on rfow " & i
End If
Next i

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"Aaron" wrote in message
...
Hello All,

Looking for code that does the following.
Reviews cells I4,L4 and O4 If any of these cells are <0 andif any of the
same cells are 0 then Msgbox "Site Balance" else do nothing. Then next
row
and keep doing it until the end of page.

Thanks in advance!!
Aaron

iLastRow = Cell(Rows.Count,"I").End(xlUp).Row
For i = 1 To iLastRow
If (Cells(i,"I").Value <0 Or Cells(i,"L").Value < 0 Or _
Cells(i,"M") < 0) And _
(Cells(i,"I").Value 0 Or Cells(i,"L").Value 0 Or _
Cells(i,"M") 0) Then
MsgBox "Site balance on rfow " & i
End If
Next i


--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"Bob Phillips" wrote in message
...
iLastRow = Cell(Rows.Count,"I").End(xlUp).Row
For i = 1 To iLastRow
If Cells(i,"I").Value <0 or Cells(i,"L").Value < 0 Or _
Cells(i,"M") < 0 Then
MsgBox "Site balance on rfow " & i
End If
Next i

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"Aaron" wrote in message
...
Hello All,

Looking for code that does the following.
Reviews cells I4,L4 and O4 If any of these cells are <0 andif any of the
same cells are 0 then Msgbox "Site Balance" else do nothing. Then next
row
and keep doing it until the end of page.

Thanks in advance!!
Aaron