Copia a cor do plano de fundo de uma célula para outra em uma folha separada usando o ms-excel?

Question

Eu quero copiar a cor do plano de fundo, por exemplo, a célula da folha A1 para folha B A1.

A célula A1 está usando formatação condicional, eu posso copiar simples, mas não com formatação condicional ativada.

Aqui está o código

Dim varTemp As Variant

varTemp = Worksheets("Summary").Range("F15:F21").Formula
Worksheets("People").Range("G3:G9").Copy
Worksheets("Summary").Range("F15:F21").PasteSpecial xlPasteAllMergingConditionalFormats
Worksheets("Summary").Range("F15:F21").Formula = varTemp

quando eu executo o VB, apenas seleciono as células de destino e peço para PASSAR os resultados. Então, na barra de status inferior esquerda, em

    

Answer 1

O código abaixo funciona para mim, copia as cores da célula (plano de fundo) para outras células em uma planilha diferente.

Sub copyFormat()
    Worksheets("Sheet1").Activate
    Range("a1:b1").Copy
    Worksheets("Sheet2").Activate
    Range("a1:b1").PasteSpecial (xlPasteFormats)
End Sub