Log In
Register
Home
August 25, 2017
Offline
I am trying to write a macro to count cells based on color.
Can you help me?
July 16, 2010
Offline
Hi,
This tutorial covers counting coloured cells: https://www.myonlinetraininghu.....ored-cells
Mynda
August 25, 2017
Offline
So, do I have to sum the columns before I can actually count the cells based on the tutorial illustration. I'm missing a step.
Trusted Members
Moderators
November 1, 2018
Offline
No, but you've commented out the code in your workbook and merged two lines together. It should look like this:
Function CountCcolor(range_data As Range, criteria As Range) As Long
Application.Volatile True
Dim datax As Range
Dim xcolor As Longxcolor = criteria.Interior.ColorIndex
For Each datax In range_data
If datax.Interior.ColorIndex = xcolor Then
CountCcolor = CountCcolor + 1
End If
Next datax
End Function
with no apostrophes at the start of each line. Note that you need the function to be volatile to have any chance of it calculating correctly, but note also that changing a cell colour does not trigger a recalculation, so this approach is, in my opinion, fundamentally flawed anyway.
1 Guest(s)
