Recognize Color and Insert Symbol

  • Thread starter Thread starter Che
  • Start date Start date
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
 
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.
 
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
 
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
Click to expand...
 
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.
Click to expand...
 
Back
Top