count if code

[plost33]

how would i write the code for a count if function to count the number of cells in column D from row 18 to xlend down that have a, yellow, background color of 6??

 

[VoG]

Try

Sub CountYell()
Dim LR As Long, i As Long, Kount As Long
LR = Range("D" & Rows.Count).End(xlUp).Row
For i = 18 To LR
    If Range("D" & i).Interior.ColorIndex = 6 Then Kount = Kount + 1
Next i
MsgBox Kount
End Sub

 

[xld]

For Each cell In Range(Range("D18"), Range("D18").End)xlDown))

If cell.Interior.ColorIndex=6 Then

cnt = cnt + 1
End If
Next cell

MsgBox cnt

 

[plost33]

worked great vog thanks.