Need help with looping function
 

Hi,
Im not really a vba programmer, so i need some help with this one.
I have large excel sheet with customer which I summarize using
subtotal.

I want a function that does the following :
if total then check the total sum for this row, if negative number set
background for the whole
row = yellow.

I got started but then i got stuck :

Sub TrailMyNegativeNumbers()
'
' TrailMyNegativeNumbers Macro
' Macro recorded 15.02.2006 by Mikal Skaaren
'
' Keyboard Shortcut: Ctrl+z
'

Dim c As Range

' Select the range for the first criteria
Range("A2: A22").Select

For Each c In Selection.Cells

MsgBox (c.Value)

' If c.Value="" then TOTAL
If (c.Value = "") Then

' Get a reference to the right
' Column in the selected row
' and see if that number 0
'

' If negative set the background color
' = yellow

c.EntireRow.Select
With Selection.Font
' .ColorIndex = 12
End With

End If
Next


End Sub

Could anybody help me with this function pleease?

BR
Mike

Need help with looping function
 

Mike,

It would be easier to use conditional formatting to set the colour.

What exactly is your condition that triggers a yellow colour?

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Mike" wrote in message
oups.com...
Hi,
Im not really a vba programmer, so i need some help with this one.
I have large excel sheet with customer which I summarize using
subtotal.

I want a function that does the following :
if total then check the total sum for this row, if negative number set
background for the whole
row = yellow.

I got started but then i got stuck :

Sub TrailMyNegativeNumbers()
'
' TrailMyNegativeNumbers Macro
' Macro recorded 15.02.2006 by Mikal Skaaren
'
' Keyboard Shortcut: Ctrl+z
'

Dim c As Range

' Select the range for the first criteria
Range("A2: A22").Select

For Each c In Selection.Cells

MsgBox (c.Value)

' If c.Value="" then TOTAL
If (c.Value = "") Then

' Get a reference to the right
' Column in the selected row
' and see if that number 0
'

' If negative set the background color
' = yellow

c.EntireRow.Select
With Selection.Font
' .ColorIndex = 12
End With

End If
Next


End Sub

Could anybody help me with this function pleease?

BR
Mike