Hola:
Esta es una consulta frecuente, podrás encontrar otras respuestas con el buscador.
Aquí va mi ejemplo que es muy general pero con las explicaciones no tendrás problemas en ir completándolo.
Entrá al Editor (con Alt+F11), insertá un módulo y allí la copiás. Luego dibujá un botón y asignales esta macro.
Sub pasandoDatos()
'macro desarrollada por Elsamatilde
dim filaUlt as long 'esta será la primer fila libre para acumular los datos
filaUlt = sheets("Hoja2").range("A65536").End(xlup).Row + 1
'luego pasarás cada celda de tu hoja 1 a las
distintas col de la fila libre
sheets("Hoja2").cells(filaUlt,1) = Sheets("Hoja1").range("A5")
sheets("Hoja2").cells(filaUlt,2) = Sheets("Hoja1").range("B7")
'más datos
End Sub
Armála con tus datos y probala. Si te presenta algún error, escribime tu rutina y la línea que te pueda marcar de amarillo cuando presionas el botón Depurar.
Saludos
Elsa
* No te pierdas las novedades de Dbre, en:
http://es.geocities.com/lacibelesdepunilla/manuales
