Counta

[billandrew]

Evening all

Unsure why the following is resulting in an incorrect value.



Cells(1,7).value = application.WorksheetFunction.CountA(Range("B:B")

 

[jproffer]

What result is it giving you....and what result would you expect?

And you're missing a closing parenthesis at the end.

 

[billandrew]

It is returning the value 1 when in fact there are 20 records in the column.

The closing parenthesis it seems wad cut off.

Thank you

 

[jproffer]

Ok, I hate to add another non-answer, but what result do you get if you use the CountA function on the actual worksheet?

The code you posted is right and should return 20 (if you say there's 20)...certainly not 1.

 

[billandrew]

Sorry for late response.

Using the formula, the result is correct value.

 

[jproffer]

Is it possible to share your workbook on dropbox? Someone could take a look at the whole picture/situation and see what's going on.

 

[billandrew]

Not sure what is going on. The code is working now. My apologies.

Thank You for your time.

 

[jproffer]

Just thought of something else too, and I'm glad you got it working, but if something similar would happen again, make sure your calculation is set to auto vs. manual.

 

[billandrew]

Thanks

Glad your not upset...

 

[jproffer]

Naaaa...it happens. Just glad you got it sorted out