Please help with Colour and Cell Value :0)

[will2soar]

Hello,

The enter key got away from me in the last post.

I need help with this problem

[TABLE="width: 300"]
<tbody>[TR]
[TD][/TD]
[TD]1[/TD]
[TD]2[/TD]
[TD]3[/TD]
[TD]4[/TD]
[TD]5[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]1[/TD]
[TD]2[/TD]
[TD]3[/TD]
[TD]4[/TD]
[TD]5[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]2[/TD]
[TD]4[/TD]
[TD]6[/TD]
[TD]8[/TD]
[TD]10[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]3[/TD]
[TD]6[/TD]
[TD]9[/TD]
[TD]12[/TD]
[TD]15[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]4[/TD]
[TD]8[/TD]
[TD]12[/TD]
[TD]16[/TD]
[TD]20[/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]5[/TD]
[TD]10[/TD]
[TD]15[/TD]
[TD]20[/TD]
[TD]25[/TD]
[/TR]
</tbody>[/TABLE]

MY table is something like this and the background or cell fill matches the colour of the numbers. there are five different colours.


[TABLE="width: 500"]
<tbody>[TR]
[TD]2[/TD]
[TD]2[/TD]
[TD]4[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]3[/TD]
[TD]12[/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]4[/TD]
[TD]20[/TD]
[/TR]
</tbody>[/TABLE]


What I'd like the sheet to do is, match the third column value and background fill to the same background fill colour and value as in the table.

Can anyone please help me sort this one out.

TY

B

 

[AFPathfinder]

If the colors in the key don't change, you can setup individual conditional formatting for value ranges. If it's going to be variable, I think the only solution would be through VBA. As an example:

Sub MultColor()
    Dim x As Range
    
    Set x = Sheets("ColorKey").Range("B2:F6").Find(What:=Range("C21").Value, After:=Cells(2, 2), _
        LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=True)
    
    Range("C21").Interior.Color = x.Interior.Color
    Range("C21").Font.Color = x.Font.Color
End Sub

 

[will2soar]

Hello,

This worked a charm, Thank you for your help and time. I greatly appreciate it.


Kind regards

B

 

[AFPathfinder]

You're welcome!