VBA to match Cell Colour to another Cell

[Tinä]

Hi,

I've looked at various examples of using the VBA Interior.ColorInde
but cannot get the background colour from one Cell to be put in anothe
Cell. I hope this will explain what I'm trying to do:

I have two Columns using Dynamic Named Ranges - Column "C" is "WIP" an
Column "H" is "Cost" .
Column "C" with text and various background colours and "H" wit
numbers and no background colours. The data in both Columns starts fro
Row 8. I need the Cells in Column "H" to take on the same backgroun
colour as the corresponding Cells in Column "C" on the same Row.
cannot use either of the Columns data as criteria because the data i
so varied but I would like to make a link with the cells usin
background colour just based on the Cells being on the same Row; i.
background colour of Cell "C8" to match colour of Cell "H8".

The Columns are dynamic and the Rows will constantly increase i
length.
I would like the background colour matching to be done without me firs
having to manually select the cells on the worksheet.

Can VBA make the selections and colour change without my intervention
and as new Cells are added and coloured in Column "C" automaticall
update the corresponding Cell/Row in Column "H" with the backgroun
colour from Column "C" Cell/Row. Also can VBA do the above by usin
the Dynamic Named Ranges "WIP" and "Cost" rather than the individua
Column/Cell references?

The information for the Defined Names Refers to Box
=OFFSET('Divisions'!$C$6,2,0,COUNTA('Divisions'!$C:$C),1) This i
name "WIP"
=OFFSET('Divisions'!$H$6,2,0,COUNT('Divisions'!$H:$H),1) This i
name "Cost"

Cheers
Tin

 

[Tom Ogilvy]

Right click on the sheet tab of the sheet containing the named ranges and
select view code. Put in code like this

Private Sub Worksheet_Calculate()
MsgBox "In calculate"
Dim cell As Range
For Each cell In Me.Range("WIP")
cell.Offset(0, 5).Interior.ColorIndex = _
cell.Interior.ColorIndex
Next
End Sub

It will only fire when there is a recalculation, so just changing a color in
a cell in column C won't get updated (until a calculation occurs).