ColorIndex & macros

[jlarkin]

Hi,

I'm looking to run a macro that references another Sheet.

If the Name, say, DAN shows up in cell C8 and the CELL color = 41
then activesheet.range(a1) colorindex = 41

if the name DAN shows up in cell C8 and the CELL color = 6
then activesheet.range(a1) colorindex = 6

and so on and so on.

But I'll be damned if I cant figure it out. I'm working on it as
side project for my boss... If anyone can help me out, that'd b
great.

-jlarkin

 

[Frank Stone]

hi,
Try something like this:
If sheets("sheet2").range("c8").value = "DAN" and _
Sheets("sheet2").range("C8").interior.colorindex _
= 41 then
Activesheet.range("A1").interior.coloridex = 41
end if
Regards
Frank

 

[E Oveson]

This should work for you (change "C8", "DAN", and "A1" as needed): If,
after changing the color, they went back and changed C8 to something other
than "DAN" you could have it reset its color to default if you wanted, but I
didn't include this - let me know if you wanted this functionality also.
hth

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(False, False) = "C8" Then
If Target.Value = "DAN" Then
ActiveSheet.Range("A1").Interior.ColorIndex =
ActiveSheet.Range("c8").Interior.ColorIndex
End If
End If
End Sub

 

[Frank Kabel]

Hi
see your post in Excel.misc