Como Seleccionar libro en Vba con el cual trabajar

Te anexo una propuesta:

Sub comparar2libros()
'Act.Por.Dante Amor
    On Error Resume Next
    With Application
        Set libro1 = .InputBox("SELECCIONE CELDA DONDE QUIERE EMPEZAR A TRABAJAR ", "LIBRO1", _
            Default:=Selection.Address, Type:=8)
        If libro1 Is Nothing Then Exit Sub
    End With
    celda_1 = libro1.Address
    hoja_1 = libro1.Worksheet.Name
    libro_1 = libro1.Worksheet.Parent.Name
    '
    With Application
        Set libro2 = .InputBox("SELECCIONE CELDA DONDE QUIERE EMPEZAR A TRABAJAR ", "LIBRO1", _
            Default:="[archivo2.xlsx]Hoja1!$A$1", Type:=8)
        If libro2 Is Nothing Then Exit Sub
    End With
    celda_2 = libro2.Address
    hoja_2 = libro2.Worksheet.Name
    libro_2 = libro2.Worksheet.Parent.Name
End Sub

En la variable (objeto) libro1, tienes la información del primer libro, en este libro supongo que tienes la macro.

Ya en las variables celda_1, hoja_1 y libro_1 tienes la información de la celda, la hoja y el libro 1.

A continuación, para seleccionar el siguiente libro hay que ponerlo entre corchetes en el argumento Default:="[archivo2.xlsx]Hoja1!$A$1", tienes que poner el nombre del libro, yo puse en mi ejemplo archivo2.xlsx, pero en tu caso, tienes que poner el nombre completo de tu libro, además de que tiene que estar abierto; de esta forma el input se pasa al archivo2 y te permite seleccionar la hoja y la celda.

Ya en las siguientes variables celda_2, hoja_2 y libro_2 tienes la información de la celda, la hoja y el libro 2.

Avísame si tienes alguna duda.

Saludos. Dante Amor. Recuerda valorar la respuesta.

Hola Dante

gracias por la respuesta.. 

Pero no se puede Guardar el nombre en Una variable?? Cuando selecciono la celda de ese libro..

Nota: no siempre es el mismo libro...

Gracias por la respuesta Dante..

saludos!..

Si entiendo que no va a ser el mismo libro, pero es una limitación del Inputbox.

Solamente de esa forma te puedes ir a seleccionar a otro libro

Te anexo la macro actualizada con una variable para que pongas el otro libro, sin embargo tendrás que ponerlo en la macro.

Sub comparar2libros()
'Act.Por.Dante Amor
    On Error Resume Next
    With Application
        Set libro1 = .InputBox("SELECCIONE CELDA DONDE QUIERE EMPEZAR A TRABAJAR ", "LIBRO1", _
            Default:=Selection.Address, Type:=8)
        If libro1 Is Nothing Then Exit Sub
    End With
    celda_1 = libro1.Address
    hoja_1 = libro1.Worksheet.Name
    libro_1 = libro1.Worksheet.Parent.Name
    '
    variable = "archivo2.xlsx"
    With Application
        Set libro2 = .InputBox("SELECCIONE CELDA DONDE QUIERE EMPEZAR A TRABAJAR ", "LIBRO1", _
            Default:="[" & variable & "]Hoja1!$A$1", Type:=8)
        If libro2 Is Nothing Then Exit Sub
    End With
    celda_2 = libro2.Address
    hoja_2 = libro2.Worksheet.Name
    libro_2 = libro2.Worksheet.Parent.Name
End Sub

Si quieres puedes tomar el nombre del libro de una celda, cambia esto

variable = "archivo2.xlsx"

Por esto:

variable = range("D5")

En D5 deberás poner archivo2.xlsx

De esa forma es más flexible.

Saludos. Dante Amor. Recuerda valorar la respuesta.

Dante

Se me ocurrió otra manera, no se si sea viable.. Antes de entrar a los inputbox ver cuanTos Workbooks están abiertos y guardar en una variable el nombre del "Libro 2" En el cual voy a estar trabajAndo..

Tratare de buscar Información..

gracias Dante..

Saludos!.

Desde luego que se pueden obtener todos los libros abiertos

Sub motrarnombres()
For Each libros In Workbooks
    nombre = libros.Name
Next
End Sub

Quieres que te pase libro por libro y que selecciones uno?

Otra opción es meter todos los libros abiertos a un combobox y de ahí selecciones el libro2 y pasar ese parámetro al inputbox.

Pero todo eso correspondería a otra pregunta, el problema era seleccionar la celda de otro libro y eso lo respondí con la variable.

Hola Dante.. Perdon apenas me desocupe.. Me podrias decir como realizo la otra pregunta para podEr ver las dos opciones

•pase libro por libro

•ingresarlos al combobox..

saludos!.. 

Buen dia Dante