Colour cells in columns i & u to ae, based on c & i

[outlook]

Hi,

I wonder if someone can help me as I'm tearing my hair out ...

I need to colour the cells in columns I, and U to AE. The colour depends on what text is found in C and I.

For example ...

If C6 = "LAND" and I6 = "Intro", I6 & V6 needs to be coloured brown.

Can this be done, or am I just asking too much? I've tried conditional formatting but it doesn't allow enough varients.

Thank you.

 

[delaneyjm]

How many conditions are you trying to account for?

 

[outlook]

I am using 11 colours between column U & AE.

I am using a minum of 2 conditions per colour.

I hope this answers your question, as it's difficult to explain.

 

[delaneyjm]

Okay, can you define your conditions for me and what colors each condition would be?

 

[outlook]

"I" contains "Refund" but not included in any other conditions below = Pink

"C" contains "LAND" and "I" contains "Intro" = Brown

"C" contains "LAND" and "I" contains "Homelet Charge" = Red

"C" contains "LAND" and "I" contains "Management" or "Monthly Fee" = Orange

"C" contains "LAND" and "I" contains "Continuation" = Yellow

"C" contains "LAND" and "I" contains any other text not included in "LAND" catagories above = Light Green

"C" contains "TENC" and "I" contains "Admin" or "Contract" = Dark Green

"C" contains "TENC" and "I" contains "Continuation" or "Card Handling" = Light Blue

"C" contains "CONT" and "I" contains "Commission" or "Hallmark" = Bright Blue

"I" contains any other conditions not covered in any of the above = Navy Blue

 

[outlook]

Anymore ideas anyone?

Thanks.

 

[delaneyjm]

What version of Excel do you run? If you are running 2003 or older, only 56 colors are available. If you want to see a list of colors that are available in those versions run this macro first on an empty worksheet and then post back.

Sub colors56()
    Application.ScreenUpdating = False
    
    Dim i As Long
    
    For i = 0 To 56
        Cells(i + 1, 1).Interior.ColorIndex = i
    Next i
    
    Application.ScreenUpdating = True
End Sub

 

[outlook]

Hi,

I'm running 2007, and by running the macro you gave me, I get 56 colours back.

Thanks.

 

[delaneyjm]

Okay, cool. I don't have 2007 at work. I'll code it tonight.

 

[outlook]

Thank you.