Activar la próxima celda vacía
Amiga elsa tengo un código ya funcionando y conozco algo del excel pero tengo un problema mi código copia un rango de celdas de una hoja (que siempre debe ser el mismo)y lo pega en otra hoja a partir de una celda especificada (por ej:A10) dejando activa la siguiente celda vacía (A11)todo esto a través de un commandbutton, ahora todo funciona la primera vez pero en la próxima vuelve a copiar sobre sobre el rango especificado (A10) es decir no arranca en A11 que es la que dejo activa cuando se ejecuto la macro por primera vez bueno saludos y espero que puedas ayudarme
1 Respuesta
Respuesta de Elsa Matilde
1
Podes resolverlo de 2 maneras, según sepas la cantidad de filas copiadas o no.
1-Si las filas a copiar serán siempre las mismas, podes tener instrucciones así:
copiada = 10 (empezará en A10)
Selection.Copy Destination:=Sheets("Hoja3").Cells(copiada, 1)
copiada = copiada + 12 ?suponiendo que son 12 las filas a copiar
2-si no sabes la cantidad tendrás que ver cuál es la primer libre, así:
fila1 = Sheets("Hoja3").Range("A65000").End(xlUp).Row + 1
Selection.Copy Destination:=Sheets("Hoja3").Cells(fila1, 1)
Espero te resulten de utilidad.
Saludos
Elsa
PD) Te recomiendo visitar el sitio www.exceluciones.com , hay un muy buen boletín, de suscripción GRATUITA con ejemplos, trucos, etc, etc.
1-Si las filas a copiar serán siempre las mismas, podes tener instrucciones así:
copiada = 10 (empezará en A10)
Selection.Copy Destination:=Sheets("Hoja3").Cells(copiada, 1)
copiada = copiada + 12 ?suponiendo que son 12 las filas a copiar
2-si no sabes la cantidad tendrás que ver cuál es la primer libre, así:
fila1 = Sheets("Hoja3").Range("A65000").End(xlUp).Row + 1
Selection.Copy Destination:=Sheets("Hoja3").Cells(fila1, 1)
Espero te resulten de utilidad.
Saludos
Elsa
PD) Te recomiendo visitar el sitio www.exceluciones.com , hay un muy buen boletín, de suscripción GRATUITA con ejemplos, trucos, etc, etc.
