Macro de excel
Muy buenas,
me he quedado atascada con una macro de excel...
Lo que quiero conseguir: En la primera pestaña tengo una serie de datos a rellenar y con un botón "Volcar datos" lo quiero introducir en la 2ª pestaña para obtener un listado.
He grabado una macro en la que copio los datos de la primera pestaña en la segunda y le he asignado esta macro al botón, pero a la hora de crear el listado no me sale porque siempre me vuelca los datos en la primera linea de la 2ª pestaña, borrándome el anterior y no uno debajo de otro... No se si me he explicado.
Agradecería una ayudita, porque como veis soy un poco torpe con el excel...
Muchas gracias
me he quedado atascada con una macro de excel...
Lo que quiero conseguir: En la primera pestaña tengo una serie de datos a rellenar y con un botón "Volcar datos" lo quiero introducir en la 2ª pestaña para obtener un listado.
He grabado una macro en la que copio los datos de la primera pestaña en la segunda y le he asignado esta macro al botón, pero a la hora de crear el listado no me sale porque siempre me vuelca los datos en la primera linea de la 2ª pestaña, borrándome el anterior y no uno debajo de otro... No se si me he explicado.
Agradecería una ayudita, porque como veis soy un poco torpe con el excel...
Muchas gracias
1 respuesta
Respuesta
1
Puedes añadir lo siguiente al principio de tu macro para que te busque la siguiente celda vacía de la columna que tu quieras, de esta forma, te copiará después de lo que ya tienes escrito:
Range("A1"). Select 'selecciona la celda (en este caso la celda) "A1"
Do While Not IsEmpty(ActiveCell) 'encuentra la ultima celda con datos
ActiveCell.Offset(1, 0).Select 'en la ultima celda con datos, muevete una fila abajo
Loop
'y a partir de aquí iria tu código de copiar/pegar
Range("A1"). Select 'selecciona la celda (en este caso la celda) "A1"
Do While Not IsEmpty(ActiveCell) 'encuentra la ultima celda con datos
ActiveCell.Offset(1, 0).Select 'en la ultima celda con datos, muevete una fila abajo
Loop
'y a partir de aquí iria tu código de copiar/pegar