Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Cell and Object change
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 -- Jake |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Cell and Object change
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 -- Gary''s Student - gsnu200790 "JakeShipley2008" wrote: 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 -- Jake |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to change the automatic color in object | Excel Discussion (Misc queries) | |||
How to change the name of the object Graph 1 in Excel ? | Charts and Charting in Excel | |||
Change multiple object group name | Excel Discussion (Misc queries) | |||
How do I change the default setting for an object when I paste? | Excel Discussion (Misc queries) | |||
Calendar - change of a size of this object | Excel Worksheet Functions |