Macro that counts cells with a specific value

[VILLABILLA]

Hello,

I need a macro that counts the cells in a column that contain value
above 0.

The outcome of this count should then appear afterwards on certai
cell.

Ideas are very welcome!

Thanks in advance!

Robb

 

[Ron de Bruin]

Try

=COUNTIF(D1100,">0")

 

[Ron de Bruin]

Oops

Range("E1").Value = Application.CountIf(Range("D"), ">0")


--
Regards Ron de Bruin
http://www.rondebruin.nl

Try

=COUNTIF(D1100,">0")

 

[VILLABILLA]

Thanks a lot for the proposed solution, it works.

However, what I overlooked is the fact that some of the numbers in
column that should be counted have the text format. Any way to count
the cells in a column that have a value(although text) except the blank
cells?

Thanks very much!

 

[Ron de Bruin]

Application.CountIf(Range("D"), "<>0")
This will count all cells except the cells with 0

If you want to count all cells that are not blank use
MsgBox Application.CountA(Range("D"))