Copiar rango de celdas

Buenos días,
un favor necesito copiar un rango de celdas de una hoja a otra pero que respete el formato original de dicho rango... No realizando un pegado especial.
Muchas gracias,
Saludos,
Alfredo.

1 Respuesta

Respuesta
1
Te dejo algunas instrucciones marcando las diferencias con respecto al pegado o pegado especial:
Estando en Hoja1:
Range("G2").select
Selection.Copy Destination:=Sheets("Hoja3").Range("H2")
'la copia respeta el formato del rango en Hoja1
Selection.Copy
Sheets("hoja3").Select
Range("H3").Select
ActiveSheet.Paste
'otra versión con = resultado que el anterior (formato de Hoja1)
En cambio con las siguientes se mantiene el formato que tenía la celda o rango antes del copiado:
Range("G2").Select
Sheets("Hoja3").Range("H3") = Selection
Selection.Copy
Sheets("hoja3").Select
Range("H4").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone,SkipBlanks:=False, Transpose:=False
'otra versión con = resultado, mantiene formato de Hoja3.
Utilizá la que más se ajusta a tus necesidades y espero que esta vez no olvides finalizar la consulta
Saludos
Elsa
* Novedades en:
http://es.geocities.com/lacibelesdepunilla/manual_VBA
Parece que no te quedó claro que debes finalizar la consulta si el tema quedó concluido.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas