CF Based upon other cell color

[Pinaceous]

Hi All,

Under conditional formatting, how would I provide; if Cell D12 has an interior color yellow that cell A12 will provide an interior color yellow?

For example after the CF is applied:

Please let me know when you can.

Thank you!

Respectfully,
pinaceous

 

[BrianM45]

Hi Pinaceous

For me, it's impossible with conditional formatting, because with an Excel formula, you cannot know the interior color of the cell

But, with a custom function in VBA it may be possible
Disadvantage, it requires a recalculation of the sheet, i.e. a modification of a cell (F2 + enter may be sufficient)

The VBA function

Function InteriorColorIsYellow(Cel As Range)
  Application.Volatile
  InteriorColorIsYellow = (Cel.Interior.Color = 65535)
End Function

The formula of MFC

=Interiorcolorisyellow($D6)

here is the file, I did not know how to do otherwise than by depositing it on a platform

GrosFichiers

Fichiers disponibles au téléchargement

www.grosfichiers.com

 

[Pinaceous]

Hi BrianM45,

So where would I put the Function code? Upon the Microsoft Excel Objects (Sheet) codes, ThisWorkbook or in a Module?

BTW, I have more than one sheet that I'd like to apply this Function to.

Please let me know and I appreciate the code!

-pinaceous

PS> let me download your file

 

[BrianM45]

You have to put the custom function in a module

To download the file, you just have to click on it, on the platform given in the link

 

[awoohaw]

@BrianM45 ,are you saying that the function should be put in the conditional formatting rule? That is pretty cool.

 

[Peter_SSs]

if Cell D12 has an interior color yellow

Is the yellow in column D done manually or by code or by conditional formatting?

 

[BrianM45]

@awwohaww, yes a custom function can be placed in MFC like any other Excel function

@Peter-SSs, th yellow in column D done manually

 

[Peter_SSs]

@Peter-SSs, th yellow in column D done manually

How do you know? Did I miss that piece of information somewhere in the thread?

 

[BrianM45]

No

My little function and how-to only works for manually applied color

 

[Pinaceous]

Is the yellow in column D done manually or by code or by conditional formatting?

Hi Peter_SSs!

The yellow in column D is done by conditional formatting. My question now is how I make column A internal color yellow in corresponding to it?

Option Explicit

Function InteriorColorIsYellow(Cel As Range)
  Application.Volatile
  InteriorColorIsYellow = (Cel.Interior.Color = 65535)
End Function

I could use the function but I need to add something but do not know what.

Can you help?

Thank you!
pinaceous