Este fórum está sendo desativado

[angras]

Boa tarde
Tentei algumas coisas e falharam. Como copiar valores formatados e colar esses valores e cores sem a formatação

[osvaldomp]

#
Experimente:

Código: Selecionar todos

Sub ReplicaValorECor()
 Dim c As Range
  For Each c In [F4:I4]
   c.Interior.Color = c.Offset(, 6).DisplayFormat.Interior.Color
   c.Value = c.Offset(, 6).Value: c.Font.Color = c.Offset(, 6).DisplayFormat.Font.Color
  Next c
End Sub

[angras]

osvaldomp, muito agradecido pela ajuda