Negative Numbers count

[Guest]

I am looking for code that would count all the negative numbers in a column
and msgbox the results.

Thanks,
Aaron

 

[Bob Phillips]

Msgbox Application.COUNTIF(Range(A:A),"<0")

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[Guest]

What if I wanted to count two different tabs and report both results in one
msgbox?

 

[Guest]

Something like this...

MsgBox Application.CountIf(Sheets("Sheet1").Range("A:A"), "<0") + _
Application.CountIf(Sheets("Sheet2").Range("B:B"), "<0")

or this...

MsgBox Application.CountIf(Sheets("Sheet1").Range("A:A"), "<0") & vbcrlf
& _
Application.CountIf(Sheets("Sheet2").Range("B:B"), "<0")