if as you seem to say, a single cell has rich text formatting so parts of the
cell are on color and parts another, then I get this:

? activeCell.Font.ColorIndex
Null

not -4105 with is the value for automatic coloring.

--
Regards,
Tom Ogilvy


"Lisandro Oliveira" wrote:

The problem is that the cell where is the value has more than one value with
different colors.
A1 = "A, B, C"
A = red
B = Blue
C = Black

I put each value in a different cell
C1 = A
D1 = B
E1 = C

But i need to bring also the color each value.

"Lisandro Oliveira" wrote:

Hi Tom,

The fixed color that is returning is "-4105"
Doesnt matter if it is blue or red, always return "-4105" from
r.Font.ColorIndex

Why??

This is the code:

For i = 0 To UBound(meuarray)
Range("A2").ClearFormats
Range("A2").Value = meuarray(i)
Set test = Range("A2")
If test.Font.ColorIndex = "3" Then
Cells(ll, col + 1).Select
Selection.Font.ColorIndex = 3
End If
Cells(ll, col + 1).Value = meuarray(i)
ll = ll + 1
Next




"Tom Ogilvy" wrote:

for the Font:
Dim r as Range
set r = range(€œA1€�)

If r.Font.ColorIndex = 3 then
Msgbox €œred€�
End if

if the cell background is red:

Dim r as Range
set r = range(€œA1€�)

If r.Interior.ColorIndex = 3 then
Msgbox €œred€�
End if

--
regards,
Tom Ogilvy

"Lisandro Oliveira" wrote:

How can I know what is the color of the value of variable?
Example:

Cell A1 = €œtest€� (its in red)

VBA:

Dim var as string
Var = range(€œA1€�).value

If var.Interior.ColorIndex = red then
Msgbox €œred€�
End if

Tks,
Lisandro