El método Range.Copy permite copiar un rango de celdas y pegarlas en otro lugar de la hoja de trabajo o en otra hoja de trabajo. Es una herramienta esencial para trabajar eficazmente con datos, ya que le permite copiar y pegar valores, fórmulas, formatos e incluso comentarios de forma rápida y sencilla.
¿Para qué sirve?
El método de copia es útil en varias situaciones diferentes:
- Pegar datos en otro lugar: puede copiar un rango de celdas y pegarlas en otro lugar de la misma hoja de trabajo, de otra hoja de trabajo o incluso de otro libro.
- Copiar fórmulas: puede copiar fórmulas de un rango de celdas y pegarlas en otro lugar, ajustando automáticamente las referencias de celda para que se ajusten a la nueva ubicación.
- Formatee celdas rápidamente: puede copiar el formato de un rango de celdas y pegarlo en otro rango para aplicar el mismo estilo de formato de manera rápida y consistente.
- Transferir datos entre hojas de trabajo: puede utilizar el método de copia para copiar datos de una hoja de trabajo a otra y luego pegarlos en la hoja de trabajo de destino.
Ejemplo:
Supongamos que tiene un rango de celdas A1:C10 que contiene datos de ventas.
' Copiar el rango A1:C10
Dim rangoCopia As Range
Set rangoCopia = Range("A1:C10").Copy
' Pegar el rango copiado en la celda D15
rangoCopia.PasteDestination:=xlPasteValues ' Pegar solo valores
' Copiar el formato del rango A1:C10
Selection.CopyFormat
' Pegar el formato copiado en el rango D15:F25
Selection.PasteDestination:=xlPasteFormats ' Pegar solo formatos
En este ejemplo, el código primero define un rango llamado copyrange y copia el rango en el rango A1:C10. Luego pegue el rango copiado en la celda D15 y pegue solo los valores (sin fórmulas ni formato). Luego copie el formato en el rango A1:C10 y péguelo en el rango D15:F25, aplicando el mismo estilo de formato a las nuevas celdas.
