copy colour

[assaf1978]

Hi,
How can I copy a colour of a cell to another cell, using a function or a
macro?

Thanks,
Assaf.

 

[Sheeloo]

Try

Sub CopyColor()
Range("B2").Select
With Selection.Interior
.Pattern = Range("A2").Interior.Pattern
.Color = Range("A2").Interior.Color
End With
End Sub

 

[TomPl]

If you are familiar with VBA (Macros) the following code will copy the color
of F7 to A1 on the active worksheet:

Sub copycolor()

ActiveSheet.Range("A1").Interior.ColorIndex =
ActiveSheet.Range("F7").Interior.ColorIndex
ActiveSheet.Range("A1").Interior.Pattern =
ActiveSheet.Range("F7").Interior.Pattern

End Sub

If you are not familiar with VBA then more information about what you are
trying to do would be necessary.

Tom

 

[Gord Dibben]

Functions cannot change formatting of a cell so it must be a macro.

Sub colorit()
ActiveCell.Interior.ColorIndex = _
Range("A1").Interior.ColorIndex
End Sub

Or use the Format PaintBrush


Gord Dibben MS Excel MVP