Olá bom dia.
Altere a Range Matriz e Destino conforme a necessidade
Sub copiar_propriedades()
Dim matriz As Range
Dim destino As Range
Set matriz = Plan1.Range("A1")
Set destino = Plan2.Range("A1")
destino.Value = matriz.Value
destino.NumberFormat = matriz.NumberFormat
destino.Font.ColorIndex = matriz.Font.ColorIndex
End Sub
Caso isso não te atenda, por favor, poste um exemplo para adaptar o código à sua necessidade.
Abrç!
___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].
Att.
André Arruda
Postado : 18/04/2018 9:33 am