View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Mike[_105_] Mike[_105_] is offline
external usenet poster
 
Posts: 1
Default 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