copy the font color
 

How can I copy the font color (and only the font color) from A1 to B1?

copy the font color
 

Hi Max,

How can I copy the font color (and only the font color) from A1 to B1?

Try:

'=============
Public Sub Tester()
With ActiveSheet.Range("A1")
.Offset(0, 1).Font.ColorIndex = .Font.ColorIndex
End With
End Sub
'<<=============


---
Regards,
Norman

copy the font color
 

Copy - Paste Sprecial can copy only formats. The color index is a type of
format.

"Norman Jones" wrote:

Hi Max,

How can I copy the font color (and only the font color) from A1 to B1?

Try:

'=============
Public Sub Tester()
With ActiveSheet.Range("A1")
.Offset(0, 1).Font.ColorIndex = .Font.ColorIndex
End With
End Sub
'<<=============


---
Regards,
Norman

copy the font color
 

Hi Joel,

'----------------
Copy - Paste Sprecial can copy only formats. The color index is a type of
format.

'----------------

The OP's question explicitly specified:

" ... copy the font color (and only the font color) ..."

- hence my response.


---
Regards,
Norman

copy the font color
 

I know formats will copy other things along with color index. Wasn't sure if
Max wanted to use VBA code.

"Norman Jones" wrote:

Hi Joel,

'----------------
Copy - Paste Sprecial can copy only formats. The color index is a type of
format.

'----------------

The OP's question explicitly specified:

" ... copy the font color (and only the font color) ..."

- hence my response.


---
Regards,
Norman

copy the font color
 

"Joel" wrote in message
...
I know formats will copy other things along with color index. Wasn't sure
if
Max wanted to use VBA code.


Perhaps he wants to colour to "Bloom" ;-)

copy the font color
 

Thanks Norman,
that's perfect.

Max



"Norman Jones" wrote in message
...
Hi Max,

How can I copy the font color (and only the font color) from A1 to B1?

Try:

'=============
Public Sub Tester()
With ActiveSheet.Range("A1")
.Offset(0, 1).Font.ColorIndex = .Font.ColorIndex
End With
End Sub
'<<=============


---
Regards,
Norman