Como procurar/localizar valores em outra pasta de trabalho?

Pode ser um pouco confuso configurar o caminho de salvamento, nome do arquivo e planilha na função PROCV. Este método introduzirá um VBA para resolver isso facilmente.

1. Pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo, e depois cole o código VBA abaixo na janela do módulo aberta.

VBA: Procurar dados e retornar valores de outra pasta de trabalho fechada

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 retornará valores em uma coluna que está 2 colunas à frente da coluna selecionada. Por exemplo, selecione a coluna B ao aplicar este VBA, os valores retornarão na Coluna D. Se precisar alterar a coluna de destino, encontre o código xRg.Offset(0, 2).Formula = xString & GetColumn(xFCell.Column + 1) & "$" & xFCell.Row , e substitua 2 por outro número conforme necessário.

3. Pressione a tecla F5 ou clique no botão Executar para executar este VBA.

4. Na caixa de diálogo aberta, especifique o intervalo de dados que você procurará e clique no OK botão.

5. Agora, por favor, selecione a pasta de trabalho onde você procurará valores na caixa de diálogo Selecionar uma Pasta de Trabalho aberta, e clique no Abrir botão.

Agora, todos os valores selecionados são procurados na pasta de trabalho fechada especificada, e os valores correspondentes são retornados na coluna especificada. Veja a captura de tela: