Dim cell As Range
Dim colorcount As Integer
Function retColorcodeCount(rng As Range, colorcell As Range)
colorcount = 0
For Each cell In rng.Cells
If cell.Interior.Color = colorcell.Interior.Color Then
colorcount = colorcount + 1
End If
Next
retColorcodeCount = colorcount
End Function
is it possible without VBA amesh?
Count Cells in background color red without VBA
View attachment 52359
1. Select AF2 >> Define Name >>
>> Name : CountColor
>> Refer to :
=SUMPRODUCT(0+(GET.CELL(63,IF(1,+OFFSET($A2:$AE2,,COLUMN($A2:AE2)-MIN(COLUMN($A2:$AE2)))))=3))
2] In AF2, formula copied down :
=CountColor
p.s. : Get.Cell() is a Excel 4 Macro function, so you need to save file as xlsm.
Regards
Bosco