Mi consulta creo que es muy sencilla (cuando se sabe claro), y es que tengo una hoja donde importo datos de otro libro pero que no conozco el nombre, ya que es un reporte del banco y cada vez me lo da de distinta forma.
La cuestión es que necesito saber cual es la última fila de ese libro con datos para poder copiarlas todas y pegarlas en el libro de destino, que es el que tiene la macro. Por razones de "afinamiento" del código no quiero seleccionarlo, sinó que, quiero consultar simplemente, porque me he dado cuenta que aunque se tenga el "Application.ScreenUpdating = False" da un pequeño pantallazo. La línea que he puesto me da error, en cambio, para cargar la variable con el nombre del libro no me da error.
Pongo parte del código aquí. No subo ejemplo porque lo único que necesito es que alguien me corrija la línea esta.
Workbooks(OtroLibro).Activate ' <<<----Esta línea es la que quiero evitar.
OtraHoja = ActiveSheet.Name UltimaFila = Workbooks(OtroLibro).Sheets(OtraHoja).Range("A" & Cells.Rows.Count).End(xlUp).Row '<<<---Esta es la que me da error si no está activo.
Range("A5:A" & UltimaFila).Copy
Insisto que es parte del código que mas arriba entro sin problemas para llenar la variable "OtroLibro"
Muchas gracias por vuestra atención y saludos.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola que tal, un saludo a todos.
Mi consulta creo que es muy sencilla (cuando se sabe claro), y es que tengo una hoja donde importo datos de otro libro pero que no conozco el nombre, ya que es un reporte del banco y cada vez me lo da de distinta forma.
La cuestión es que necesito saber cual es la última fila de ese libro con datos para poder copiarlas todas y pegarlas en el libro de destino, que es el que tiene la macro. Por razones de "afinamiento" del código no quiero seleccionarlo, sinó que, quiero consultar simplemente, porque me he dado cuenta que aunque se tenga el "Application.ScreenUpdating = False" da un pequeño pantallazo. La línea que he puesto me da error, en cambio, para cargar la variable con el nombre del libro no me da error.
Pongo parte del código aquí. No subo ejemplo porque lo único que necesito es que alguien me corrija la línea esta.
Workbooks(OtroLibro).Activate ' <<<----Esta línea es la que quiero evitar.
OtraHoja = ActiveSheet.Name
UltimaFila = Workbooks(OtroLibro).Sheets(OtraHoja).Range("A" & Cells.Rows.Count).End(xlUp).Row '<<<---Esta es la que me da error si no está activo.
Range("A5:A" & UltimaFila).Copy
Insisto que es parte del código que mas arriba entro sin problemas para llenar la variable "OtroLibro"
Muchas gracias por vuestra atención y saludos.