Copy color from a (group of) cells with conditonal formatting

[UHsoccer]

I have a large block of cells with conditional formatting
Need to copy ONLY the color of those cells to other cells
When I do a "copy/paste format" it includes the conditional aspects of those cells. I just need the color ONLY

Your comments are appreciated

 

[samitnair]

Hello

As per my understanding Try this

Sub FormatCopy()
Worksheets("Source").Range("A1:B10").Copy
Worksheets("Destination").Range("A1:B10").PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End Sub

 

[MARK858]

When I do a "copy/paste format" it includes the conditional aspects of those cells. I just need the color ONLY

I think that you would have to do it via VBA using the DisplayFormat.Interior.Color or DisplayFormat.Interior.ColorIndex property.

Please note that the DisplayFormat property does not work in User Defined Functions (UDF)

 

[UHsoccer]

Here is my current code, not really sure how to apply your suggestion

Sub Match_Color()
'
'   copy cell color from U3:V16 to C3:D16
'
    Range("U3:V16").Select  ' it contains conditional formatting
    Selection.Copy
    Range("C3:D16").Select  ' copy COLOR only
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
End Sub

 

[MARK858]

Maybe...

Sub Match_Color()
    Dim myCell As Range
    Application.ScreenUpdating = False

    For Each myCell In Range("C3:D16")
        myCell.Interior.Color = myCell.Offset(, 18).DisplayFormat.Interior.Color
    Next

    Application.ScreenUpdating = True
End Sub