Counting Cells

[Pedro Marques]

Hi
What code should I write in order to count only the positive value of a
pre-defined range: Range(Cells(42, 2), Cells(77, 2))

Thanks
Pedro

 

[Nick]

Total = 0

For J = 42 to 77

If Cells(J, 2).Value > 0 Then

Total = Total + Cells(J, 2).Value

Next J

 

[Nick]

Thinking about it if you only want to count the number of
cells rather than sum them you should use

application.worksheetfunction.countif

 

[Pedro Marques]

Thanks Nick

I tried to use the application.worksheetfunction.countif

Using strRet = Application.WorksheetFunction.CountIf((Range(Cells(42, 2),
Cells(77, 2))), Cells.Value > 0)

But it gives me an error.

Do you know what do I have to change?

 

[Mike]

One command, no looping required.

Application.WorksheetFunction.CountIf(Range(Cells(42, 2),
Cells(77, 2)),">0")

 

[JMay]

FWIW:

The worksheet function is:

=COUNTIF(B42:B77,">"&0)

HTH

 

[Myrna Larson]

And if he *does* want to sum them, he can use SUMIF <g>.