Count cells that meet certain criteria

[Mr_Red]

Hi everyone,

I am using VBA to count cells that meet a certain criteria, in this case, cells that contain underlined values/text. The purpose of the script is to provide a reference that will be used in later calculations. The problem is that the current script also outputs zeros, which will effect future calculations. The obvious solution would be to create a new column and blank the cells with a value of zero. However, I will be applying this script to a large number of worksheets so would like to make it as simplified as possible, without having to do any additional modifications to the data after the script has run.

The current script is:

Please Login or Register  to view this content.

I need help in modifying the script so that any calculated zeros are removed.

Cheers!

[SjonR]

try this one please:

Please Login or Register  to view this content.

[AliGW]

@Mr_Red

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

[Mr_Red]

Works a treat!!

[Mr_Red]

try this one please:

Please Login or Register  to view this content.

The formula removes the zero but I've just realized that it doesn't work if the first reference cell is underlined, as it seems to start counting from 0. Is there any way you can modify the script so that the counter starts counting 1, 2, 3, 4 etc as opposed to 0, 1, 2 ?

[Mr_Red]

Sorry, please ignore my above post. Your code actually works fine. The first cell it encountered had a double instead of single underline. Silly me

[SjonR]

that's great.

Feel free to add points to my reputation