Count contents in a column

[JWM6]

I need to return the number of cells that contain values in a column.

I've played with Selection.EntireColumn Select & Selection.Columns.Count but these just return the number of columns I have selected versus the number of values in those columns.

I'm looking for the VBA code that does the spreadsheet formula "=counta(D:D)", which returns the number of values in the column "D". I don't need the values themselves, just an indication if there are any values in the first place.

Thanks,

[Dave Peterson]

msgbox application.counta(worksheets("sheet1").range("d:d"))

is one way.

JWM6 wrote:
>
> I need to return the number of cells that contain values in a column.
>
> I've played with Selection.EntireColumn Select &
> Selection.Columns.Count but these just return the number of columns I
> have selected versus the number of values in those columns.
>
> I'm looking for the VBA code that does the spreadsheet formula
> "=counta(D:D)", which returns the number of values in the column "D".
> I don't need the values themselves, just an indication if there are any
> values in the first place.
>
> Thanks,
>
> --
> JWM6
> ------------------------------------------------------------------------
> JWM6's Profile: http://www.excelforum.com/member.php...o&userid=33413
> View this thread: http://www.excelforum.com/showthread...hreadid=534361

--

Dave Peterson

[Jim Thomlinson]

This will count all of the populated cells in column A

MsgBox Application.WorksheetFunction.CountA(Columns("A"))
--
HTH...

Jim Thomlinson


"JWM6" wrote:

>
> I need to return the number of cells that contain values in a column.
>
> I've played with Selection.EntireColumn Select &
> Selection.Columns.Count but these just return the number of columns I
> have selected versus the number of values in those columns.
>
> I'm looking for the VBA code that does the spreadsheet formula
> "=counta(D:D)", which returns the number of values in the column "D".
> I don't need the values themselves, just an indication if there are any
> values in the first place.
>
> Thanks,
>
>
> --
> JWM6
> ------------------------------------------------------------------------
> JWM6's Profile: http://www.excelforum.com/member.php...o&userid=33413
> View this thread: http://www.excelforum.com/showthread...hreadid=534361
>
>

[JWM6]

Seems simple enough to me and I was looking at something more complicated...

ThanKs!