¿Cómo buscar/encontrar valores en otro libro de trabajo?

Puede ser un poco confuso configurar la ruta de guardado, el nombre del archivo y la hoja de trabajo en la función BUSCARV. Este método introducirá un VBA para resolverlo fácilmente.

1. Presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y luego pega el siguiente código VBA en la ventana del módulo abierto.

VBA: Buscar datos y devolver valores desde otro libro de trabajo cerrado

Private Function GetColumn(Num As Integer) As String
If Num <= 26 Then
GetColumn = Chr(Num + 64)
Else
GetColumn = Chr((Num - 1) \ 26 + 64) & Chr((Num - 1) Mod 26 + 65)
End If
End Function
Sub FindValue()
Dim xAddress As String
Dim xString As String
Dim xFileName As Variant
Dim xUserRange As Range
Dim xRg As Range
Dim xFCell As Range
Dim xSourceSh As Worksheet
Dim xSourceWb As Workbook
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xUserRange = Application.InputBox("Lookup values :", "Kutools for Excel", xAddress, Type:=8)
If Err <> 0 Then Exit Sub
Set xUserRange = Application.Intersect(xUserRange, Application.ActiveSheet.UsedRange)
xFileName = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx", 1, "Select a Workbook")
If xFileName = False Then Exit Sub
Application.ScreenUpdating = False
Set xSourceWb = Workbooks.Open(xFileName)
Set xSourceSh = xSourceWb.Worksheets.Item(1)
xString = "='" & xSourceWb.Path & Application.PathSeparator & _
"[" & xSourceWb.Name & "]" & xSourceSh.Name & "'!$"
For Each xRg In xUserRange
Set xFCell = xSourceSh.Cells.Find(xRg.Value, , xlValues, xlWhole, , , False)
If Not (xFCell Is Nothing) Then
xRg.Offset(0, 2).Formula = xString & GetColumn(xFCell.Column + 1) & "$" & xFCell.Row
End If
Next
xSourceWb.Close False
Application.ScreenUpdating = True
End Sub

Nota: Este VBA devolverá valores en una columna que está 2 columnas detrás de la columna seleccionada. Por ejemplo, selecciono la columna B al aplicar este VBA, los valores se devolverán en la Columna D. Si necesitas cambiar la columna de destino, busca el código xRg.Offset(0, 2).Formula = xString & GetColumn(xFCell.Column + 1) & "$" & xFCell.Row y reemplaza 2 por otro número según lo necesites.

3. Presiona la tecla F5 o haz clic en el botón Ejecutar para ejecutar este VBA.

4. En el cuadro de diálogo que se abre, especifica el rango de datos que buscarás, y haz clic en el Aceptar botón.

5. Ahora selecciona el libro de trabajo donde buscarás los valores en el cuadro de diálogo Abrir Libro de Trabajo que aparece, y haz clic en el Abrir botón.

Ahora todos los valores seleccionados se han buscado en el libro de trabajo cerrado especificado, y los valores correspondientes se han devuelto en la columna especificada. Ver captura de pantalla: