Recognize Color and Insert Symbol

C

Che

Is there any formula to Identify Text color and return symbol character?

I have text colors RED, BLUE and GREEN. These are assigned to different
dates in a column. I need to put a tick mark symbol agaist each in next
column.

RED - 1 Tick
BLUE - 2 Ticks
GREEN - 3 Ticks

Cheers

Che
 
K

Khoshravan

There is a command called "cell". It could give some formatting info of a
cell but I think it is unable to give the color of the text in cell. You can
check the help for that.
Maybe writing a Macro might be easier than using a formula.
 
G

Gord Dibben

Sub ticks()
For Each cell In ActiveSheet.Range("A1:A100")
With cell.Offset(0, 1)
.Font.Name = "Marlett"
.Font.Size = 12
End With
With cell
Select Case .Interior.ColorIndex
Case 3
With cell.Offset(0, 1)
.Value = "a"
End With
Case 5
With cell.Offset(0, 1)
.Value = "aa"
End With
Case 10
With cell.Offset(0, 1)
.Value = "aaa"
End With
End Select
End With
Next
End Sub


Gord Dibben MS Excel MVP
 
C

Che

thanks...

Gord Dibben said:
Sub ticks()
For Each cell In ActiveSheet.Range("A1:A100")
With cell.Offset(0, 1)
.Font.Name = "Marlett"
.Font.Size = 12
End With
With cell
Select Case .Interior.ColorIndex
Case 3
With cell.Offset(0, 1)
.Value = "a"
End With
Case 5
With cell.Offset(0, 1)
.Value = "aa"
End With
Case 10
With cell.Offset(0, 1)
.Value = "aaa"
End With
End Select
End With
Next
End Sub


Gord Dibben MS Excel MVP
 
C

Che

Thanks a lot....

Khoshravan said:
There is a command called "cell". It could give some formatting info of a
cell but I think it is unable to give the color of the text in cell. You can
check the help for that.
Maybe writing a Macro might be easier than using a formula.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top