copy the font color

's Computer Specifications

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

's Computer Specifications

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

's Computer Specifications

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
>
>
>

's Computer Specifications

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

's Computer Specifications

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
>
>
>

's Computer Specifications

"Joel" <(E-Mail Removed)> wrote in message
news:06A42A8F-A019-4121-97C0-(E-Mail Removed)...
>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" ;-)

's Computer Specifications

Thanks Norman,
that's perfect.

Max

"Norman Jones" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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
>
>

Thread Tools
Show Printable Version Email this Page
Rate This Thread
Rate This Thread:

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Copy cell and the font color	Falcon248	Microsoft Excel Misc	3	22nd Jan 2010 07:36 PM
Retain font/cell color on lookup/copy	JPS	Microsoft Excel Worksheet Functions	3	23rd Jul 2008 06:30 AM
How do I change the font color when using copy and paste?	=?Utf-8?B?bWttb3JnYW4=?=	Microsoft Outlook Discussion	0	21st Nov 2007 03:16 PM
VBA color picker - copy of Font dialog combo box	csugden@gmail.com	Microsoft Excel Programming	27	5th Dec 2006 08:23 PM
How copy format, font, color and border without copy/paste?	Michel	Microsoft Excel Programming	1	5th Nov 2003 04:43 PM