Copiar formato y valores en VBA

Sub Macro2()
Range("C8").Select
Selection.Copy
Range("E20").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
End Sub

¿Se puede usando código como el de arriba, copiar-pegar con VBA el valor y formato de una celda al mismo tiempo? 

Gracias

1 respuesta

Respuesta
2

Te dejo 2 tipo de instrucciones: la que pega todo tal cual y la que solo pega 'como valores' (es decir convierte las fórmulas en valores) y formatos:

Sub MacrosCopiado()
'x Elsamatilde

'copai todo tal cual
Range("C8").Copy Destination:=Sheets("Hoja1").Range("E20")

'pega solo valores y formatos
Range("C8").Copy
Sheets("Hoja1").Select
Range("E20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub

Si esto responde a tu consulta no olvides valorarla, sino comenta qué tipo de copiado necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas