VBA to count cells that a value (text or numeric)

Could someone help me with a VBA code. What I'd like to do is this. If Cell(s) C1, H2, K2, S2, A6, B6, C6, F6, G6, H6, K6, L6, M6, N6, O6 and Q6 have any value in them at all (text or numeric) I want to count them. And cell BB3 would display the number of cells that have a value. My end result is I'm trying to create a progress status of the users input with a conditional formatting. (Hopefully) I've seen this on a site somewhere. So if they have 8 of those cells with something in them this progress bar will show at 50%.

Open for any options on how to do this though.

Thanks in advance
Excel 2010

That works for me. Thank you very much!

Hi there,

Take a look at the attached workbook and see if it does what you need.

It uses the following code to ensure that changes to the "target" cells are automatically added to / deleted from the current total of completed cells.

Please Login or Register  to view this content.

The highlighted values may be altered to suit your own requirements.


The worksheet also contains a Progress Indicator Bar which updates in response to changes in the "target" cells.


Hope this helps - please let me know how you get on.

Regards,

Greg M

Hi Zimmerman,

Try the attached file which puts a Progress Bar on the StatusBar.

In the ThisWorkbook Code module:

Please Login or Register  to view this content.

In an ordinary code module such as Module:

Please Login or Register  to view this content.

Lewis

Thank you very much to all that has helped. I really like the progress bar on the status bar. So I will probably be going with that one. It's absolutely perfect for what I am doing. Thanks again.