vba to copy and paste just the font colour

[tonywatsonhelp]

Hi Everyone,

I want to copy
Sheets("Data"),range("J7").copy
to
Sheets("Gigs"),range("G9")
but I would just like to copy the value and the font colour
any ideas how?

thanks
Tony

 

[Micron]

Try
Sheets("Gigs").Range("G9").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

or just
Sheets("Gigs").Range("G9").PasteSpecial Paste:=xlPasteFormats

 

[tonywatsonhelp]

that pastes all formats, i.e cell colour, boarders etc. i just want the font colour?

 

[MARK858]

Try

Sub TonyW()
    With Sheets("Gigs").Range("G9")
        .Value = Sheets("Data").Range("J7").Value
        .Font.Color = Sheets("Data").Range("J7").Font.Color
    End With
End Sub

 

[tonywatsonhelp]

Thanks mark,
that works great
Thanks
Tony

 

[MARK858]

You're welcome