M Max Bialystock Jul 4, 2007 #1 How can I copy the font color (and only the font color) from A1 to B1?
N Norman Jones Jul 4, 2007 #2 Hi Max, How can I copy the font color (and only the font color) from A1 to B1? Click to expand... Try: '=============>> Public Sub Tester() With ActiveSheet.Range("A1") .Offset(0, 1).Font.ColorIndex = .Font.ColorIndex End With End Sub '<<=============
Hi Max, How can I copy the font color (and only the font color) from A1 to B1? Click to expand... Try: '=============>> Public Sub Tester() With ActiveSheet.Range("A1") .Offset(0, 1).Font.ColorIndex = .Font.ColorIndex End With End Sub '<<=============
G Guest Jul 4, 2007 #3 Copy - Paste Sprecial can copy only formats. The color index is a type of format.
N Norman Jones Jul 4, 2007 #4 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.
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.
G Guest Jul 4, 2007 #5 I know formats will copy other things along with color index. Wasn't sure if Max wanted to use VBA code.
I know formats will copy other things along with color index. Wasn't sure if Max wanted to use VBA code.
K Keith Wilby Jul 4, 2007 #6 Joel said: I know formats will copy other things along with color index. Wasn't sure if Max wanted to use VBA code. Click to expand... Perhaps he wants to colour to "Bloom" ;-)
Joel said: I know formats will copy other things along with color index. Wasn't sure if Max wanted to use VBA code. Click to expand... Perhaps he wants to colour to "Bloom" ;-)
M Max Bialystock Jul 5, 2007 #7 Thanks Norman, that's perfect. Max Norman Jones said: Hi Max, Try: '=============>> Public Sub Tester() With ActiveSheet.Range("A1") .Offset(0, 1).Font.ColorIndex = .Font.ColorIndex End With End Sub '<<============= Click to expand...
Thanks Norman, that's perfect. Max Norman Jones said: Hi Max, Try: '=============>> Public Sub Tester() With ActiveSheet.Range("A1") .Offset(0, 1).Font.ColorIndex = .Font.ColorIndex End With End Sub '<<============= Click to expand...
