count non-empty rows
 

Hi
please I need advice
I need to count cells in separate columns. There are no empty cells among them
number of columns may vary
everything works in loop

this count all the cells (65000+...
for x=1 to colcount
cCount=ActiveSheet.Columns(CurrentCol).Rows.Count
total = total + cCount
next x

could anybody help

Jan

count non-empty rows
 

Maybe...

cCount = application.counta(activesheet.columns(currentcol) )

Or maybe:

total = application.counta(activesheet.usedrange)



JH wrote:

Hi
please I need advice
I need to count cells in separate columns. There are no empty cells among them
number of columns may vary
everything works in loop

this count all the cells (65000+...
for x=1 to colcount
cCount=ActiveSheet.Columns(CurrentCol).Rows.Count
total = total + cCount
next x

could anybody help

Jan

--

Dave Peterson

count non-empty rows
 

thanks



"Dave Peterson" wrote:

Maybe...

cCount = application.counta(activesheet.columns(currentcol) )

Or maybe:

total = application.counta(activesheet.usedrange)



JH wrote:

Hi
please I need advice
I need to count cells in separate columns. There are no empty cells among them
number of columns may vary
everything works in loop

this count all the cells (65000+...
for x=1 to colcount
cCount=ActiveSheet.Columns(CurrentCol).Rows.Count
total = total + cCount
next x

could anybody help

Jan

--

Dave Peterson