Negative Numbers count

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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

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

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
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")
 
Back
Top