Sum by color background and if another condition

[Sonic47]

Hello,

I am trying to write/find a correct vba code able to sum the amount in a colored cell based on two conditions : the color of the background and based on another condition (here the fruit)
You can find a easy table showing the situation :
I want the formula to sum the amount in the cell based on the color yellow and if the fruit if an apple for exemple.
We can see the result below, but made manually.

I found a lot of code able to sum (without second condition) or code able to see the color code of the background, but I am not able to use "SUMIF" with it able to choose based on the fruit directly.

Could you please help me ?

Thank you very much.

 

[chrispen]

Fantastic thank you... got that working but now I need to know how to pickup other colours e.g. the blue.
Is the 65535 in above formula the colour reference? If so how do I grab colour references for other cells/colours.

TIA, appreciated

 

[Fluff]

Select a cell with the colour you want & then run this in the Intermediate window of the VB Editor

?activecell.Interior.Color

 

[chrispen]

Sorry ... when I try and run that in immediate window it prompts me to create/save a new macro :-|

 

[chrispen]

Got it with a small function

Public Function BackGroundColor(rng As Range)
    BackGroundColor = rng.Interior.Color
End Function

 

[chrispen]

Thanks for all the help

 

[Fluff]

You're welcome & thanks for the feedback.