Como copiar a cor da célula de formatação condicional para outro arquivo do Excel

0

Em uma planilha eu tenho um dado que tem formatação condicional de cor.

Eu quero copiar e colar em outro arquivo, eu consegui colar valor, largura de coluna, etc., mas não consegui colar a cor da formatação condicional.

Eu pesquisei e a sugestão era colá-lo na palavra e, em seguida, voltar ao excel, mas isso arruinaria minha formatação de linha e coluna do excel.

Como fazer isso? É possível?

    
por Paracsys 19.09.2018 / 10:31

1 resposta

1

Gostaria de sugerir dois métodos possíveis. Um é não programação & A segunda é a programação (macro VBA).

Método de não programação:

  1. Abra as duas pastas de trabalho.
  2. Copie uma célula da pasta de trabalho original Folha , (de onde você deseja copiar o Formatação Condicional) para uma posição não utilizada na planilha de trabalho de destino .
  3. Abra a opção Gerenciar regras de Formatação condicional .
  4. Selecione Mostrar regras de formatação para este Planilha.
  5. Para cada regra, ajuste a correspondência Aplica-se a o intervalo que você precisa.
  6. Clique no botão Intervalo à direita do Aplica-se a.
  7. Clique e arraste e selecione na célula superior esquerda para a célula inferior direita.
  8. Clique no botão Intervalo para retornar ao Gerenciador de regras condicionais.
  9. Clique em OK ou Aplicar para obter o resultado.

Método de programação:

  1. No arquivo de origem, pressione Alt+F11 para  abra o editor do VB.

  2. Copiar & cole este código como padrão  módulo.

    Sub CopyFormat()
    Application.DisplayAlerts = False
    Dim wbSource As Workbook
    Set wbSource = Workbooks.Open(Filename:="source.xlsm", UpdateLinks:=3)
    wbSource.Sheets(1).Range("A1:H100").Copy
    Selection.PasteSpecial _ 
    Paste:=xlPasteValues
    Selection.PasteSpecial _ 
    xlPasteFormats
    
    wbSource.Close
    Application.DisplayAlerts = True
    End Sub
    

Nota:

  1. Você pode editar o Worbook & Nome da folha como por sua necessidade.
  2. Ajustar referências de célula para o Copiado Faixa conforme necessário.
por 19.09.2018 / 11:43