Help to set up multi options in one cell

  • Thread starter Thread starter jladika
  • Start date Start date
J

jladika

hello
I have two problems

1 i have a spread sheet and in one of the cells there can be
different options. "A" "B" "C"

i would like them all to come up different colors
when i use the conditional format way the first one always comes u
white "A" if i put any other letter in there it will work ok.
help??

2.with the same spreadsheet i would like to use 4 or 5 colors
say with "A" "B" "C" "D" "E" "F"
all to have different colors. i was told to use a micro.
so if you send me the micro PLEASE
give me an example of how to use it.
i have recieved things like vLetter=Ucase(left(cell.value&"",1))
i have no idea of how to use that so please with something like tha
please show me how to use such a forumla
I not sure if you can make a spreadsheet with what i need and send i
to me so i can learn. thanks for you time and smarts

jo
 
One way:

Paste this in your worksheet code module (right-click on the worksheet
tab and choose View Code):

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Address(False, False) = "A1" Then
Select Case .Value
Case "A"
.Font.ColorIndex = 4
Case "B"
.Font.ColorIndex = 3
Case "C'"
.Font.ColorIndex = 46
Case "D"
.Font.ColorIndex = 5
Case "E"
.Font.ColorIndex = 7
Case "F"
.Font.ColorIndex = 12
Case Else
.Font.ColorIndex = xlColorIndexAutomatic
End Select
End If
End With
End Sub

Change the cell reference ("A1") or colorindex values to suit.

For more on using Macros, see David McRitchie's "Getting Started with
Macros":

http://www.mvps.org/dmcritchie/excel/getstarted.htm
 
You obviously didn't check the link that J.E. provided

Right click the sheet tab and paste in the code,
if necessary change the cell reference to the cell where you want this
to happen
--


For everyone's benefit keep the discussion in the newsgroup.

Regards,

Peo Sjoblom
 
Correction, right click sheet tab, select view
and paste in J.E's code

--


For everyone's benefit keep the discussion in the newsgroup.

Regards,

Peo Sjoblom

Peo Sjoblom said:
You obviously didn't check the link that J.E. provided

Right click the sheet tab and paste in the code,
if necessary change the cell reference to the cell where you want this
to happen
--


For everyone's benefit keep the discussion in the newsgroup.

Regards,

Peo Sjoblom
Click to expand...
 
Right click the sheet tab and paste in the code,
if necessary change the cell reference to the cell where you want this
to happen

so now tell me how to do that

is there a way to talk direct so i can get this don
 
Back
Top