Auto colour based on adjacent cell

[crapit]

How to set cell color automatically based on the color of another cell

 

[Sandy Mann]

How does the first cell get coloured? By Conditional formatting or
manually? If by conditional formatting then use he same conditin=ons to
change the second cell.

--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings

(e-mail address removed)
Replace @mailinator.com with @tiscali.co.uk

 

[crapit]

the 1st cell's color is manually changed

How does the first cell get coloured? By Conditional formatting or
manually? If by conditional formatting then use he same conditin=ons to
change the second cell.

--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings

(e-mail address removed)
Replace @mailinator.com with @tiscali.co.uk

 

[Sandy Mann]

Unfortunately changing the cell colour will not fire a Worksheet_Change
procedure. You could do so with a SelectionChange or Calculate event.

Sorry.

--

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings

(e-mail address removed)
Replace @mailinator.com with @tiscali.co.uk

 

[Don Guillett]

Sub colormatchothercell()
Set rangetocopy = Range("d1")
ActiveCell.Interior.ColorIndex = _
rangetocopy.Interior.ColorIndex
End Sub

 

[crapit]

Possible not to run on macro?

Sub colormatchothercell()
Set rangetocopy = Range("d1")
ActiveCell.Interior.ColorIndex = _
rangetocopy.Interior.ColorIndex
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)