Changing a cell color based on the color of a different cell.

[lazerunicorn]

I tried conditional formatting..but it doesn't seem to work.

In my worksheet there is a field that allow users to select a color by changing the color of a cell.

What i want is, a different cell to change it's color corresponding to that cell.

Example: if A1 is red B2 must also be red. But if A1 changes its color to say..blue, then B2 must also be blue.

thanks for all your help thx in advance

 

[HalfAce]

Hello lazerunicorn, welcome to thew board.
One way might be to use the sheet selection change event, like so.
Right click the tab for the sheet of interest & paste this into the sheet module.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[B2].Interior.ColorIndex = [A1].Interior.ColorIndex
End Sub

There are other ways (or events) that would work, but this might be all you need.

Hope it helps.

 

[lazerunicorn]

Hello lazerunicorn, welcome to thew board.
One way might be to use the sheet selection change event, like so.
Right click the tab for the sheet of interest & paste this into the sheet module.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[B2].Interior.ColorIndex = [A1].Interior.ColorIndex
End Sub

There are other ways (or events) that would work, but this might be all you need.

Hope it helps.

ohk i get it. what if it's on 2 diff sheets? what if it is A1 in sheet 1 and B2 in sheet 2? how would i do that?

 

[HalfAce]

Oh, that would just be a minor change in the code. (To reference the different sheet.)
You would want to use this instead:

Sheets("Sheet2").Range("B2").Interior.ColorIndex = [A1].Interior.ColorIndex

Note that the code goes into the sheet code module for sheet1 and therefore change in sheet 2
will occur upon a selection change in sheet1

Hope it helps.