Counting Empty Colored Cells

The Tip says its macros "don't take conditional formats into account at all." My comment dated 2024-05-27 included two macros named CountEmptyColored and CountBlankColored. To account for conditional formats as well as fill formats in each of those macros, simply replace the following statementn        With c.Interiornwith this statementn        With c.DisplayFormat.InteriornSimilar changes could be made to the Tip's macros.

Re. the first two paragraphs of my most recent comment below:n"Define an empty cell as one with no content and a blank cell as one that appears empty but might have content. A blank cell might be empty or it might contain a single apostrophe (') or a space character or a formula that returns null text (""), etc.n"The Range.SpecialCells(xlCellTypeBlanks) method returns empty cells only; blank cells are not included despite the name."nWhen c is a Range object representing a single cell, VBA's IsEmpty(c) function returns True for an empty cell and False for a blank cell that is not empty. Therefore, the Tip's use of IsEmpty(c) in its macros is superfluous.nExcel's ISBLANK function returns TRUE for an empty cell and FALSE for a blank cell that is not empty; therefore, it should be named ISEMPTY. nNotice Excel's WorksheetFunction object does not include an IsBlank method because that would duplicate VBA's IsEmpty function.nUsing the above definitions of blank and empty, My Excel Toolbox includes the following two functions:n =IsCellBlank(Target)n =IsCellEmpty(Target)nIsCellBlank returns TRUE if Target is blank, FALSE if not.nIsCellEmpty returns TRUE if Target is empty, FALSE if not. nIf Target is a contiguous range with more than one cell, an array is returned with TRUE/FALSE corresponding to each cell in Target.nSee https://sites.google.com/view/MyExcelToolbox/

Define an empty cell as one with no content and a blank cell as one that appears empty but might have content. A blank cell might be empty or it might contain a single apostrophe (') or a space character or a formula that returns null text (""), etc.nThe Range.SpecialCells(xlCellTypeBlanks) method returns empty cells only; blank cells are not included despite the name. nHere's a version of the Tip's CountBlankColors2 that counts empty colored cells as requested by Cindy.nnSub CountEmptyColored()n    Dim c As Range, x As Longn    x = 0n    On Error GoTo Donen        ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Selectn    On Error GoTo 0n    For Each c In Selectionn        With c.Interiorn            If .Pattern = xlSolid Thenn                If .ColorIndex <> xlAutomatic Then x = x + 1n            ElseIf .Pattern <> xlNone Thenn                x = x + 1n            End Ifn        End Withn    Next cnDone: MsgBox "Number of empty colored cells: " & xnEnd SubnnHere's a version that counts blank colored cells, which Cindy might prefer.nnSub CountBlankColored()n    Dim c As Range, x As Longn    x = 0n    ActiveSheet.UsedRange.Selectn    For Each c In Selectionn        If Trim(c.Value) = "" Thenn            With c.Interiorn                If .Pattern = xlSolid Thenn                    If .ColorIndex <> xlAutomatic Then x = x + 1n                ElseIf .Pattern <> xlNone Thenn                    x = x + 1n                End Ifn            End Withn        End Ifn    Next cn    MsgBox "Number of blank colored cells: " & xnEnd SubnnNotice UsedRange includes cells with a fill color or pattern. A cell with a pattern will have a color and vice versa. But if the pattern is solid and the color is automatic, the cell will have the normal background color and appear to have no color; such cells are not counted in these macro versions but are counted by the Tip's macros. Finally, xlPatternNone and xlColorIndexNone are the same as xlNone, xlPatternSolid is the same as xlSolid, and xlColorIndexAutomatic is the same as xlAutomatic.

Re. my previous comment below, SpecialCells(...) is a method, not a property.

The following statement should be added to the Tip's CountBlankColors1 macron    Dim sTemp As StringnIn both macros, the following statementnActiveSheet.Range("a1").CurrentRegion.SpecialCells(xlCellTypeBlanks).Selectnprobably should be replaced by this statementn    ActiveSheet.Range("a1").SpecialCells(xlCellTypeBlanks).Selectnbut the result might be the same. nNotice when cells in the range A1:B2 are blank (empty), the following statementn    ActiveSheet.Range("a1").CurrentRegion.Selectnselects only cell A1 even if cells beyond A1:B2 are not blank. The property SpecialCells(...) apparently extends this selection beyond CurrentRegion to UsedRange.