Counting/summing cells based on background color

N

Nan

Is there a way to count only cells that have a specific background colo
AND have a value greater than 0?

I'm very new to VBA but got help from www.cpearson.com on how t
count/sum cells with background color. It works great only now I wan
to only count the cell if the value is greater than $0.

Any help is greatly appreciated! Thanks
 
G

Guest

Nan

The following is one way of achieving what you want but
may be slow if you are interrogating lots of cells.

The macro below uses a loop to "visit" every cell in a
column until it finds a blank cell (so you may need to
modify this if the data you are investigating is not
contiguous). Having set MySum to zero before processing,
everytimeit enters a cell where the background colour is,
in this example, 36 (you need to use the colour code you
are searching for) AND the value of the data is greater
than zero, it increments the running total in MySum before
moving to the next cell below until a blank is encountered.

Hope this helps.


Sub SumOnColour()
MySum = 0
While ActiveCell.Value <> ""
If ActiveCell.Interior.ColorIndex = 36 And
ActiveCell.Value > 0 Then
MySum = MySum + ActiveCell.Value
End If
ActiveCell.Offset(1, 0).Select

Wend

End Sub
 
N

Nan

This doesn't seem to work. It might be because I just don't understan
well enough. My data is not contiguous which may also be my problem
 
Top