Cell and Object change

  • Thread starter Thread starter JakeShipley2008
  • Start date Start date
J

JakeShipley2008

I am going to press my luck for today and ask one more question.

Using a macro is it possible to"

If sheet1 cell C1 interior color = 1 then sheet2 Object "Oval 1" interior
color = 1

Else
sheet1 cell C1 interior color = 38 then sheet2 Object "Oval 1" interior
color = 38

Hopefully this makes sense??

Thanks in advance,

Jake
 
Hi Jack (not that I would greet you that way on an airplane):

Try this:

Sub color_jack()
n = Sheets("Sheet1").Range("C1").Interior.ColorIndex
If n = 1 Or n = 38 Then
Sheets("Sheet2").Activate
ActiveSheet.Shapes("Oval 1").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = n + 7
End If
End Sub
 
Back
Top