How to Sum Cells based on Background Color?

[real20]

I need a help, how I can Sum Cells based on Background Color?

Screenshot 2020-01-21 at 18.15.23.png

I need different sum orange and blue (and only A ja C columns).
Like:
A orange 230,84
A blue 34,16

[Sunny18pc]

Hi,

You are very luck I have the function with me

Please Login or Register  to view this content.

[KOKOSEK]

I believe that these colours are hard coded not from Conditional Formatting?
If from CF Sunny's macro won't working and you are not be able to do it.

[real20]

Thank You, but how I can use this function?

[nigelog]

See attached

Please Login or Register  to view this content.

[FlameRetired]

Hi,

You are very luck I have the function with me

Private Function CountCcolor(range_data As Range, criteria As Range) As Long
Dim datax As Range
Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
If datax.Interior.ColorIndex = xcolor Then
CountCcolor = CountCcolor + datax.value
End If
Next datax
End Function

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

[Sunny18pc]

Hi real20,

Open a new file and copy the code in VB and same the file as *.xlam

Add addin under option menu >Add Addins and then you can use this formula in any sheet of excel.

@FlameRetired - Missed to place # So sorry

[real20]

Almost works, but if there numbers like 58,22 then the number is only 58 and increase decimal donīt change nothing.

[nigelog]

Change declared CountCcolor to double rather than Long

[real20]

Sorry, I donīt understand.

[nigelog]

If you are using sunnys function change to

Please Login or Register  to view this content.

[real20]

Iīm using nigelog function. What I have to change there?

[nigelog]

Please Login or Register  to view this content.

[real20]

Thank You!
Now it works.