Tema: Pasar datos de Hoja2 a Hoja1 y después de Hoja3 a Hoja1 automáticamente!!!

Hola, me gustaría pasar los datos de la celda A1 de varias hojas (hoja2, hoja3,...) a la celda A1 (para la hoja2), B1 (para la hoja3),... de la Hoja1. Sé pasar el dato de la celda A1 de la hoja2 a la hoja1, pero luego como hago para repetir esto para el resto de hojas sin tener que hacerlo a mano? Hay alguna manera?

buenas seria conveniente subieras un archivo con ejemplo de lo que desesas (con datos ficticios) y explicando donde deseas sean puestos los datos y como, para llegar a la solucción más conveniente

buenas puedes usar el siguiente codigo colocando en un modulo en la ventana de Basic para acceder a este debes de presionar alt y F11

Sub Traspaso()

Sheets("1").Select ' seleccionar hoja 1 si la hoja se llama de otra forma se debe de cambiar el "1" por "nombre hoja"
Range("B100").Select ' se coloca en la celda B100 hoja 1
Selection.End(xlUp).Select ' subir hasta la ultima celda con datos
Range(ActiveCell, "b2").Select ' seleccionar desde esa celda hasta la B2
Selection.Copy ' copiar los datos
Sheets("Destino").Select ' seleccionar la hoja destino
Range("B100").Select ' se coloca en la celda B100 hoja destino
Selection.End(xlUp).Select ' subir hasta la ultima celda con datos
ActiveCell.Offset(1, 0).Select ' bajar una celda pra estar en la 1º libre
ActiveSheet.Paste ' pegar los datos
Application.CutCopyMode = False ' repetir proseco en hoja 2
Sheets("2").Select
Range("B100").Select
Selection.End(xlUp).Select
Range(ActiveCell, "b2").Select
Selection.Copy
Sheets("Destino").Select
Range("C100").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("3").Select
Range("B100").Select
Selection.End(xlUp).Select
Range(ActiveCell, "b2").Select
Selection.Copy
Sheets("Destino").Select
Range("D100").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

luego insertas un boton y asignas la macro

ya comentaras como te ha ido

un saludo