I am trying to produce a formula as to where I key in a specific letter and
the cell will turn to a specific color. for example: if I type in the Letter
"A" the cell the letter is typed in will turn to the color Light Blue.

If not more than 3 colours, try conditional formatting

Example:
Select col A, click Format Conditional Formatting
Apply the following using "Formula Is:"
Cond1: =A1="A"
Format to taste

Cond2: =A1="B"
Format to taste

Cond3: =A1="C"
Format to taste
Ok out

Test it out by inputting the 3 letters* (A, B, C) in any cell in col A, the
corresponding format will be triggered.
*non case sensitive
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
"Senie" wrote:
I am trying to produce a formula as to where I key in a specific letter and
the cell will turn to a specific color. for example: if I type in the Letter
"A" the cell the letter is typed in will turn to the color Light Blue.

It worked when I selected one condition but when I went to the second
condition it did not worked and I tried mulitples ways. However, I did learn
something new.

"Max" wrote:

If not more than 3 colours, try conditional formatting

Example:
Select col A, click Format Conditional Formatting
Apply the following using "Formula Is:"
Cond1: =A1="A"
Format to taste

Cond2: =A1="B"
Format to taste

Cond3: =A1="C"
Format to taste
Ok out

Test it out by inputting the 3 letters* (A, B, C) in any cell in col A, the
corresponding format will be triggered.
*non case sensitive
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
"Senie" wrote:
I am trying to produce a formula as to where I key in a specific letter and
the cell will turn to a specific color. for example: if I type in the Letter
"A" the cell the letter is typed in will turn to the color Light Blue.

It should work fine, Senie

Try this link to a quick sample with all 3 conditions implemented
http://www.freefilehosting.net/download/NDIzNDM=
senie_CF.xls
(contains a screenshot of the CF dialog)

Copy n paste the entire link into your browser address (including the "=" at
the end). Do not click direct on the link if reading this from MS' webpage.
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
"Senie" wrote in message
...
It worked when I selected one condition but when I went to the second
condition it did not worked and I tried mulitples ways. However, I did
learn
something new.

It did work, YES! I was using "Cell Value Is" instead of "Formula Is".
Thanks a bunch!

"Max" wrote:

If not more than 3 colours, try conditional formatting

Example:
Select col A, click Format Conditional Formatting
Apply the following using "Formula Is:"
Cond1: =A1="A"
Format to taste

Cond2: =A1="B"
Format to taste

Cond3: =A1="C"
Format to taste
Ok out

Test it out by inputting the 3 letters* (A, B, C) in any cell in col A, the
corresponding format will be triggered.
*non case sensitive
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
"Senie" wrote:
I am trying to produce a formula as to where I key in a specific letter and
the cell will turn to a specific color. for example: if I type in the Letter
"A" the cell the letter is typed in will turn to the color Light Blue.

Glad you got it up!
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
"Senie" wrote in message
...
It did work, YES! I was using "Cell Value Is" instead of "Formula Is".
Thanks a bunch!

How many letters are you talking about?

Using CF as Max points out you can get 3.

If more you can download Bob Phillips' CFPlus which allows for 30

http://www.xldynamic.com/source/xld.....Download.html

Or use sheet event code which I can supply if you want to go that direction.


Gord Dibben MS Excel MVP

On Wed, 28 Nov 2007 07:58:01 -0800, Senie
wrote:

I am trying to produce a formula as to where I key in a specific letter and
the cell will turn to a specific color. for example: if I type in the Letter
"A" the cell the letter is typed in will turn to the color Light Blue.

Sure go ahead and give me the information to use sheet event code which you
can supply. It will be a learning adventure for me.

I am also going to check out the website you have listed as well.
Thank you so much!

"Gord Dibben" wrote:

How many letters are you talking about?

Using CF as Max points out you can get 3.

If more you can download Bob Phillips' CFPlus which allows for 30

http://www.xldynamic.com/source/xld.....Download.html

Or use sheet event code which I can supply if you want to go that direction.


Gord Dibben MS Excel MVP

On Wed, 28 Nov 2007 07:58:01 -0800, Senie
wrote:

I am trying to produce a formula as to where I key in a specific letter and
the cell will turn to a specific color. for example: if I type in the Letter
"A" the cell the letter is typed in will turn to the color Light Blue.

I like your attitude about the learning adventure. Keep it up.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Num As Long
Dim rng As Range
Dim vRngInput As Variant
Set vRngInput = Intersect(Target, Range("D:D"))
If vRngInput Is Nothing Then Exit Sub
On Error GoTo endit
Application.EnableEvents = False
For Each rng In vRngInput
'Determine the color
Select Case UCase(rng.Value)
Case Is = "A": Num = 10 'green
Case Is = "B": Num = 1 'black
Case Is = "C": Num = 5 'blue
Case Is = "D": Num = 7 'magenta
Case Is = "E": Num = 46 'orange
Case Is = "F": Num = 3 'red
End Select
'Apply the color
rng.Interior.ColorIndex = Num
Next rng
endit:
Application.EnableEvents = True
End Sub

Right-click on your sheet tab and "View Code".

Copy/paste the code into that module.

Adjust Range("D:D") to suit


Gord

On Wed, 28 Nov 2007 11:00:02 -0800, Senie
wrote:

Sure go ahead and give me the information to use sheet event code which you
can supply. It will be a learning adventure for me.

I am also going to check out the website you have listed as well.
Thank you so much!

"Gord Dibben" wrote:

How many letters are you talking about?

Using CF as Max points out you can get 3.

If more you can download Bob Phillips' CFPlus which allows for 30

http://www.xldynamic.com/source/xld.....Download.html

Or use sheet event code which I can supply if you want to go that direction.


Gord Dibben MS Excel MVP

On Wed, 28 Nov 2007 07:58:01 -0800, Senie
wrote:

I am trying to produce a formula as to where I key in a specific letter and
the cell will turn to a specific color. for example: if I type in the Letter
"A" the cell the letter is typed in will turn to the color Light Blue.

It worked, YES! Are there other colors available? These colors are dark.

"Gord Dibben" wrote:

I like your attitude about the learning adventure. Keep it up.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Num As Long
Dim rng As Range
Dim vRngInput As Variant
Set vRngInput = Intersect(Target, Range("D:D"))
If vRngInput Is Nothing Then Exit Sub
On Error GoTo endit
Application.EnableEvents = False
For Each rng In vRngInput
'Determine the color
Select Case UCase(rng.Value)
Case Is = "A": Num = 10 'green
Case Is = "B": Num = 1 'black
Case Is = "C": Num = 5 'blue
Case Is = "D": Num = 7 'magenta
Case Is = "E": Num = 46 'orange
Case Is = "F": Num = 3 'red
End Select
'Apply the color
rng.Interior.ColorIndex = Num
Next rng
endit:
Application.EnableEvents = True
End Sub

Right-click on your sheet tab and "View Code".

Copy/paste the code into that module.

Adjust Range("D:D") to suit


Gord

On Wed, 28 Nov 2007 11:00:02 -0800, Senie
wrote:

Sure go ahead and give me the information to use sheet event code which you
can supply. It will be a learning adventure for me.

I am also going to check out the website you have listed as well.
Thank you so much!

"Gord Dibben" wrote:

How many letters are you talking about?

Using CF as Max points out you can get 3.

If more you can download Bob Phillips' CFPlus which allows for 30

http://www.xldynamic.com/source/xld.....Download.html

Or use sheet event code which I can supply if you want to go that direction.


Gord Dibben MS Excel MVP

On Wed, 28 Nov 2007 07:58:01 -0800, Senie
wrote:

I am trying to produce a formula as to where I key in a specific letter and
the cell will turn to a specific color. for example: if I type in the Letter
"A" the cell the letter is typed in will turn to the color Light Blue.

Those are 6 out of the 56 default colors available in Excel

There are lighter colors.

To see a list of the colors and index numbers visit David McRitchie's site

http://www.mvps.org/dmcritchie/excel/colors.htm


Gord

On Wed, 28 Nov 2007 16:54:01 -0800, Senie
wrote:

It worked, YES! Are there other colors available? These colors are dark.

"Gord Dibben" wrote:

I like your attitude about the learning adventure. Keep it up.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Num As Long
Dim rng As Range
Dim vRngInput As Variant
Set vRngInput = Intersect(Target, Range("D:D"))
If vRngInput Is Nothing Then Exit Sub
On Error GoTo endit
Application.EnableEvents = False
For Each rng In vRngInput
'Determine the color
Select Case UCase(rng.Value)
Case Is = "A": Num = 10 'green
Case Is = "B": Num = 1 'black
Case Is = "C": Num = 5 'blue
Case Is = "D": Num = 7 'magenta
Case Is = "E": Num = 46 'orange
Case Is = "F": Num = 3 'red
End Select
'Apply the color
rng.Interior.ColorIndex = Num
Next rng
endit:
Application.EnableEvents = True
End Sub

Right-click on your sheet tab and "View Code".

Copy/paste the code into that module.

Adjust Range("D:D") to suit


Gord

On Wed, 28 Nov 2007 11:00:02 -0800, Senie
wrote:

Sure go ahead and give me the information to use sheet event code which you
can supply. It will be a learning adventure for me.

I am also going to check out the website you have listed as well.
Thank you so much!

"Gord Dibben" wrote:

How many letters are you talking about?

Using CF as Max points out you can get 3.

If more you can download Bob Phillips' CFPlus which allows for 30

http://www.xldynamic.com/source/xld.....Download.html

Or use sheet event code which I can supply if you want to go that direction.


Gord Dibben MS Excel MVP

On Wed, 28 Nov 2007 07:58:01 -0800, Senie
wrote:

I am trying to produce a formula as to where I key in a specific letter and
the cell will turn to a specific color. for example: if I type in the Letter
"A" the cell the letter is typed in will turn to the color Light Blue.

Hey, this is pretty neat, I'm intrigued and learning a lot here. Now
that I know about changing the cell color, is there a way to change
the font color as opposed to (or in addition to) the cell color?

Thanks,

--Jim

On Nov 28, 5:00 pm, Gord Dibben <gorddibbATshawDOTca wrote:
I like your attitude about the learning adventure. Keep it up.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Num As Long
Dim rng As Range
Dim vRngInput As Variant
Set vRngInput = Intersect(Target, Range("D:D"))
If vRngInput Is Nothing Then Exit Sub
On Error GoTo endit
Application.EnableEvents = False
For Each rng In vRngInput
'Determine the color
Select Case UCase(rng.Value)
Case Is = "A": Num = 10 'green
Case Is = "B": Num = 1 'black
Case Is = "C": Num = 5 'blue
Case Is = "D": Num = 7 'magenta
Case Is = "E": Num = 46 'orange
Case Is = "F": Num = 3 'red
End Select
'Apply the color
rng.Interior.ColorIndex = Num
Next rng
endit:
Application.EnableEvents = True
End Sub

Right-click on your sheet tab and "View Code".

Copy/paste the code into that module.

Adjust Range("D:D") to suit

Gord

On Wed, 28 Nov 2007 11:00:02 -0800, Senie
wrote:



Sure go ahead and give me the information to use sheet event code which you
can supply. It will be a learning adventure for me.

I am also going to check out the website you have listed as well.
Thank you so much!

"Gord Dibben" wrote:

How many letters are you talking about?

Using CF as Max points out you can get 3.

If more you can download Bob Phillips' CFPlus which allows for 30

http://www.xldynamic.com/source/xld.....Download.html

Or use sheet event code which I can supply if you want to go that direction.

Gord Dibben MS Excel MVP

On Wed, 28 Nov 2007 07:58:01 -0800, Senie
wrote:

I am trying to produce a formula as to where I key in a specific letter and
the cell will turn to a specific color. for example: if I type in the Letter
"A" the cell the letter is typed in will turn to the color Light Blue.- Hide quoted text -

- Show quoted text -

To change font color change to

rng.Font.ColorIndex = Num


Gord

On Thu, 29 Nov 2007 05:13:00 -0800 (PST), Spike9458
wrote:

Hey, this is pretty neat, I'm intrigued and learning a lot here. Now
that I know about changing the cell color, is there a way to change
the font color as opposed to (or in addition to) the cell color?

Thanks,

--Jim

On Nov 28, 5:00 pm, Gord Dibben <gorddibbATshawDOTca wrote:
I like your attitude about the learning adventure. Keep it up.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Num As Long
Dim rng As Range
Dim vRngInput As Variant
Set vRngInput = Intersect(Target, Range("D:D"))
If vRngInput Is Nothing Then Exit Sub
On Error GoTo endit
Application.EnableEvents = False
For Each rng In vRngInput
'Determine the color
Select Case UCase(rng.Value)
Case Is = "A": Num = 10 'green
Case Is = "B": Num = 1 'black
Case Is = "C": Num = 5 'blue
Case Is = "D": Num = 7 'magenta
Case Is = "E": Num = 46 'orange
Case Is = "F": Num = 3 'red
End Select
'Apply the color
rng.Interior.ColorIndex = Num
Next rng
endit:
Application.EnableEvents = True
End Sub

Right-click on your sheet tab and "View Code".

Copy/paste the code into that module.

Adjust Range("D:D") to suit

Gord

On Wed, 28 Nov 2007 11:00:02 -0800, Senie
wrote:



Sure go ahead and give me the information to use sheet event code which you
can supply. It will be a learning adventure for me.

I am also going to check out the website you have listed as well.
Thank you so much!

"Gord Dibben" wrote:

How many letters are you talking about?

Using CF as Max points out you can get 3.

If more you can download Bob Phillips' CFPlus which allows for 30

http://www.xldynamic.com/source/xld.....Download.html

Or use sheet event code which I can supply if you want to go that direction.

Gord Dibben MS Excel MVP

On Wed, 28 Nov 2007 07:58:01 -0800, Senie
wrote:

I am trying to produce a formula as to where I key in a specific letter and
the cell will turn to a specific color. for example: if I type in the Letter
"A" the cell the letter is typed in will turn to the color Light Blue.- Hide quoted text -

- Show quoted text -