*I this article you will learn how to count cells by color in Excel and get the sum of colored cells. These solutions work both for cells colored manually and with conditional formatting. You will also learn how to filter cells by several colors in Excel 2010 and 2013.*

If you actively use diverse fill and font colors in your Excel worksheets to differentiate between various types of cells or values, you may want to know how many cells are highlighted in a certain color. If your cells' values are numbers, you may also want to automatically calculate the sum of cells shaded with the same color, e.g. the sum of all red cells.

As all of us know, Microsoft Excel provides a variety of formulas for different purposes, and it would be logical to assume that there are some to count cells by color. But regrettably, there is no formula that would let us sum by color or count by color in a usual Excel worksheet.

Apart from using third-party add-ins, there is only one possible solution - utilize User Defined Functions. If you know very little about this technology or have never heard this term before, don't be afraid, you will not have to write the code yourself. You will find the perfect code (written by our Excel guru) here and all that you will have to do is copy / paste it into your workbook.

- Count by color and sum by color (if cells are colored manually)
- Sum by color and count by color across the entire workbook
- Count and sum colored cells (if conditional formatting is used)
- Fastest way to count and sum cells by color in Excel

### How to count by color and sum by color in an Excel worksheet

Suppose you have a table listing your company's orders where the cells in the Delivery column are colored based on their value - "*Due in X Days*" cells are orange, "*Delivered*" items are green and "*Past Due*" orders are red.

What we want now is automatically count cells by color, i.e. calculate the number of red, green and orange cells in the worksheet. As I explained above, there is no straightforward solution to this task. But luckily we have very skilled and knowledgeable Excel gurus in our team and one of them has written the faultless code for Excel 2010 and 2013. So, move on with the 5 quick steps below and you will know the number and sum of your color cells in a few minutes.

**1.** Open your Excel workbook and press Alt+F11 to open Visual Basic Editor (VBE).

**2.** Right-click on your workbook name under "*Project-VBAProject*" in the right hand part of the screen, and then choose **Insert > Module** from the context menu.

**3.** Add the following code to your worksheet:

Function GetCellColor(xlRange As Range) GetCellColor = xlRange.Cells(1, 1).Interior.Color End Function Function GetCellFontColor(xlRange As Range) GetCellFontColor = xlRange.Cells(1, 1).Font.Color End Function Function CountCellsByColor(rData As Range, cellRefColor As Range) As Long Dim indRefColor As Long Dim cellCurrent As Range Dim cntRes As Long Application.Volatile cntRes = 0 indRefColor = cellRefColor.Cells(1, 1).Interior.Color For Each cellCurrent In rData If indRefColor = cellCurrent.Interior.Color Then cntRes = cntRes + 1 End If Next cellCurrent CountCellsByColor = cntRes End Function Function SumCellsByColor(rData As Range, cellRefColor As Range) Dim indRefColor As Long Dim cellCurrent As Range Dim sumRes Application.Volatile sumRes = 0 indRefColor = cellRefColor.Cells(1, 1).Interior.Color For Each cellCurrent In rData If indRefColor = cellCurrent.Interior.Color Then sumRes = WorksheetFunction.Sum(cellCurrent, sumRes) End If Next cellCurrent SumCellsByColor = sumRes End Function Function CountCellsByFontColor(rData As Range, cellRefColor As Range) As Long Dim indRefColor As Long Dim cellCurrent As Range Dim cntRes As Long Application.Volatile cntRes = 0 indRefColor = cellRefColor.Cells(1, 1).Font.Color For Each cellCurrent In rData If indRefColor = cellCurrent.Font.Color Then cntRes = cntRes + 1 End If Next cellCurrent CountCellsByFontColor = cntRes End Function Function SumCellsByFontColor(rData As Range, cellRefColor As Range) Dim indRefColor As Long Dim cellCurrent As Range Dim sumRes Application.Volatile sumRes = 0 indRefColor = cellRefColor.Cells(1, 1).Font.Color For Each cellCurrent In rData If indRefColor = cellCurrent.Font.Color Then sumRes = WorksheetFunction.Sum(cellCurrent, sumRes) End If Next cellCurrent SumCellsByFontColor = sumRes End Function

**4.** Save your workbook as "*Excel Macro-Enabled Workbook (.xlsm)*".

If you are not very comfortable with VBA, you can find the detailed step-by-step instructions and a handful of useful tips in this tutorial: How to insert and run VBA code in Excel.

**5.** Now that all "behind the scenes" work is done for you by the just added user-defined function, choose the cell where you want to output the results and write the following formula into it: `=CountCellsByColor(F2:F14,A17)`

where *F2:F14* is the range in which you want to count colored cells and *A17* is the cell with a certain background color, a red one in our case. In a similar way you write the formula for the other colors you want to count, yellow and green in our table.

If you have numerical data in colored cells (e.g. the **Qty.** column in our table), you can easily calculate the sum by color, i.e. get the sum of all cells colored in red, yellow and green as shown in the screenshot below:

As you see, we used this formula: `=SumCellsByColor(D2:D14,A17)`

where *D2:D14* is the range and *A17* is the cell with a color pattern.

In a similar way you can count cells and sum cells' values by **font color** using the formulas `CountCellsByFontColor`

and `SumCellsByFontColor`

, respectively.

**Note:** If after applying the above mentioned VBA code you would need to color a few more cells manually, the sum and count of the colored cells won't get recalculated automatically to reflect the changes. Please don't be angry with us, this is not a bug of the code : )

In fact, it is the normal behavior of all Excel macros, VBA scripts and User-Defined Functions. The point is that all such functions are called with a change of a worksheet's data only and Excel does not perceive changing the font color or cell color as a data change. So, after coloring cells manually, simply place the cursor to any cell and press* F2* and *Enter*, the sum and count will get updated. The same applies to the other macros you will find further in this article.

#### Sum by color and count by color across the entire workbook

The VB script below was written in response to Connor's comment (also by our Excel's guru Alex) and does exactly what Connor requested, namely counts and sums the cells of a certain color in all worksheets of the workbook. So, here comes the code:

Function WbkCountCellsByColor(cellRefColor As Range) Dim vWbkRes Dim wshCurrent As Worksheet Application.ScreenUpdating = False Application.Calculation = xlCalculationManual vWbkRes = 0 For Each wshCurrent In Worksheets wshCurrent.Activate vWbkRes = vWbkRes + CountCellsByColor(wshCurrent.UsedRange, cellRefColor) Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic WbkCountCellsByColor = vWbkRes End Function Function WbkSumCellsByColor(cellRefColor As Range) Dim vWbkRes Dim wshCurrent As Worksheet Application.ScreenUpdating = False Application.Calculation = xlCalculationManual vWbkRes = 0 For Each wshCurrent In Worksheets wshCurrent.Activate vWbkRes = vWbkRes + SumCellsByColor(wshCurrent.UsedRange, cellRefColor) Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic WbkSumCellsByColor = vWbkRes End Function

You use this macro in the same manner as the previous code and output the count and sum of the colored cells with the help of the following formulas, `=WbkCountCellsByColor()`

and `=WbkSumCellsByColor()`

, respectively. Simply enter either formula in any empty cell on any sheet without defining a range, specify the address of any cell of the needed color in brackets, e.g. *=WbkSumCellsByColor(A1)*, and the formula will display the sum of all the cells shaded with the same color in your workbook.

#### Formulas to get a cell's background color, font color and color code

Here you will find a summary of all the formulas we've used in this example as well as a couple of new ones that retrieve color codex.

**Note:**Please remember that all of these formulas will work only if you have added the user-defined function to your Excel workbook as we discussed earlier in the article.

##### Formulas to count by color:

`CountCellsByColor`

- counts cells with the specified background color.In the above example, we used the following formula to count cells by color*=CountCellsByColor(F2:F14,A17)*where*F2:F14*is the selected range and*A17*is the cell with the needed background color. You can use all other formulas listed below in a similar way.`CountCellsByFontColor`

- counts cells with the specified font color.

##### Formulas to sum by color:

`SumCellsByColor`

- calculates the sum of cells with a certain background color.`SumCellsByFontColor`

- calculates the sum of cells with a certain font color.

##### Formulas to get the color code:

`GetCellFontColor`

- returns the color code of the font color of a cell.`GetCellColor`

- returns the color code of the background color of a cell.

Well, counting cells based on color and getting the sum of colored cells was pretty easy, wasn't it? Of course if you have that little VBA gem that makes the magic happen : ) But what if you do not color cells manually and rather use conditional formatting, as we discussed in these two articles How to change the background color of cells and How to change a row's color based on cell value?

### How to count by color and sum cells colored using conditional formatting

If you have applied conditional formatting to color cells based on their values and now you want to count cells by color or sum the values in colored cells, I have bad news - there is no universal user-defined function that would sum by color or count color cells and output the resulting numbers directly in the specified cells. At least, I am not aware of any such function, alas : (

Of course, you can find tons of VBA code on the Internet that attempts to do this, but all those codes (at least the examples I've come across, **do not process** conditional formatting such as "*Format all cells based on their values*", "*Format only top or bottom ranked values*", "*Format only values that are above or below average*", "*Format only unique or duplicate values*". Besides that nearly all those VBA codes have a number of specificities and limitations because of which they may not work correctly with certain workbooks or data types. All in all, you can try your luck and google for an ideal solution and if you happen to find one, please do come back and post your finding here!

The VBA code below overcomes the above mentioned limitations and works in Microsoft Excel 2010 and Excel 2013 spreadsheets **with all types of condition formatting** (kudos to Alex again!). As a result, it displays the number of colored cells and the sum of values in those cells, no matter which type of conditional formats are used in a sheet.

Sub SumCountByConditionalFormat() Dim indRefColor As Long Dim cellCurrent As Range Dim cntRes As Long Dim sumRes Dim cntCells As Long Dim indCurCell As Long cntRes = 0 sumRes = 0 cntCells = Selection.CountLarge indRefColor = ActiveCell.DisplayFormat.Interior.Color For indCurCell = 1 To (cntCells - 1) If indRefColor = Selection(indCurCell).DisplayFormat.Interior.Color Then cntRes = cntRes + 1 sumRes = WorksheetFunction.Sum(Selection(indCurCell), sumRes) End If Next MsgBox "Count=" & cntRes & vbCrLf & "Sum= " & sumRes & vbCrLf & vbCrLf & _ "Color=" & Left("000000", 6 - Len(Hex(indRefColor))) & _ Hex(indRefColor) & vbCrLf, , "Count & Sum by Conditional Format color" End Sub

#### How to use the code to count colored cells and sum their values

**1.** Add the above code to your worksheet as explained in the first example.

**2.** Select a range or ranges where you want to count colored cells or/and sum by color if you have numerical data.

**3.** Press and hold Ctrl, select one cell with the needed color, and then release the Ctrl key.

**4.** Press Alt+F8 to open the list of macros in your workbook.

**5.** Select the **SumCountByConditionalFormat** macro and click **Run**.

As a result, you will see the following message:

For this example, we selected the Qty. column and got the following numbers:

**Count**is the number of the cells with a particular color, a reddish color in our case that marks "*Past Due*" cells.**Sum**is the sum of values of all red cells in the Qty. column, i.e. the total number of "*Past Due*" items.**Color**is the Hexadecimal color code of a selected cell, D2 in our case.

#### Sample workbook for download

If you have any difficulties with adding the scripts to your Excel workbooks, such as compilation errors, formulas not working and so on, please download this sample workbook with the *CountCellsByColor* and *SumCellsByColor* functions ready for use and try them on your data.

## Fastest way to count and sum cells by color in Excel - new!

*Updated on 1-Jul-2014. *

When we published this article, we hoped it would be popular because we used to get a lot of questions about how to count and sum cells by color in Excel. But even in our wildest expectations, we did not think it was going to be that popular! What you see in comments on this page is just a tiny portion of the enormous feedback we have received. So, our team decided to take a step further and create an Excel add-in that would count and sum cells **by the color you specify** or by **all colors in the selected range**.

Let me introduce you our brand new add-in - Count & Sum by Color for Excel 2013, Excel 2010, 2007 and 2003. Once installed, it will place 2 buttons onto the *Ablebits Data* tab on your Excel ribbon - *One Color* and *All Colors*, as you can see in the screenshot below:

#### Count and sum cells by the selected color

You simply click the **One Color** button on the ribbon and have the *Count & Sum by Color* pane open at the left of the worksheet. On the pane, you select:

- The range where you want to count and sum the cells
- Any color-coded cell
- Color option - either background or font color

Once done, click **Calculate** and see the result in the lower part of the pane straight away! Apart from the count and sum, the add-in calculates the average and finds the max and min values. No macros, no formulas, no pain

#### Count and sum cells by all colors in the selected range

The **All Colors** option works basically in the same way, except that you do not have to choose the color. In the "*Show results for*" section, you can select any of the following options: *Count*, *Sum*, *Average*, *Maximum* or *Minimum* value.

If you want to copy the results to your worksheet, click the **Paste results...** button at the bottom of the *Count & Sum by Color* pane.

And here is a list of the **main features** you will find in the *Count & Sum by Color *add-in:

- Count and sum cells by color in all versions of Excel 2013, 2010, 2007 and 2003.
- Handle cells color-coded manually and with conditional formatting.
- Besides counting and calculating the sum, the following functions are available: Average, Maximum and Mininum values.
- An option to recalculate colored cells automatically when a new range is selected.
- Copy and paste the results to any location on the current spreadsheet or to any other sheet.

You can download a trial version of the *Count & Sum by Color* add-in here. Hopefully you will like it, but we are keen to know your feedback, anyway : )

#### How can I get the Count & Sum by Color add-in?

Currently the add-in is available as part of the Ultimate Suite for Excel. This is a collection of our best tools especially designed to deal with the most tedious, painstaking and error-prone tasks in Excel.

In addition to the **Count & Sum by Color** add-in, the Ultimate Suite includes about 40 other tools that can help you to:

- Merge data from different tables
- Remove duplicates
- Combine duplicate rows into one
- Merge cells, rows and columns
- Find and replace in all workbooks
- Clean data in worksheets
- And much more!

If you like the tools, be sure to benefit from a special 15% off coupon code that we provide especially for our blog readers: **AB14-BlogSpo**

Hopefully, in this article you have found the information you were looking for. If not, you are welcome to post a comment and we will try to help!

### You may also be interested in:

- The basics of conditional formatting in Excel 2007, 2010 and 2013
- Excel conditional formatting based on formulas
- Excel conditional formatting for dates
- Highlight every other row or column in Excel

EXCEL 2020

EXCEL 2010

Jeżeli kupiliśmy aklutanie dom gotowy, ktf3ry miał uprzednio innego typu system ocieplania, bez problemu zdołamy go dostawić na zewnątrz budynku. A może jednak kocioł na ? Ci ktf3rzy posiadają obydwa kotły tzn. Więcej na ten temat pod adresem:

Hello BreBre,

I'm a bit confused. Do you mean there's a misprint somewhere in the article or it's already time to move forward and think about Excel 2020? : )

Hello Svetlana,

I really like your VB code for "How to count by color and sum by color in Excel". I just need to take it one step further. I'm trying to use the "How to count by color and sum by color in Excel" to count the number of Red (Misses Service Levels) and Green (Achieved Service Levels) by row on a Summary tab. The Summary tab is populated by 12 Monthly tabs (Jan-13, Feb-13, Mar-13 – Dec-13) via a VLOOKUP command. Once on the Summary tab, if the Service Level was Missed, a conditional format changes the fill color to RED, if the SLA is Achieved, the fill color is GREEN. Even though the Conditional Formatting shows the cell as RED or GREEN, your VB script still believes them to be NO COLOR Fill. Any thoughts?

Hi, thanks for useful tutorial. I have excel data which cells contain number 1-1500 and each number colored with various background colors. I want to sum how many cells are red,yellow or blue. I've got visual basic editor and SumCellsByColor function but I get confused how to sum by color using that function in this case because likely different with your tutorial, is it? Can you help?

Hi Sam,

From your description, your task looks similar to the example described on step 5 of How to count by color. In my example I used the CountCellsByColor formula three times to count red, green and yellow cells. For example, I used =CountCellsByColor(F2:F14,A17) to count all red cells in the table. You enter this formula in some empty cell in your table where you want to output the sum, say, of all red cells and replace F2:F14 with your range of colored cells and instead of A17 enter an address of any cell colored in red. Copy the same formula in as many empty cells as many different background colors you want to count, just type a different cell address after the comma, i.e. the address of any cells with a certain background color, yellow, blue or other.

If you want to achieve something different, please let me know or even better post a screenshot so that we can exactly understand your task.

Hi RDuncan,

Did you use the script from the Count and sum colored cells (if conditional formatting is used) section? If so, can you please send us your workbook for testing? We've tested that VB script on many workbooks with conditional formatting and it has always worked. Also, which Excel version do you use?

Hi, Svetlana -

I used your script and formula for a spreadsheet at work - to sum cells of certain colors for a reconciliation. It was fantastic. However, when I color additional cells for values that my reconciliation found had been missed, the related formulas do not update to reflect the correct sum. Why is that? We are working in Excel 2013.

Thanks.

THANK YOU, you saved my ass at work!

Hi Gwen,

This happens because of the following specificity of Microsoft Excel. Any macros, VBA scripts etc. work on the worksheet's level and functions are called with a change of a worksheet's data only. Changing the font color or cell color is not perceived as the data change by Excel. So, after coloring additional cells, simply place the cursor to any cell, hit F2 and Enter, the sum of the colored cells will get recalculated.

Hope this helps a thanks for your comment!

i am working in a company as a MIS Executive but i have some problem in vba coding can you help or can you give the some traning session of vba coding me

Sorry, we do not provide training services. But I am sure there are plenty such courses on the web.

Thank you so much, Svetlana. That worked perfectly. This function is going to be so helpful.

Actually.... my cursor had to be in the cell with the formula for the F2 to work. I should have included that in my previous response for others to reference. Thanks!

Hey!

The VBA for counting colored cells worked wonderfully, but I need to count coloured cells across an entire workbook not just one worksheet to have an overall count. Do you know of any way I can do this?

Thanks!

Hi Connor,

We have just added another VB script to the article that counts and sums colored cells across the whole workbook. Hopefully, this is what you are looking for : )

Thank you for your tutorial.

I tried to use "How to count by color and sum cells colored using conditional formatting" but it did not work. When debugging there was an error at the line:

indRefColor = ActiveCell.DisplayFormat.Interior.ColorIndex

as the debug mentioned that indRefColor = 0

What's the error in my implementation ???

Thank you

Abdo

Hi Abdo,

We have not been able to reproduce this error. Can you please send us your workbook for testing (or any other sample workbook that reproduces the issue) and we will try to figure it out? If it is possible, please drop me a line using the contact form on my personal page.

Thank you!

I tried the conditional formatting VB code and get a syntax error pointing to the first line - Dim indRefColor As Long. Any suggestions ?

Hi lkara,

In which Excel version did you run the script? We tested it in Excel 2013 and 2010 only and it may not work correctly in earlier versions. In you are using either 2013 or 2010, please specify your version of Windows and the localization of both Windows and Excel. Thank you!

I have a problem regarding on counting of cells by color, if I merged two cells the total count will also two. Is their any additional formula to make only one count for the merged cell.. Thanks. !!!

Regrettably, it is not possible to make one count for the merged cells. More precisely, neither I nor our Excel developers know such a formula. If you happen to find a way, please do share it here : )

Dear Svetlana

Thank you for such interesting things.

if you have more detail in addition to excel

please send me the coding and the note.

God Bless you

Mulugeta

Hi Mulugeta,

I'm glad to know my article has been of help to you. I've posted all the code here and you can copy it to your worksheets. Thanks for your comment!

Hi Svetlana,

I've tried to use the code to do a count based on color; however, it doesn't seem to be counting correctly since the color I have on a table is red and I am trying to count whenever I manually update it to green (it currently is counting it regardless of what color I choose).

Hi John,

Did you update a cell with the formula after changing the color manually (put the cursor in the cell, press F2 and Enter)? Please see comments 10 and 12 above for more details.

I believe I may have figured it out; it seems that the code will work for basic colors but will not work for custom colors. Thanks!

John,

I consulted Alex, our Excel specialist who actually wrote the code, and he says it should work with custom colors too, except for similar colors. BTW, which code have you tried - for cells colored manually or using conditional formatting?

Hi Svetlana,

Thanks for the code! It's just what I was looking for. For some reason, however, it's not counting correctly. I highlighted 42 rows: 27 black font, 15 red font and it's giving me a count of 16 when it's sent to count black font. I set up =CountCellsByFontColor(A3:A44,A1), where A3:A44 is the range and A1 is the color (black). Please let me know how to fix this. I would love to use this macro!

Hi Svetlana, I deleted the coding and started again and it works now. Must have been my error. Thanks so much!

Hi Cheryl,

It's great that you've figured it out on your own! And thank you for letting me know.

Hello, thanks for the sumifcolor~I am manually adjusting the colors after I have entered the formulas, but now the formula will not automatically update. I have verified the "automatic" update is checked...verified other formulas are updating automatically. However, when I add another cell to the color I want to update my sum, it does not do so unless I click on the formula and hit enter.

Please advise...and thanks!

Hi Ian,

This is how all macros and VBA scripts work in Excel, you do need to click on the formula and press Enter after changing the colors manually. Please see my comment 10 above for more details. Thanks for your comment!

Thanks! Your site is going to make me look wicked smart. And I appreciate you.

Doesn't work. A window oppens giving the information of error in formula formatting. Any body could help?

Thanks

Hi Francisco,

What Excel version do you use? Please note that the script works with Excel 2010 and 2013 only.

Hi Svetlana,

The code works amazingly and I thank you.

Could you please assist me in with a code of how to count merged colored cells?

Hi Boyo,

Regrettably, we do not know a way to make only one count for the merged cells. Our developers say this is a very tricky with a lot of pitfalls.

Hi,

Thanks for the code. It's very useful. I am looking for code that counts coloured cells and then recounts when a filter is applied to those cells. i.e. it counts all the coloured cells in the filtered data. Any help with this would be much appreciated.

Matt

Hi Matt,

I think we might be able to help. Please specify which exactly code you need – the first one that works with cells colored manually or the other one that supports conditional formatting.

Also, do you use Excel's auto filter or do you filter your data in some other way?

Thanks for the response.

Coloured manually - The data was originally conditionally formatted however I copied and pasted it to remove the conditional formatting so the data is effectively coloured manually.

I am using Excels autofilter.

Matt

Matt,

Try to find the following line in the code:

If indRefColor = cellCurrent.Interior.ColorIndex Then

And replace it with:

If (indRefColor = cellCurrent.Interior.ColorIndex) AND (False = cellCurrent.Rows.Hidden) Then

This line is used both in "Function CountCellsByColor" and "Function SumCellsByColor". You can change it in both functions if you want to count and sum the filtered cells, or in the CountCellsByColor function only.

Does it work now as you want it?

Thank you for adding the code in response to Connor's comment about the entire workbook. I am trying to get the sum, not the count for the workbook. I just want to make sure that code works for the sum as well as the count, and if so, what data range would I use? Thank you.

Hi Josh,

It's a very good question! It actually made me realize that the formulas we published in that section were not true.

When using the function that counts and sums colored cells across all the sheets in a workbook, you need to use the following formulas to count and sum, respectively:

=WbkCountCellsByColor(A1) and =WbkSumCellsByColor(A1)

We've slightly modified the code and does work for the sum as well as for the count now. Just enter the second formula in any empty cell on any sheet without defining a range, specify the address of any cell of the needed color (it's (A1) in the example above) and the formula will display the sum of all the cells shaded in this color in your workbook.

Thanks again for your comment and your great question!

Hello,

Thanks for the code. It is working but i have a question of how to set up a rule to use it. I used the Conditional formatting code.and now i am trying make a rule to count the number of green cells automatically for each column and return it to a specific cell. each column is a month and i want to know how many red green, yellow, and orange cells there were for each month. if you could shed some ligght that would be great.

Hello Jake,

Regrettably, none of our Excel developers knows how to do this. The Excel Object model does not allow using the needed property in formulas, which is why it's impossible to create a conditional formatting rule to count the colored cells. Calling a macro manually as described in the article is the only possible way that we know.

Hi, by chance i get this article while surfing. excellent piece of information. How to count cells colour to denote a separate colour. For example, if there are five yellow,five red and 10 oranges in a row, say from a1 to a20. in A21, i want to stipulate a condition, where, there should be 5yellow (not less or more), similarly 5 red and 10 oranges, if these are satisfied, then I want a21 to be green colour otherwise, blank. How to effect it in a selected row and then i can copy the formula.May i expect your reply as solution.

Hi Jraju,

You can add this function to your workbook and then enter the following formula to A21:

=AND(CountCellsByColor($A$1:$A$20,$B$1)=5, CountCellsByColor($A$1:$A$20,$B$2)=10, CountCellsByColor($A$1:$A$20,$B$3)=5)=TRUE

Where $B$1, $B$2 and $B$3 are the cells with your color patterns (yellow, red and orange, respectively).

If the cells with color patterns are on another sheet, then you need to add the sheet's name, e.g.

=AND(CountCellsByColor($A$1:$A$20,ColorLookup!$A$1)=5, CountCellsByColor($A$1:$A$20,ColorLookup!$A$2)=10, CountCellsByColor($A$1:$A$20,ColorLookup!$A$3)=5)=TRUE

Thanks to you I am able to correctly count cells of a particular colour now in a column, but I really need to be able to count only the rows where both a colour is in a certain column and another has the words "Indoor" in it (i.e. 2 conditions to be met to count the row).

I tried the formula: =COUNTIFS(Report.xls!$I:$I,$B$9, Report.xls!$AH:$AH,"(CellsByColor(Report.xls!$AH:$AH,A3))") which appears to work but always results in the answer zero. Can you see where I am going wrong please or suggest a better way?

Hi Greg,

There is no Excel formula that would let you count rows based on two different conditions at a time. This can be done by creating an additional column in your Report.xls sheet. If such an approach is acceptable for you, please let me know and we will try to work out a formula.

I have an assignment that requires counting color blocks per wall (total), per column (total).

Column South West 1 - Example: F,6 (DB-Dark Blue), G,6 (LG-Light Green), H,6 (A-Amber)

Row 2

Type B10

The Whole point is calculating quantity of color glass per column/wall (4colums per wall).

Thank you in advance.

In kind,

Wanda Rolon

Hi Wanda,

Sorry, I am not sure I can exactly follow you. If you can send us (at support@ablebits.com) your original workseet and the result you are trying to achive, we will try to help.

Thank you for providing this code. It has worked well. My worksheet includes colours with a pattern (which represents pending) and I do not want to count these cells.

Is it possible to add to the code so it does not count the colour if a pattern is also in that cell?

Thank you

Tammy

Hi Tammy,

In theory, this can probably be done. But to be able to say with certainty, we need to have a look at the colors you are using because very close colors may not be recognized by the script. So, if you can send us your workbook (without real data, only colors) and indicate which color(s) is a pattern, we will try to help.

Hi Svetlana,

Thank you very much for this piece of code, it helped me a lot!

However, I wonder if there is small bug inside or not

(I don't know if my "pre" tags with SyntaxHighlighter below will work sorry for the inconvenience)

The function "GetCellColor" returns ".Color" property :

Function GetCellColor(xlRange As Range)

GetCellColor = xlRange.Cells(1, 1).Interior.Color

End Function

but the other functions compare the values of ".ColorIndex" properties:

indRefColor = cellRefColor.Cells(1, 1).Interior.ColorIndex

For Each cellCurrent In rData

If indRefColor = cellCurrent.Interior.ColorIndex Then

cntRes = cntRes + 1

End If

Next cellCurrent

Shouldn't we always compare ".Color" properties ?

Yohan

Hi Yohan,

This is a very good question! The code is correct. The point is that the .Color property returns the color RGB code, e.g. FFFF00 for yellow; while .ColorIndex returns the color index in Excel's color palette. That is why we use .Color when we need to know what color is used in a certain cell. When we are comparing two colors, we use .ColorIndex as a quicker way.

Ok !

in fact I needed to compare RGB codes, so now evreything is clear

Thank you for your response

Hi Svetlana,

I am facing an issue with specific colors like dark green and dark red, the formula is mixing both of them, so if i have a dark green cell with value of 5 and another dark red with a value of 7 so in this case the formula is giving me 12 as a result for both colors , need your help please

Hi Gary,

It's hard to say what the cause of the problem is without seeing your colors. Can you please send us your worksheet (only colors, no data is actually needed) at support@ablebits.com? We will try to figure it out and fix the code if needed.

Hello Gary,

Thank you very much for your workbook. You are absolutely right, this is Excel's bug. I've tried to optimized the code performance, which is why I used the .ColorIndex property. As it turned out it still has a bug – earlier Excel versions did not allow using more than 56 colors in one workbook. So, 56 is the maximum number that the function can return. In newer Excel versions beginning with Excel 2007, you can use millions of colors at a time. But the .ColorIndex function still returns up to 56 colors even for new colors.

I've re-written the code using the .Color property that returns a full color code. Please copy / paste it anew, it should work well now.

Thanks again for your worksheet, it gave me a clue!

Thank you both Alex and Svetlana for your responses & assistance

I can't seem to use these functions without getting a #NAME error.

Hi Jim,

Excel throws this error when it cannot find GetCellColor's functions. The most obvious reasons are:

- The functions have not been added

- They were added to a wrong location

- The workbook was not saved as macro-enabled

- There's some misprint in the function's names

Will you, please, verify the items above?

Thanks for the response Svetlana.

My mistake was trying to call the Function from a hidden macro enabled workbook located in XLSTART while I was in a .xlsx workbook.

Thanks for the code, your instructions are very clear and it works brilliant.

However I did experience a problem when copying the code from the website I found it pasted without any line breaks or indents. I was using ie9 but when I changed to chrome everything worked ok. Thought I'd just say in case anyone has similar problems.

Hi Paul,

Thank you very much for letting us know!

Thanks for the code. It works beautifully. I am wondering if there is a way to have the sum update automatically when you colour a new cell. I know you said above that it is not possible, but there must be some code that could be written that would allow you to be able to do it.

I'm not very familiar with VBAs so I am not sure where to start. But couldn't you write a code of some sort that says:

If "colour change" in "range" then "Run Function"

Just wondering.

Hello Darcy,

We have found the solution on the page below and updated our script: https://sites.google.com/site/e90e50fx/home/sum-by-color-calculate-when-color-changed

However, please not that this script works a bit slower. If it is not critical for you, proceed with the following steps:

1. Download the updated code from the post.

2. Create a new Class module and add the following code to it:

3. In the module with our code, add the following code to the very beginning before the current code.

4. For the changes to take into effect, close the workbook and open it anew.

Hi, I am using the macro for cells that are conditionally formatted. Is there a way to produce the result in a cell versus a message box?

Thank you for this information!

Unfortunately, this cannot be done using a macro because of some limitations of Excel. We are planning to create an add-in that will cope with this. Please stay tuned!

Hello, every time i attempt to use the sum by color function it says sum function not defined.

My intended use is to mark a sales order size in red to indicate that it is complete. I do not want red in the total because this is primarily used for ordering more product and I do not want to over order. Thank you for any help!

Hi RyanRo,

This happens because Excel cannot find some or all of GetCellColor’s functions. Please check the most frequent causes I listed in my reply to comment 42 above.

This worked great! However, I want to do something a bit different and cannot find a solution. I just want to count any colored cell in a row. My rows are dates. The columns represent projects. The colored cells represent different tasks for these projects and the dates they are to be done. These tasks are color coded. I want to limit the concurrent tasks so I want to count number of color-coded tasks. I don't care how many yellow, how many blue, etc. I just want to know how many colored. For example, if there are three yellow, two blue and three orange, I want to see the number 8. Any ideas?

Thanks,

Hello Tim,

You can achieve the desired result by counting the non-colored cells (white is also a color : ) and then subtracting this number from cells total. So, add the code to your workbook as described in the article and copy the following formula in the last column of each row, starting from row 2:

=COLUMN()-1-CountCellsByColor(A2:Q2,R2)

R2 - the cell with the formula, it should always be non-colored.

A2:Q2 – color-coded columns that you want to count. If your color coded cells start from any column other than A, than replace -1 in the formula with the corresponding column number. E.g. if your color codes start with column B, the formula will be =COLUMN()-2-CountCellsByColor(B2:Q2,R2)

You're the greatest, thanks!

very useful thanks much. Even though i dont try all as yet.

It worked great but when I closed the page and opened it again, it gave me an error and the module was gone. I saved so i am confused on what is happening. Please help!

Hi Cassy,

Please make sure you save the workbook as macro-enabled and add the functions to the correct placement.

thanks for the great support.. but i lose the function when i close excel and reopen it again.. any solution for that?

PS.. I have saved it as macro-enabled workbook

Hi Khaled,

The only possible reason that I can think of is that you accidentally added the code to a module of some other workbook. Will you check that please?

Now, I am getting #NAME? in the boxes where my formula =CountCellsByColor(N102:N334,A335) was entered. Please Help!

Hi Cassy,

It's hard to say what exactly causes the error without seeing your workbook. If possible, you can send it to us at support@ablebits.com and I'm sure we'll be able to fixed.

I would like to write a single IF statement to print a "1" or a "2" in the cell if the colorindex=3. I tried something like =If(range("a1").colorindex=3,1,2)) but something isnt quite correct, I could do the VB code, but i really want something really simple like the IF statement since I am only looking a single cell. I dont want to use "conditional formatting", the color of the cell is set via VB code (selection.colorindex=3)

Thanks

Hi John,

Excel's IF function as well as all other functions work with simple expressions and standard Excel formulas only. You cannot use any VBA code inside the IF statement. Also, as far as I remember none of standard Excel functions can return color index. And this was the reason why custom VBA code is needed for this task.

Hello,

Thank you for sharing the instructions and code. I'm experiencing some issues with the implementation. When trying to open and run the macro using function Alt F8, the macro does not appear. When I search for the Macro Enabled Workbook file (.xlsm) that I've saved, I see that there is an exclamation mark on the file icon. When attempting to open the .xlsm file, I receive the following error: "Compile Error: Invalid outside of procedure" Could you please help me to figure out what I'm doing wrong? Thank you!

Hi Sarah,

Please verify whether you copied the entire code from the web-site (from our experience, occasionally the first or last line is missing). If it is not the case, try to add the code anew to some other worksheet. If the error persists, please specify what Excel version you are using.

Hi,

Svetlana, you are a genius in excel. I like your vb code.

Thank you.

Thank you very much Sofi!

But all accolades should really go to our Excel guru Alex : ) As I mentioned in the article he wrote the code for this example.

I am trying to do a bit of a hybrid so I can use an if function. My goal is to make it so if a user manually colors a cell red I can then run an if statement on it, when they remove the red it would no longer be true and can run a different formula. I have added and additional column that I will hide when done, I would like to have a way to use the background color in a single cell in a column give me the color index or some sort of color in column b that I could then run a test against. so if reds color index is 4 and cell A1 is red, then I would like 4 or something simular to show in column b. I am sure this is really simple but over my head. I tried adding the first part of the getcellcolor function but it returns the same color for the cell regardless of what color the background is. I would like to be able to do the same thing with font colors.

I am using excel 2010 and 2013

Thanks

OK, so I just figured out my problem and it was me, I have it working now. Is there any way to run a macro that will automatically do the f2 part? I am trying to hide the column that has my color index in it so users can't mess it up but now they can't hit f2 and calculate it.

Thanks, brilliant script

Hi Brad,

With the current (updated) version of the code, your users can press F2 on any cell, not necessarily the one with the formula.

Moreover, you can do without F2, by using a solution I posted in response to comment 44 above. Hopefully, this will be helpful for you too.

hello,

thanks for the help. i am trying to use the count by conditional formatting. it is working when a cell's background is colored, but does not work when formatting is for border color.

also, instead of the count popping up in a box, i would like to have it in another cell.

could you please help me?

thanks,

shachi

Hello Shachi,

All of the functions count cells by the background color only, the border color is not considered. We are not sure that counting by the border color is feasible, this requires additional research.

As for the pop-up, it is displayed in case you color cells using conditional formatting. Otherwise, you can use the CountCellsByColor function that outputs the result directly in a cell.

Hi Svetlana,

Thanks for the above code but i guess if we have some unique data in cell along with the color code then there is no need of VBA coding as we can apply simple countif or sumif functions to count/sum the data.

Hi Puran,

You are absolutely right. This code is purposed for the cases when there is no obvious data / color code relation.

Hi Svetlana,

I am using this this functions and its great "How to count by color and sum cells colored using conditional formatting", but i need to go an extra step and actually publish the count in a designated cell. How can i do this?

Thanks,

Tatiana

Hi Tatiana,

This is not possible with the current script. But we are going to release the Excel add-in soon that will have this feature. Please stay tuned for the update.

Hello,

I have tried to cut and paste the code from your tutorial

How to count, sum and filter cells by color in Excel 2010 and 2013.

When I do, it shows up red in the module and utilizes 2 lines

it does not appear like yours.

I have cut / pasted other codes and they worked but this one doesn't. Can you tell me if Im missing something on this one?

maybe I cannot accomplish what I want -

1. I have a column of numbers (cell A5 - A434) some of those cells w/in that range are colored yellow.

2. on line A435 - I want to sum ONLY the yellow cells.

Is your tutorial "How to count by color and sum by color in an Excel worksheet"

the correct one to utilize?

if so, I am having trouble with your code (when I copy/paste) - it copies red and utilizes 2 lines.

I have copied/pasted other codes and they appear to paste as is.

Thank you for your guidance

Angel

Hi Angel,

Yes, this script can help you to achieve the desired result. Try copying the code to Notepad first and then copy/paste from Notepad to Excel.

Alternatively, you can copy it directly form the blog in some other browser.

If this does not work anyway, please send your sample workbook at alexander.frolov@ablebits.com and we will figure this out.

Hi Svetlana,

I got it to work. Thank you. I figured out that you did not need to run the code, just save it and then continue on with the formula.

Thanks

Is it possible to SUM the amounts in a colored cell? Not how many of a particular color but for example - I have 7 yellow cells - each has different amounts in there... I want an end result.

I was able to finally get my other problem resolved so I thank you dearly!

Hi Angel,

Please use the SumCellsByColor function instead. It does exactly what you need - sums the values of colored cells.

Hi,

I am sure this is a questions for a different topic but hoping you can help? I have a list of 20 individuals and I want to create a 4 quadrant pie chart and place them in the region their scores qualify them to be in the pie. Can this be done?

Thanks,

Tatiana

Hi Tatiana,

You can do this via a pivot chart or CountIfs function. This sample workbook demonstrates both solutions. Hopefully, this is what you are looking for.

How can i plot the Name within the chart?

Sorry, I do not know a way. You can ask this question on excelforum.com or mrexcel.com forums.

I'm running into an issue where both the =CountCellsByFontColor(F3:F12,F3)and the =CountCellsByFontColor(G3:G12,G3)formulas return ALL of the cells with conditional formatting (standard red/yellow/green)rather than the ones matching the reference cell.

Any idea why this could be happening. Also, I may have missed where someone else pointed this out, but your code above does not copy/paste cleanly into VB, as the line breaks aren't recognized. Takes a bit of manual tweaking. Not sure if this is a limitation of your site or something that can be fixed.

Great solution to a common problem (if I can get it to work anyway), by the way.

Hello Dave,

The CountCellsByFontColor function does not work with conditional formatting, it is purposed only for the cells colored manually. Please use this code instead.

As for the code formatting problem, most likely it is caused by a particular internet browser. Can you please specify which exactly browser you are using so that we can test on our side? And thanks a lot for your feedback!

Hey i love the code that counts the selected cells while using a conditional formatting. I just wanted to know is there a function that does the same thing. i have a file that constantly updates depending on the drop down selection. i want a function that counts the number of highlighted cells when the conditional format highlights them. Some type of count function that works with conditional formatting and updates based off of the drop down that i select. if you understand what i am saying.

Thanks again for the help.

Hey Joe!

Currently we know only one way to do this - using a macro. Other ways are not possible because of Excel's limitations. But we are working on this...

The straight count by colour worked perfectly thanks, once I'd read one of the queries and copied to a Word document first. Saves me all the pain I've had of having an extra column with a letter to match the colour and then sorting and counting from that. Cheers!

Hi there! I just wanted to ask if you ever have any prombels with hackers? My last blog (wordpress) was hacked and I ended up losing a few months of hard work due to no backup. Do you have any solutions to stop hackers?

Hi! I'm trying to count by color and i've added the code in the worksheet and saved it as a excel macro-enabled workbook. But when i try to enter the formula i get the messege:"The formula you typed contains an error" I'm using Excel 2010, any idea what i'm doing wrong?

Hi Anders,

Please let me know which formula are you using. Could you copy/paste it here, exactly as you are entering it in your spreadsheet, with all cell references?

The result I get adds the totals of all the cells in the row that are being conditionally formatted. I have 3 different conditional formats, I understood that the count of sum function would only act on those that met the format of the cell I wanted summed or counted. What am I doing incorrectly or does the formula not act on the specific formatting of the cells in question? I can send the file to you if you'd like to view it. Thank you.

Hi Jerry,

The =CountCellsByColor() and =SumCellsByColor functions count only cells of a specified color. For example, =CountCellsByColor(F2:F14,A17) will color the cells in the range F2:F14 that are of the same color as cell A17. If it does not work in this way for you, please do send us your workbook at support@ablebits.com.

This code works great....I could use one additional function. I need to check and see if a cell has data in it before I count it.

Thank you Dennis, please let me know if I can help in any way.

Hi

I posted the 3 modules you provided in my workbook. I saved it as a .xlsm file type. When I try to enter the formula - GetCellColor or CoutCellsBy Color - it brings me back to my modules coded with the error:

Compile error:

Expected:end of statement

I don't know how to fix this.

Thanks for the help!

When it brings me back to the module I inserted it highlights the very first GetCellColor in the module.

Thanks again!

Hi Janis,

Please make sure that you pasted the complete code in the module. The compile error usually indicates that some part of the code is missing. Please verify that the code starts with "Sub" and ends with " End sub". You can also download this sample workbook with the CountCellsByColor and SumtCellsByColor functions ready for use and try them on your data.

Good Morning,

Is there a way to count by background color only if it is prior to a specific date?

I have a very large spreadsheet with several columns, see example below. Each month I need to count active Companies(color coded by location) for example; in January column, only count Companies that are blue and active, in February column only those that are blue and active, etc. Then repeat for Companies coded purple.

I was able to use your code above to add by color, but now I need to eliminate those that have terminated.

Company Group # Eff Date Term Date January February March April

---------------------------------------------------------------------------

ABC Co. 123 1/1/10 1/1/14 $0 $0 $0 $0

123 Co. 456 4/1/09 $20 $20 $20 $20

D's Bar 789 2/1/07 2/1/14 $15 $0 $0 $0

PJ's Pub 654 1/1/14 $45 $45 $45 $45

Pizza Pub 321 1/1/13 $10 $10 $10 $10

Day Center 852 1/1/12 3/1/14 $25 $25 $0 $0

ABC, 123, D's Bar are Blue - therefore result in January s/b 2, February s/b 1, March s/b 1.

Pj's Pub, Pizza Pub, Day Center are purple - therefore result in Jan s/b 3, Feb s/b 3, March s/b 2.

Is there a way in January to countif blue and term date is after 12/31/13? Then in February countif blue and term date is after to 1/31/14?

I need to read by date rather than $0 as sometimes commission is received even though terminated.

Thank you in advance for any help you can provide, as I am very new at this.

Hello Wendy,

Yes it is possible. Please send us a sample workbook at alex@ablebits.com, and we will work out the solution.

My chart did not post as set up.

Company/Group #/Eff Date/Term Date/Jan/Feb/March/April (each is a column)

Thanks for the Article -

The spreadsheet I have contains both manual and conditional formatting in the same column,to provide same color - Red background color in this case - now the code that is written addresses either one of the two cases - ie either you can do a manual count or count by conditional formatting; is there a code that combines both cases in one so it can work in my situation.

Also, do you know if there is a way to subtotal that can provide accurate count if the spreadsheet is filtered based on a certain criteria;

Thanks for checking.

-Samir

Hello Samir,

The Conditional Formatting code also counts and sums cells colored manually. As for subtotal, sorry we do have any idea.

This helped me a lot.. thanks..

just one more thing on "How to count by color and sum cells colored using conditional formatting" - is there a way this can only count the filtered values? (i.e.. just count the QTY only for the PAST DUE on the Delivery column)

here's an example.. when i filter "1" it still counts the hidden cells... i just want it to only count "red" in number "1"

A B C D Number

red green orange 1

orange red green 2

orange red green 3

red green orange 1

orange red green 2

red green orange 3

sorry - im new to excel

here's an example - i wanted it to count only "red" when Number is filtered to "1"

A B C D Number

red green orange 1

orange red green 2

orange red green 3

red green orange 1

orange red green 2

red green orange 3

i believe this can be achieved by selecting the range manually but is there a way to do this without doing it manually?

Hi Dniens,

Our code counts all cells in the selected range, including filtered and hidden cells. To be able to tell you with certainty if we can help you achieve the result you want, we need to see your data. If you can send us (alex@ablebits.com) your sample workbook and the desired result,we will try to help.

Thanks for the prompt response. It worked. Hopefully, the add in that you / Aex is developing will work in both scenarios. Keep up the good work guys. Thanks

Hi Samir,

Our new add-in, Count & Sum by Color, is finished and available for download. And yes, it works in both scenarios and in all versions of Excel!

This is genius. However, would vlookup and hlookup by cell colour be possible. For example, =vlookup([CellColour],table_array, column_index_num, [range_lookup])?

Hello Wazza,

You need to add only one function to your workbook – GetCellColor. Then add an additional column to your lookup table, this should be the first, i.e. left-most column, and copy the following formula to it: =GetCellColor(F2). F2 is the needed cell color.

An then, you use this formula =vlookup(GetCellColor(A1).... where A1 is the color-coded cell.

Or better still - how can I build a sumif formula around coloured cells. For example =sumif(range, [CellColour], [sum_range])?

You can use the SumCellsByColor function to sum the values of cells of a given color in the selected range. Or, are you looking for something different?

Hi Svetlana,

Yes, looking for something a bit different, the cells that contain the values I want to sum are in a different row to the coloured cells so would be looking to do a calculation similar to the sumif function

Cheers

Hi Wazza,

Thank you for the clarification, I understand now. Regrettably, this is not possible because our functions do not support array formulas.

Many thanks for this article. The instructions, code and functionality were excellent and exactly what I was looking for.

Great stuff! Exactly what I was looking for...

Thank you so much!

So confused about the "How to count by color and sum cells colored using conditional formatting" needing to be a sub and not a function. Not sure I understand what the limitation is. I am still playing with it. Works perfectly as a sub but need to get the count in a cell.

Hello Shelli,

Regrettably, there is no easy way to implement this as a function. I mean the function that would correctly handle all possible variations of conditional formatting. This would require a great deal of VBA code, tedious debugging and testing against different Excel versions and various Office localizations. (That is why the other solution you've tried works in simple scenarios and does not work with complex conditional formatting).

So, our Excel specialists have weighed the pros and cons and created the Count & Sum add-in, which caters for all possible scenarios and works correctly with all Excel versions and all kinds of conditional formatting. You can download the evaluation version and try it out on your data.

Just to follow up on my previous comment. I had already found http://www.get-digital-help.com/2013/10/02/counting-conditionally-formatted-cells-vba/ which works great in their example. We have pretty complicated conditional formatting on multiple cells. If I choose more than a row or a column or have a cell in the range that does not have the conditional formatting, I get a #Value. I do not really understand why theirs works as a function, but in a limited fashion, and yours works all the time as a sub...

Hello Shelli,

I have not tested their code, but it looks like it works only with conditional formatting rules based on formulas that changed the cell's background color, if true. I am not sure it will work with color scales. This code should also be checked with regard to min/max/duplicates.

Also, the code implies that each conditional formatting rule found in the selected range applies to ALL selected cells. If it is not so, then the code will return #Value or even throw some VBA execution error.

Hi!

Thank you for this script! I had problems when I tried to use it on Excel 2010. Excel said that it isn't valid formula and it has some errors.

But then I replaced "," --> ";" and it worked (like this: =SumCellsByColor(D2:D14;A17).

Hi!

Most likely this is because you have the List Separator set to ";" in your Windows Regional Settings, so you should use a semicolon in all of your Excel formulas.

Hi Svetlana,

I thank you for the amazing tool. It is working well.

I wanted to find out how do i count colored merged cells. I am creating a dashboard for data.

Can you please help me.

I thank you

Hi Arshad,

We have not tested the code on merged cells, but in theory it should work properly, i.e. a merged cell shall be calculated as one cell. Does function behave differently on your data?