'CountNoStrike' Formula Question

[G@ines63]

Hello,
I am updating an existing excel workbook and I have a question regarding strikethroughs.
With assistance, I was able to write a VBA code and a formula for counting all cells in a range that do not have strikethroughs, but I need help on a code and/or formula that will recalculate the cells if strikethroughs are used.
Thank you in advance.

G@ines63

 

[NARAYANK991]

Hi ,

Not very clear.

What is your code and formula ? Is it returning the number of cells which do not have strikethroughs ?

What do you want now ? Is it the number of strikethroughs ? If so , would this not be the total number of cells in the range less the number of cells which do not have strikethroughs ?

Narayan

 

[G@ines63]

Narayan, thank you for your response.

I was able to create a VBA code and formula to count all cells in a range without strikethroughs....

VBA Code that I used:

Public Function CountNoStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If Not pRng.Font.Strikethrough Then
xOut = xOut + 1
End If
Next
CountNoStrike = xOut
End Function


Formula that I used in the attached example: =CountNoStrike(D4:D9)

 

[NARAYANK991]

Hi ,

See your file now.

I have implemented the technique explained here :

https://sites.google.com/site/e90e50fx/home/sum-by-color-calculate-when-color-changed

Narayan

 

[asKeygeek]

Thanks a lot Narayan for the updated Strikethrough tracker attached above. Really appreciate it that helped me.