Hi, Group



How can I find the how many cells fill in entire column are?



a.k In the cell A1 how many cells to have data.





Best regard

Mario

Select the range and then use selection.cells.count.

Robert Flanagan
Macro Systems
Delaware, U.S. 302-234-9857
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel

"Mario Reiley" wrote in message
...
Hi, Group



How can I find the how many cells fill in entire column are?



a.k In the cell A1 how many cells to have data.





Best regard

Mario

MsgBox Application.CountA(ActiveCell.EntireColumn)

--
Jim Rech
Excel MVP
"Mario Reiley" wrote in message
...
| Hi, Group
|
|
|
| How can I find the how many cells fill in entire column are?
|
|
|
| a.k In the cell A1 how many cells to have data.
|
|
|
|
|
| Best regard
|
| Mario
|
|

Thank for respond me but there is a little problem

this way : Application.CountA(ActiveCell.EntireColumn) leave the empty cells
without count.

I need to find the last cell in the entire column with data..

You know another way ?

Best regard
Mario


"Jim Rech" escribió en el mensaje
...
MsgBox Application.CountA(ActiveCell.EntireColumn)

--
Jim Rech
Excel MVP
"Mario Reiley" wrote in message
...
| Hi, Group
|
|
|
| How can I find the how many cells fill in entire column are?
|
|
|
| a.k In the cell A1 how many cells to have data.
|
|
|
|
|
| Best regard
|
| Mario
|
|

Perhaps...

MsgBox Cells(65536, ActiveCell.Column).End(xlUp).Address

--
Jim Rech
Excel MVP
"Mario Reiley" wrote in message
...
| Thank for respond me but there is a little problem
|
| this way : Application.CountA(ActiveCell.EntireColumn) leave the empty
cells
| without count.
|
| I need to find the last cell in the entire column with data..
|
| You know another way ?
|
| Best regard
| Mario
|
|
| "Jim Rech" escribió en el mensaje
| ...
| MsgBox Application.CountA(ActiveCell.EntireColumn)
|
| --
| Jim Rech
| Excel MVP
| "Mario Reiley" wrote in message
| ...
| | Hi, Group
| |
| |
| |
| | How can I find the how many cells fill in entire column are?
| |
| |
| |
| | a.k In the cell A1 how many cells to have data.
| |
| |
| |
| |
| |
| | Best regard
| |
| | Mario
| |
| |
|
|
|
|

Dim rng as Range
set rng = cells(rows.count,activecell.Column).End(xlup)
rng.Select

--
Regards,
Tom Ogilvy


"Mario Reiley" wrote in message
...
Thank for respond me but there is a little problem

this way : Application.CountA(ActiveCell.EntireColumn) leave the empty
cells
without count.

I need to find the last cell in the entire column with data..

You know another way ?

Best regard
Mario


"Jim Rech" escribió en el mensaje
...
MsgBox Application.CountA(ActiveCell.EntireColumn)

--
Jim Rech
Excel MVP
"Mario Reiley" wrote in message
...
| Hi, Group
|
|
|
| How can I find the how many cells fill in entire column are?
|
|
|
| a.k In the cell A1 how many cells to have data.
|
|
|
|
|
| Best regard
|
| Mario
|
|

thanks , Seem Work. ....

Mario


"Jim Rech" escribió en el mensaje
...
Perhaps...

MsgBox Cells(65536, ActiveCell.Column).End(xlUp).Address

--
Jim Rech
Excel MVP
"Mario Reiley" wrote in message
...
| Thank for respond me but there is a little problem
|
| this way : Application.CountA(ActiveCell.EntireColumn) leave the empty
cells
| without count.
|
| I need to find the last cell in the entire column with data..
|
| You know another way ?
|
| Best regard
| Mario
|
|
| "Jim Rech" escribió en el mensaje
| ...
| MsgBox Application.CountA(ActiveCell.EntireColumn)
|
| --
| Jim Rech
| Excel MVP
| "Mario Reiley" wrote in message
| ...
| | Hi, Group
| |
| |
| |
| | How can I find the how many cells fill in entire column are?
| |
| |
| |
| | a.k In the cell A1 how many cells to have data.
| |
| |
| |
| |
| |
| | Best regard
| |
| | Mario
| |
| |
|
|
|
|