Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Functions Expert..four (4) different colors if a specific conditi
I need a cell to change into four (4) different colors if a specific
condition is met. For example if A1 matches a text value A thru E I need red, if its a F thru J then blue, K thru O then green, P thru T then yellow. Im struggling with the set up of this requirement. |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Functions Expert...four (4) different colors if a specific conditi
Which version are you using? In Excel 2007 you can do this but in previous
version you can only use 3 conditions, so if that's the case you need VBA -- Regards, Peo Sjoblom "JVANWORTH" wrote in message ... I need a cell to change into four (4) different colors if a specific condition is met. For example if A1 matches a text value "A thru E" I need "red", if it's a "F thru J" then "blue", "K thru O" then "green", "P thru T" then yellow. I'm struggling with the set up of this requirement. |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Functions Expert..four (4) different colors if a specific conditi
try this:-
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1")) _ Is Nothing Then Exit Sub Select Case Target.Value Case "A" To "E" icolor = 3 Case "F" To "J" icolor = 41 Case "K" To "O" icolor = 4 Case "P" To "T" icolor = 6 Case Else End Select Target.Interior.ColorIndex = icolor End Sub "JVANWORTH" wrote: I need a cell to change into four (4) different colors if a specific condition is met. For example if A1 matches a text value A thru E I need red, if its a F thru J then blue, K thru O then green, P thru T then yellow. Im struggling with the set up of this requirement. |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Functions Expert..four (4) different colors if a specific con
Mike H,
I'm sure this works, but my ability is limited in where to put. How do I insert this into the work sheet. I need direction in order to execute. "Mike H" wrote: try this:- Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1")) _ Is Nothing Then Exit Sub Select Case Target.Value Case "A" To "E" icolor = 3 Case "F" To "J" icolor = 41 Case "K" To "O" icolor = 4 Case "P" To "T" icolor = 6 Case Else End Select Target.Interior.ColorIndex = icolor End Sub "JVANWORTH" wrote: I need a cell to change into four (4) different colors if a specific condition is met. For example if A1 matches a text value A thru E I need red, if its a F thru J then blue, K thru O then green, P thru T then yellow. Im struggling with the set up of this requirement. |
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Functions Expert...four (4) different colors if a specific con
What is VBA
"Peo Sjoblom" wrote: Which version are you using? In Excel 2007 you can do this but in previous version you can only use 3 conditions, so if that's the case you need VBA -- Regards, Peo Sjoblom "JVANWORTH" wrote in message ... I need a cell to change into four (4) different colors if a specific condition is met. For example if A1 matches a text value "A thru E" I need "red", if it's a "F thru J" then "blue", "K thru O" then "green", "P thru T" then yellow. I'm struggling with the set up of this requirement. |
#6
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Functions Expert...four (4) different colors if a specific con
Select the sheet where you want this to happen.
Right click on the sheet tab Select View Code This will open the VBE Paste the code into the right side of the window that opens ALT+Q to close the VBE and return to Excel Biff "JVANWORTH" wrote in message ... Mike H, I'm sure this works, but my ability is limited in where to put. How do I insert this into the work sheet. I need direction in order to execute. "Mike H" wrote: try this:- Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1")) _ Is Nothing Then Exit Sub Select Case Target.Value Case "A" To "E" icolor = 3 Case "F" To "J" icolor = 41 Case "K" To "O" icolor = 4 Case "P" To "T" icolor = 6 Case Else End Select Target.Interior.ColorIndex = icolor End Sub "JVANWORTH" wrote: I need a cell to change into four (4) different colors if a specific condition is met. For example if A1 matches a text value "A thru E" I need "red", if it's a "F thru J" then "blue", "K thru O" then "green", "P thru T" then yellow. I'm struggling with the set up of this requirement. |
#7
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Functions Expert...four (4) different colors if a specific con
Here's a tip:
If you have an event macro like this that formats a cell *NEVER* select the entire sheet and then click the "clear formats" button on your toolbar (if you have that button on one of your toolbars). You will regret it! Biff "T. Valko" wrote in message ... Select the sheet where you want this to happen. Right click on the sheet tab Select View Code This will open the VBE Paste the code into the right side of the window that opens ALT+Q to close the VBE and return to Excel Biff "JVANWORTH" wrote in message ... Mike H, I'm sure this works, but my ability is limited in where to put. How do I insert this into the work sheet. I need direction in order to execute. "Mike H" wrote: try this:- Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1")) _ Is Nothing Then Exit Sub Select Case Target.Value Case "A" To "E" icolor = 3 Case "F" To "J" icolor = 41 Case "K" To "O" icolor = 4 Case "P" To "T" icolor = 6 Case Else End Select Target.Interior.ColorIndex = icolor End Sub "JVANWORTH" wrote: I need a cell to change into four (4) different colors if a specific condition is met. For example if A1 matches a text value "A thru E" I need "red", if it's a "F thru J" then "blue", "K thru O" then "green", "P thru T" then yellow. I'm struggling with the set up of this requirement. |
#8
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Functions Expert...four (4) different colors if a specific con
Thanks.......I'll give it a go
"T. Valko" wrote: Here's a tip: If you have an event macro like this that formats a cell *NEVER* select the entire sheet and then click the "clear formats" button on your toolbar (if you have that button on one of your toolbars). You will regret it! Biff "T. Valko" wrote in message ... Select the sheet where you want this to happen. Right click on the sheet tab Select View Code This will open the VBE Paste the code into the right side of the window that opens ALT+Q to close the VBE and return to Excel Biff "JVANWORTH" wrote in message ... Mike H, I'm sure this works, but my ability is limited in where to put. How do I insert this into the work sheet. I need direction in order to execute. "Mike H" wrote: try this:- Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1")) _ Is Nothing Then Exit Sub Select Case Target.Value Case "A" To "E" icolor = 3 Case "F" To "J" icolor = 41 Case "K" To "O" icolor = 4 Case "P" To "T" icolor = 6 Case Else End Select Target.Interior.ColorIndex = icolor End Sub "JVANWORTH" wrote: I need a cell to change into four (4) different colors if a specific condition is met. For example if A1 matches a text value "A thru E" I need "red", if it's a "F thru J" then "blue", "K thru O" then "green", "P thru T" then yellow. I'm struggling with the set up of this requirement. |
#9
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Functions Expert...four (4) different colors if a specific con
Thanks Again.......I got it to work.
What do I need to change if I want it to recongnize whole words or phrases...ie... Eng 9, Math 9, Science 9 would be red Eng 10, Math 10, Science 10 would be blue I have four lists of courses in a worksheet that need to be highlighted their respective color when entered. Can you help? Thanks in Advance, John "T. Valko" wrote: Select the sheet where you want this to happen. Right click on the sheet tab Select View Code This will open the VBE Paste the code into the right side of the window that opens ALT+Q to close the VBE and return to Excel Biff "JVANWORTH" wrote in message ... Mike H, I'm sure this works, but my ability is limited in where to put. How do I insert this into the work sheet. I need direction in order to execute. "Mike H" wrote: try this:- Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1")) _ Is Nothing Then Exit Sub Select Case Target.Value Case "A" To "E" icolor = 3 Case "F" To "J" icolor = 41 Case "K" To "O" icolor = 4 Case "P" To "T" icolor = 6 Case Else End Select Target.Interior.ColorIndex = icolor End Sub "JVANWORTH" wrote: I need a cell to change into four (4) different colors if a specific condition is met. For example if A1 matches a text value "A thru E" I need "red", if it's a "F thru J" then "blue", "K thru O" then "green", "P thru T" then yellow. I'm struggling with the set up of this requirement. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Functions expertnumbering random condition in a column | Excel Worksheet Functions | |||
can i set font colors in functions | Excel Worksheet Functions | |||
changing colors of font in functions | Excel Worksheet Functions | |||
Adding cells with specific colors | Excel Discussion (Misc queries) | |||
How do i keep the colors applied to the specific rows when sor | Excel Discussion (Misc queries) |