Solved: counting

[oleg_v]

Hi

I need some help with a macro that will count the amount of cells in column "b" that the cells containment is greater than 5


thanks

[GTO]

Try either:

Sub exa()
    MsgBox Evaluate("=COUNTIF(Sheet1!B:B,"">5"")")
    MsgBox WorksheetFunction.CountIf(Sheet1.Range("B:B"), ">5")
End Sub

Hope that helps,

Mark

[oleg_v]

hi
thanks it works fine
i wanted to ask if i want to replace "5" with a variable
what should i do

thanks

[Bob Phillips]

[vba]

MsgBox Application.CountIf(Sheet1.Range("B:B"), ">" & myVar)
[/vba]