Copiar filas de un excel a otro usando una macros
Hola, agradezco de antemano el apoyo brindado.
El tema es que yo exporto de un programa POR información a un excel por ello el formato y las rangos de las columnas van a ser siempre las mismas, pero el detalle viene cuando quiero copiar las filas ya que en un momento puedo esportar una sola fila y en otra 1500 filas es por ello quisiera saber como puedo hacer para al momento de copiar las filas solo me copie el contenido de la fila A8 en adelante siempre y cuando tenga un valor, y copiarlo a otra hoja de excel el cual tiene que continuar es decir si ya tengo usado hasta la fila 1000 lo que sigue tiene que copiarse a partir de la fila 1001, espero me puedan ayudar
El tema es que yo exporto de un programa POR información a un excel por ello el formato y las rangos de las columnas van a ser siempre las mismas, pero el detalle viene cuando quiero copiar las filas ya que en un momento puedo esportar una sola fila y en otra 1500 filas es por ello quisiera saber como puedo hacer para al momento de copiar las filas solo me copie el contenido de la fila A8 en adelante siempre y cuando tenga un valor, y copiarlo a otra hoja de excel el cual tiene que continuar es decir si ya tengo usado hasta la fila 1000 lo que sigue tiene que copiarse a partir de la fila 1001, espero me puedan ayudar
1 Respuesta
Respuesta de Elsa Matilde
1
Para encontrar el fin de rango (a copiar) o para encontrar la primer fila libre, podes utilizar esta instrucción:
ultima= Range("A65536").end(xlup).Row
libre = Range("A65536").end(xlup).Row + 1 'sumo 1 para colocarme debajo de la última con datos
Luego para hacer mención a esos rangos podes usar alguna de estas expresiones:
Range("A" & libre) o también : Cells(libre, 1)
PD) En mi página de macros encontrarás más instrucciones para ubicar los límites de rangos.
ultima= Range("A65536").end(xlup).Row
libre = Range("A65536").end(xlup).Row + 1 'sumo 1 para colocarme debajo de la última con datos
Luego para hacer mención a esos rangos podes usar alguna de estas expresiones:
Range("A" & libre) o también : Cells(libre, 1)
PD) En mi página de macros encontrarás más instrucciones para ubicar los límites de rangos.
