Count of Text in a column

[thompsy]

Hi guys,

Re the attached Excel doc, I need to identify changed codes, would someone have a piece of VBA code that creates a count for the data?

Many thanks in advance!

T

[tlafferty]

sure...

Please Login or Register  to view this content.

[Jakobshavn]

In the worksheet, use the formula:
=COUNTIF(A:A,"Code Changed")

and using VBA:

Please Login or Register  to view this content.

[xladept]

This works:

Please Login or Register  to view this content.

Please Login or Register  to view this content.

[thompsy]

Many thanks for the code Thomas, it worked great

xladept, jakobshavn - thanks for adding your code as well.

Cheers,
L

[xladept]

You're welcome!

[thompsy]

Hi thomas,

How would I expand the code to incorporate the unchanged data, and also for a column containing approx 12 pieces of data?

Many thanks in advance,
T

[Leith Ross]

Hello thompsy,

Here is one way to do it. Change "A1" to the first cell of the range. The macro will find the last cell in the range automatically. Both counts are tallied and displayed in a message dialog.

Please Login or Register  to view this content.

[thompsy]

Hi Leigh, code works great One final question, how do I add a full count of all rows?