Cell interior.color = different cell.interior.color

[Alpacino]

How would u write a code for example :

Range("B1").interior.color = range("A1").interior.color

???

I would like B1 to have sane Color as A1

 

[mikerickson]

Does that code work?
If not, what happens/doesn't happen that you object to?

 

[Alpacino]

Don't know if I have this bit right or part pf bigger code that is wrong


Sub colorcopy

Dim cell as range
Dim x as integer
Dim y as integer

On error resume next
For each cell in range("A3:A35")
x = match(sheet1.range("A4"),sheet2.range("A3:A35"),0)+3
y = match(cell,sheet2.range("A3:AA3"),0)

Cell.offset(0,7).interior.color =*
Sheet2.cells(x,y).interior.color

Next cell

End Sub

 

[mikerickson]

"Don't know if I have this bit right".
Neither do I.
What do you want that code to do? What is/isn't it doing?

 

[Alpacino]

I have one sheet with names and kpis with red yellow green blue interior to measure performance.

In sheet 2 I have a summary of one name. I want to mirror the color interior in sheet 1 to sheet 2 next to Kpis

 

[mikerickson]

The only odd syntax that I see is this
Cell.offset(0,7).interior.color =*
Sheet2.cells(x,y).interior.color

You might try

Cell.offset(0,7).Interior.Color = Sheet2.Cells(x,y).Interior.Color

 

[Rick Rothstein]

x = match(sheet1.range("A4"),sheet2.range("A3:A35"),0)+3
y = match(cell,sheet2.range("A3:AA3"),0)

Shouldn't those two calls to "match" actually look like this...

WorksheetFunction.Match

 

[mikerickson]

Has any of the code that has been posted been tried?

 

[Alpacino]

Hi,

Finally made it work. Stepinto code F8 it to see what was happening and could you believe the Lookup range was slightly out so wasn't working correctly.

it works now !!!

thanks for your help.