Counting up lists with reference to the cells' colours - possible?

[lotusman]

I've a list of numbers I go through (testing them). My test will determine one of 2 things: that a number is to be 'rejected', so I count it out by selecting the cell and clicking a macro that recolors it to a blue background with blue font. Or my test determines that a number is to be 'kept' and I mark that by selecting that cell and using another macro that changes the cell's colors differently (yellow background with brown font). So it's sort of visual. But I'd like a formula to count up the total number of blue-on blues I have, as well as the yellows-on-brown. Are their values we can use in formulas to denote specific colours in cells? Something the equivalent of: countif(range of number values, colour=yellow)...if you follow me. Thanks for any help.

[kev_]

Have a look at this superb write up by AbleBits

[6StringJazzer]

Formulas cannot do this but since you are already using macros, you could add a user-defined function (UDF) in your macros that can then be used in formulas. If you provide the macro that does the colors, then I can show you a macro to count the colors. You could do something like this:

Please Login or Register  to view this content.

Then your sheet:

=COUNTREJECTED(A1:Z99)

Or whatever the actual range is you want to count.

[kev_]

Similar to 6StringJazzer

First range is "Count Range", second range is "Base cell"
-See attached workbook for working examples (formulas in cells E4 to G5)


3 UDFs

Please Login or Register  to view this content.

[lotusman]

Hi 6String..., thank you very much for this.
Here's one macro (one set of colours):
Sub EliminateSelectedPermutations()
'
' EliminateSelectedPermutations Macro
'

'
ActiveSheet.Unprotect
With Selection.Font
.Name = "Bookman Old Style"
.FontStyle = "Regular"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.599963377788629
.PatternTintAndShade = 0
End With
End Sub

and here is the other one:

Sub KeepThisPerm()
'
' KeepThisPerm Macro
'

'
ActiveSheet.Unprotect
With Selection.Font
.Name = "Bookman Old Style"
.FontStyle = "Regular"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = 192
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0.599963377788629
.PatternTintAndShade = 0
End With
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
End Sub

If you can fashion me one of these UDF's, I'd be very grateful indeed. Many thanks,
Lotusman

[AliGW]

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)