Home » excel » excel – Checking colored cells using SUMPRODUCT

excel – Checking colored cells using SUMPRODUCT

Posted by: admin April 23, 2020 Leave a comment


I am trying to count the number of colored cells (which also satisfy another condition).

My cells are as follows:

enter image description here

My intention is to count the cells where there is a ‘B’ and where the adjacent cells are green in color.

I also write a function as follows:

    Function CheckColor(rng As Range) As Boolean
    If rng.Interior.ColorIndex = 43 Then
        CheckColor = True
        CheckColor = False
    End If
    End Function

I then use SUMPRODUCT function as follows:


However, I get an error #VALUE!


I have modified my formula as follows:

Function CheckColor(rng As Range) As Variant
Dim arr As Variant
Dim n As Integer
ReDim arr(0 To rng.Count - 1) As Variant
n = 0
For Each cell In rng
    If cell.Interior.ColorIndex <> 43 Then
        bl = False
        bl = True
    End If
    arr(n) = bl
    n = n + 1
Next cell
CheckColor = arr
End Function

And I use the formula as follows:


The answer I get is 6, which is wrong.

How to&Answers:

The arrays for column ranges are a bit different Variant(1 To 11, 1 To 1)

Function CheckColor(rng As Range)
    Dim arr()
    ReDim arr(1 To rng.Count, 1 To 1) 
    ' arr = rng.Value2   ' arr Type in the Locals window shows as Variant(1 To 11, 1 To 1)
    For i = 1 To rng.Cells.Count
        arr(i, 1) = rng.Cells(i, 1).Interior.ColorIndex = 43
    Next i
    CheckColor = arr
End Function


You can do this without VBA, but you’ll need a ‘helper’ column.

Create a named range with the name CellColour and the formula =GET.CELL(63,Sheet1!$B1)

Using your example (assuming it starts in cell A1), enter this formula in cells C1:C11: =CellColour. By the looks of your screen shot it should return 43 for green.

You can then use this formula to count column A with green in column B:

Background colour: How to count cells in a range with a value less than another cell in excel?

Font colour: Excel formula to get cell color


Edit, correction

In the function, you give the funtion a range and compare it to a ColorIndex. That means you ask if the whole range have the colorindex not the cells between.

What you do would work if Excel automaticly reference the right cells and compare them to the value, but i wouldn’t do that for you.

So there are different ways you actually can manage this. First you do it without vba like Darren Bartrup-Cook meantion, you can do it with a helper column and write it like


And count the with Countif the true values or you write it in VBA but then you need to loop trough the cells one by one like this:

For x = 1 to 50 
  If Cells(x,10).Value = "b" AND Cells(x,11).ColorIndex = 43 Then
       counter = counter + 1
Next x