Copiar e colar o conteúdo da célula de uma pasta de trabalho para outra perde a formatação de cores

Question

Estou usando uma macro para copiar o conteúdo da célula (dados numéricos e o formato das cores dos números) de uma pasta de trabalho para outra, mas ela não está carregando a formatação de cores.

Eu tenho duas pastas de trabalho:

1. uma pasta de trabalho (TLC Assess 4 Findings) com dados científicos do cliente
2. alguns dados da primeira pasta de trabalho são exibidos em um formato mais amigável. Os dados têm três cores: preto = normal, vermelho = acima do intervalo e azul = dentro do intervalo.

Eu tenho uma macro atribuída a um botão na segunda pasta de trabalho que extrai os dados da primeira pasta de trabalho. Tudo funciona perfeitamente copiando os dados, exceto que não copia a cor associada aos dados.

A macro é basicamente:

1. Insira a primeira célula na pasta de trabalho 2 com esta fórmula:
   ='[TLC Assess 4 Findings.xls]Report'!$E$9
2. Vá para a próxima célula e faça o mesmo para todas as células da seção a serem copiadas.
3. Finalizar macro.

Pressione todos os dados vem correto, mas a cor não. É preto ou qualquer cor que tenha sido usada anteriormente naquela célula na pasta de trabalho 2.

Eu também tentei copiar e colar especial com o mesmo resultado. Eu também tentei o Format Painter.

Como faço para copiar os dados junto com o formato colorido na minha macro?

    

Answer 1

Não sei como é o seu código ou se a pasta de trabalho 1 possui alguma formatação condicional que não está sendo copiada adequadamente; mas aqui está uma das maneiras que você pode "copiar" o formato de uma célula em uma pasta de trabalho para uma célula em outra pasta de trabalho (supondo que ambas as pastas de trabalho estejam abertas):

Workbooks("SOURCE.xls").Sheets("SHEETNAME").Range("A1").Interior.Color = _
Workbooks("DESTINATION.xls").Sheets("SHEETNAME").Range("A1").Interior.Color

Para cores de fonte:

Workbooks("SOURCE.xls").Sheets("SHEETNAME").Range("A1").Font.Color = _
Workbooks("DESTINATION.xls").Sheets("SHEETNAME").Range("A1").Font.Color

Substitua os nomes dos arquivos, os nomes das planilhas e os valores do intervalo para que correspondam aos seus arquivos.