VBA syntax for Font & Interior ColorIndex

D

Dennis

Using XL 2003 & 97


Would like to place the "value or name" of a cell A1's current
Font.ColorIndex in B1 and A1's current Interior.ColorIndex into C1

By "value", I mean either the Font.ColorIndex (number) or (xlNone), or
better, "Yellow" for 6 or "Red" for 3 or "xlNone".

Similarly, Interior.ColorIndex (number) or (xlNone) or better "Yellow" for 6
or "Red" for 3 or "xlNone".

Therefore,

A B C
[Font.ColorIndex] [Interior.ColorIndex]
1 (Contents "Yellow" (or "6") "Red" (or "3")
whatever)

2 (Contents "xlNone" "xlNone"
whatever)


I am not sure how to code Range.("A1").Font.ColorIndex.name
or Range.("A1").Interior.ColorIndex.name ?

So that I could code something like:

Range.("B1").value = Range.("A1").Font.ColorIndex.name
Range.("C1").value = Range.("A1").Interior.ColorIndex.name
Range.("B2").value = Range.("A2").Font.ColorIndex.name
Range.("C2").value = Range.("A2").Interior.ColorIndex.name

Hopefully I have been clear?

TIA Dennis
 
D

Dennis

Thanks for your time and knowledge, happy holidays

Dennis

Don Guillett said:
Range("d15") = Range("c15").Font.ColorIndex

--
Don Guillett
SalesAid Software
[email protected]
Dennis said:
Using XL 2003 & 97


Would like to place the "value or name" of a cell A1's current
Font.ColorIndex in B1 and A1's current Interior.ColorIndex into C1

By "value", I mean either the Font.ColorIndex (number) or (xlNone), or
better, "Yellow" for 6 or "Red" for 3 or "xlNone".

Similarly, Interior.ColorIndex (number) or (xlNone) or better "Yellow" for 6
or "Red" for 3 or "xlNone".

Therefore,

A B C
[Font.ColorIndex] [Interior.ColorIndex]
1 (Contents "Yellow" (or "6") "Red" (or "3")
whatever)

2 (Contents "xlNone" "xlNone"
whatever)


I am not sure how to code Range.("A1").Font.ColorIndex.name
or Range.("A1").Interior.ColorIndex.name ?

So that I could code something like:

Range.("B1").value = Range.("A1").Font.ColorIndex.name
Range.("C1").value = Range.("A1").Interior.ColorIndex.name
Range.("B2").value = Range.("A2").Font.ColorIndex.name
Range.("C2").value = Range.("A2").Interior.ColorIndex.name

Hopefully I have been clear?

TIA Dennis
Click to expand...
Click to expand...
 
D

Don Guillett

glad to help. Eat a turkey or drink a wild turkey

--
Don Guillett
SalesAid Software
[email protected]
Dennis said:
Thanks for your time and knowledge, happy holidays

Dennis

Don Guillett said:
Range("d15") = Range("c15").Font.ColorIndex

--
Don Guillett
SalesAid Software
[email protected]
Dennis said:
Using XL 2003 & 97


Would like to place the "value or name" of a cell A1's current
Font.ColorIndex in B1 and A1's current Interior.ColorIndex into C1

By "value", I mean either the Font.ColorIndex (number) or (xlNone), or
better, "Yellow" for 6 or "Red" for 3 or "xlNone".

Similarly, Interior.ColorIndex (number) or (xlNone) or better "Yellow"
Click to expand...
for
6
or "Red" for 3 or "xlNone".

Therefore,

A B C
[Font.ColorIndex] [Interior.ColorIndex]
1 (Contents "Yellow" (or "6") "Red" (or "3")
whatever)

2 (Contents "xlNone" "xlNone"
whatever)


I am not sure how to code Range.("A1").Font.ColorIndex.name
or Range.("A1").Interior.ColorIndex.name ?

So that I could code something like:

Range.("B1").value = Range.("A1").Font.ColorIndex.name
Range.("C1").value = Range.("A1").Interior.ColorIndex.name
Range.("B2").value = Range.("A2").Font.ColorIndex.name
Range.("C2").value = Range.("A2").Interior.ColorIndex.name

Hopefully I have been clear?

TIA Dennis
Click to expand...
Click to expand...
Click to expand...
 
Top