Adjust SumByColor to allow to sum by another variable

[arun96]

I currently have this, but don't know how to add it to sum by both colour and another column. Assuming the numbers are all coloured by their status, I need to sum based on that as well as the category in column A - how do I adjust the VBA code below to allow for that?

Category	Month A	Month B
A	100	100
B	2000	200
A	100	300
B	200	400
B	100	500
B	300	600

Function SumByColor(CellColor As Range, rRange As Range)
Dim cSum As Long
Dim ColIndex As Integer
ColIndex = CellColor.Interior.ColorIndex
For Each cl In rRange
If cl.Interior.ColorIndex = ColIndex Then cSum = WorksheetFunction.Sum(cl, cSum)
End If
Next cl
SumByColor = cSum
End Function

 

[mart37]

Function SumByColorAndCat(CellColor As Range, Cat As Variant, rRange As Range)
    Dim cSum As Long
    Dim ColIndex As Integer
    ColIndex = CellColor.Interior.ColorIndex
    For Each cl In rRange
        If cl.Interior.ColorIndex = ColIndex And Range("A" & cl.Row) = Cat Then cSum = WorksheetFunction.Sum(cl, cSum)
    Next cl
    SumByColorAndCat = cSum
End Function

 

[arun96]

Function SumByColorAndCat(CellColor As Range, Cat As Variant, rRange As Range)
    Dim cSum As Long
    Dim ColIndex As Integer
    ColIndex = CellColor.Interior.ColorIndex
    For Each cl In rRange
        If cl.Interior.ColorIndex = ColIndex And Range("A" & cl.Row) = Cat Then cSum = WorksheetFunction.Sum(cl, cSum)
    Next cl
    SumByColorAndCat = cSum
End Function

Hello! This is so helpful but I don't think it's quite right, I need to essentially sum column C based on the cell colour in column C but the category of the rows that is defined in Column A.

Thank you!

 

[mart37]

I think the function does that.

sum cells with color and criteria.xlsm
	A	B	C	D	E	F	G
1	Cat	Month1	Month2	Month3		Cat:	b
2	a	4	1	4		Color:
3	b	4	2	4		sum:	6
4	a	4	3	4
5	b	4	4	4
6	a	4	5	4
7	b	4	6	4
8	e	4	7	4
9	d	4	8	4
10	a	4	9	4
Blad1

Cell Formulas
Range	Formula
G3	G3	=SumByColorAndCat(G2,G1,C2:C10)