Countif vba

[Alpacino]

Hi again
I like to count the number of cells in range("b5:f5") the the interior.color = vbGreen
Put answer in G5
Can somehelp???
Thanks

 

[VoG]

Try

Sub CountGreen()
Dim c As Range, k As Long
For Each c In Range("b5:f5")
    If c.Interior.Color = vbGreen Then k = k + 1
Next c
Range("G5").Value = k
End Sub

 

[Alpacino]

How do I the same thing for rows 6 to 30 please.

 

[Alpacino]

Each time the answer is in same row

 

[VoG]

Try it as a function

Function CountGreen(r As Range) As Long
Dim c As Range
For Each c In r
    If c.Interior.Color = vbGreen Then CountGreen = CountGreen + 1
Next c
End Function

Then you can use it as a worksheet function

=countgreen(B5:F5)