Macro p/copiar datos de una Hoja a otra en Excel
Bunes días...
Tengo una hoja de Excel con 6 pestañas (hoja1, Hoja2, etc), necesito una Macro para que con un Botón (por cada hoja excepto en la Hoja6) me copie los datos que tiene cada hoja, por ejemplo, en la cada hoja tengo datos que abarcan este rango B5:E100 y quiero que al momento de oprimir el botón (que esta en la hoja6) con el nombre de la hoja1 me copie los datos a la hoja1 a la hoja6 y si oprimo el botón con el nombre de la hoja2 me copie estos mismo, osea que valla sustituyendo los datos en la hoja6 según el botón que valla oprimiendo, los 5 botones estarían en la hoja6 y el rango para pegar seria el mismo (B5:E100).
Espero me haya explicado bien y puedan ayudarme.
Muchas Gracias.
Tengo una hoja de Excel con 6 pestañas (hoja1, Hoja2, etc), necesito una Macro para que con un Botón (por cada hoja excepto en la Hoja6) me copie los datos que tiene cada hoja, por ejemplo, en la cada hoja tengo datos que abarcan este rango B5:E100 y quiero que al momento de oprimir el botón (que esta en la hoja6) con el nombre de la hoja1 me copie los datos a la hoja1 a la hoja6 y si oprimo el botón con el nombre de la hoja2 me copie estos mismo, osea que valla sustituyendo los datos en la hoja6 según el botón que valla oprimiendo, los 5 botones estarían en la hoja6 y el rango para pegar seria el mismo (B5:E100).
Espero me haya explicado bien y puedan ayudarme.
Muchas Gracias.
1 Respuesta
Respuesta de Eduard Caballero
1
Acá tienes la información necesaria y adaptarla a tus necesidades
http://excelforo.blogspot.com/2011/02/vba-formas-de-copiar-rangos-o-celdas.html
http://excelforo.blogspot.com/2011/02/vba-formas-de-copiar-rangos-o-celdas.html
Aquí esta resumido
Este seria la copia de la Hoja 1 a la hoja 6
Private Sub CommandButton1_Click()
Hoja1.Range("B5:E100").Copy Destination:=Hoja6.Range("B5:E100")
End Sub
Luego vas agregando botones y modificando las hojas según tus necesidades.
Este seria la copia de la Hoja 1 a la hoja 6
Private Sub CommandButton1_Click()
Hoja1.Range("B5:E100").Copy Destination:=Hoja6.Range("B5:E100")
End Sub
Luego vas agregando botones y modificando las hojas según tus necesidades.
