Hi All,

I have 10 columns and i am running macro , Macro part is ok at the end
i need to add some msgbox.

how should i do ....I need msgbox to display result using counta
formula for a Range ("B:B").

Suppose if range("B:B") has 100 values or Text then it should display
"you have 100 to work"

Similarly is it possible to add countif function in msgbox -
countif(Range("A:D"),"ok")

Thanks in advance

Try something like

myCount = application.COUNTA("B1:B1000")
Msgbox "You have " & myCount & " goodies"

best wishes
--
www.stfx.ca/people/bliengme


"muddan madhu" wrote:

Hi All,

I have 10 columns and i am running macro , Macro part is ok at the end
i need to add some msgbox.

how should i do ....I need msgbox to display result using counta
formula for a Range ("B:B").

Suppose if range("B:B") has 100 values or Text then it should display
"you have 100 to work"

Similarly is it possible to add countif function in msgbox -
countif(Range("A:D"),"ok")

Thanks in advance

it is giving count as 1 ......

I changed mycount = application.counta(range("B1:B100"))

I got the result......


Thanks Bernard.....

What about using countif in msgbox


On Apr 14, 8:35*am, Bernard Liengme
wrote:
Try something like

myCount = application.COUNTA("B1:B1000")
Msgbox "You have " & myCount & " goodies"

best wishes
--www.stfx.ca/people/bliengme



"muddan madhu" wrote:
Hi All,

I have 10 columns and i am running macro , Macro part is ok at the end
i need to add some msgbox.

how should i do ....I need msgbox to display result using counta
formula for a Range ("B:B").

Suppose if range("B:B") has 100 values or Text then it should display
"you have 100 to work"

Similarly is it possible to add countif function in msgbox -
countif(Range("A:D"),"ok")

Thanks in advance- Hide quoted text -

- Show quoted text -