Count Specific word in Specific range
Hi
Use
=COUNTIF(A1:D6,"*industrial*")+COUNTIF(A11:E17,"*i ndustrial*")
to count the colored cells here is one example
Dim c As Range
numred = 0
numblue = 0
numgreen = 0
For Each c In Range("a1:b5", "d1:d5")
Select Case c.Interior.ColorIndex
Case 3
numred = numred + 1
Range("e1") = numred
Case 5
numblue = numblue + 1
Range("e2") = numblue
Case 10
numgreen = numgreen + 1
Range("e3") = numgreen
End Select
Next c
you might need to change the colorindex to the shade of the color you
use
Cheers Christian
|