EXCEL FORMULA IN HINDI PART 7#EXCEL FORMULAS#ADVANCE EXCEL
How to Sum of Colored Cells
How to Apply Auto Filter in Excel
How to Remove Blank Rows in Excel
Color Code:
Function SumBycolor(CellColor As Range, rRange As Range)
Dim cSum As Long
Dim Collndex As Integer
Collndex = CellColor.Interior.ColorIndex
For Each cl In rRange
If cl.Interior.ColorIndex = Collndex Then
cSum = WorksheetFunction.Sum(cl, cSum)
End If
Next cl
SumBycolor = cSum
End Function