Copiar e colar apenas valores e cores
Enviado: 12 Mai 2021 às 15:57
por angras
Boa tarde
Tentei algumas coisas e falharam. Como copiar valores formatados e colar esses valores e cores sem a formatação
Re: Copiar e colar apenas valores e cores
Enviado: 12 Mai 2021 às 17:37
por osvaldomp
#
Experimente:
Código: Selecionar todosSub 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
Re: Copiar e colar apenas valores e cores
Enviado: 12 Mai 2021 às 20:45
por angras
osvaldomp, muito agradecido pela ajuda