Sum Cells Based on the Interior Color : Cells « Excel « VBA / Excel / Access / Word

Sum Cells Based on the Interior Color

Function SumByColor(CellColor As Range, SumRange As Range)
    Dim myCell As Range
    Dim iCol As Integer
    Dim myTotal
    iCol = CellColor.Interior.ColorIndex 
    For Each myCell In SumRange 
        If myCell.Interior.ColorIndex = iCol Then
            myTotal = WorksheetFunction.Sum(myCell) + myTotal
        End If
    Next myCell
    SumByColor = myTotal
End Function


Related examples in the same category

1.Select entire sheet
2.Set cell value with For Loop
3.Use row and column index to reference cell
4.Cells(Rows.Count, "A").End(xlUp).Select
5.looping through a worksheet range using a For/Next loop.
6.Cells.Find: Get Real Last Cell
7.Get cell value
8.Entering a value in the next empty cell
9.Use the AutoFill function by specifying the destination range
10.Using Replace Programmatically to Set the Correct Range
11.Calling CurrentRegion to Inspect a List's Useful Characteristics