ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Counting/summing cells based on background color (https://www.excelbanter.com/excel-programming/297870-counting-summing-cells-based-background-color.html)

Nan[_2_] May 10th 04 10:25 PM

Counting/summing cells based on background color
 
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

--
Message posted from http://www.ExcelForum.com


No Name May 11th 04 10:03 AM

Counting/summing cells based on background color
 
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

-----Original Message-----
Is there a way to count only cells that have a specific

background color
AND have a value greater than 0?

I'm very new to VBA but got help from www.cpearson.com on

how to
count/sum cells with background color. It works great

only now I want
to only count the cell if the value is greater than $0.

Any help is greatly appreciated! Thanks.


---
Message posted from http://www.ExcelForum.com/

.


Nan[_3_] May 11th 04 05:36 PM

Counting/summing cells based on background color
 
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

--
Message posted from http://www.ExcelForum.com



All times are GMT +1. The time now is 05:42 AM.

Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
ExcelBanter.com