Rango de copia de vba a otra hoja + libro de trabajo
Para copiar una celda o rango de celdas a otra hoja de trabajo, debe utilizar el método «Copiar» de VBA. En este método, necesita definir el rango o celda usando el objeto de rango que desea copiar y luego definir otra hoja de trabajo con el rango en el que desea pegarlo.
Copiar una celda u organizarla en otra hoja de trabajo
Range("A1").Copy Worksheets("Sheet2").Range("A1")
- Primero, configure el rango o celda que desea copiar.
- Luego escriba un punto (.) y seleccione el método de copia de la lista de propiedades y métodos.
- Aquí obtendrá un intellisense para establecer el destino de la celda copiada.
- Desde aquí debe definir la hoja de trabajo y luego el rango de destino.
Ahora, cuando ejecuta este código, copia la celda A1 de la hoja activa a la «Hoja2». Una cosa de la que debes asegurarte es que cuando copias una celda y la pegas en un destino, también pega el formato allí.
Pero si solo desea copiar el valor de una celda y pegarlo en las diferentes hojas de trabajo, considere el siguiente código.
Worksheets("Sheet2").Range("A1") = Range("A1").Value
Este método no utiliza el método de copia, sino que simplemente agrega valor a la hoja de trabajo de destino usando un signo igual y usando la propiedad de valor con la celda de origen.
Copiar celda de otra hoja de trabajo
Ahora suponga que desea copiar una celda de una hoja de trabajo que no está activa en ese momento. En este caso, debe definir la hoja de trabajo con la celda de origen. Al igual que el siguiente código.
Worksheets("sheet1").Range("A1").Copy Worksheets("Sheet2").Range("A1")
Copiar un rango de celdas
Range("A1:A10").Copy Worksheets("Sheet2").Range("A1:A10") Range("A1:A10").Copy Worksheets("Sheet2").Range("A1")
Copiar una celda de una hoja de trabajo a otro libro de trabajo
Cuando los libros están abiertos pero aún no guardados.
Workbooks("Book1").Worksheets("Sheet1").Range("A1").Copy _ Workbooks("Book2").Worksheets("Sheet1").Range("A1")
Cuando los libros se abren y guardan.
Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A1").Copy _ Workbooks("Book2.xlsx").Worksheets("Sheet1").Range("A1")
Copie una celda de una hoja de trabajo a otro libro cerrado
'to open the workbook that is saved in a folder on your system _ change the path according to the location you have in your _ system Workbooks.Open "C:UsersDellDesktopmyFile.xlsx" 'copies cell from the book1 workbook and copy and paste _ it to the workbook myFile Workbooks("Book1").Worksheets("Sheet1").Range("A1").Copy _ Workbooks("myFile").Worksheets("Sheet1").Range("A1") 'close the workbook and after saving Workbooks("myFile").Close SaveChanges:=True
Relacionado: Cómo abrir un libro usando VBA en Excel