VBA .Interior.Color.Red then enter text...

[Pinaceous]

Good Day All,

If I'm working with cell E11:E180 where its interior color turns red through CF.

Now, how do I provide through VBA where if this cell's interior color turns red that the text appears "RED"?



As in:

Please let me know as soon as you can thank you!

R/
pinaceous

 

[Micron]

If you set the cell colour to red with cf, then why not just set the font to be red in the same format settings?

 

[Pinaceous]

If you set the cell colour to red with cf, then why not just set the font to be red in the same format settings?

CF cannot provide text back from a cell. I wanted the actual text "RED" to return back from the interior color that appears. I do not want the font to be red.

For example, if I wanted the actual text to return "TEXT" in response of the interior color change of red it would appear for that cell:

 

[Jaafar Tribak]

Since you are using CF, I assume the interior color will change when editing the cell.
What is the CF rule that you have ?

 

[Pinaceous]

Hi Jaafar!

I'm using

=AND(AF11="",AE11<>"")

applying to

 =$E$11:$E$180

As in:

Do you have any suggestions on how I can add text to this interior color in using the cf formula?

Thanks,
pinaceous

 

[Jaafar Tribak]

=AND(E11="",F11<>"")
Is that applied to cell E11 or to cell E12 ?

 

[Pinaceous]

=AND(E11="",F11<>"")
Is that applied to cell E11 or to cell E12 ?

Yes, it applies to cell E11.

Sorry for the confusion!

 

[Jaafar Tribak]

Yes, it applies to cell E11.

Sorry for the confusion!

If I understand correctly, what you are trying to do is contradictory.
the CF rule says that the cell color turns red if the cell is empty ... Now, if you add the text "RED", the cell will no longer stay empty so the cell color will no longer be red!

 

[Pinaceous]

Okay, I understand thanks Jaafar! I'll look into a vba approach to see if "Text" can be added ect.

 

[Micron]

Yes, you will have to ditch the CF. VBA might be something like

If Range("E11")="" And Range("F11")<>"" Then
    With Range("E11")
        .Interior.Color = vbRed
        .Value = "RED"
    End With
End If