Eu tenho duas pastas de trabalho diferentes:
Eu quero o msgbox no workbook-1 referindo-se aos valores no workbook-2.
Por exemplo:
Na pasta de trabalho 1:
| A |
| B |
| C |
Na pasta de trabalho 2:
| A | 10 | 5 | 6 | 4 |
| B | 5 | 4 | 2 | 1 |
| C | 5 | 10 | 5 | 6 |
Quando dou a chave (A) na pasta de trabalho-1, ela deve se referir aos valores na pasta de trabalho-2 e ser exibida como uma msgbox.
Caixa Msg:
| A |
| 10 |
| 5 |
| 6 |
| 4 |
O código que tenho até agora é:
Sub Search()
Msg="DETALHES DE CHAMADA" & vbCr
dim caminho como String
dim file como String
folha escura como String
path="C: \ Usuários \ naresh.g \ Desktop \ vlookup \"
file="workbook2.xlsx"
sheet="sheet2"
If (path & file & sheet) <> "" Then
'Estou recebendo o erro aqui como código de erro subscrito fora do intervalo 9
'em algum momento estou recebendo objeto exigir
For Each cell In Sheets("sheet2").Range("B2:B" & Sheets("sheet2").Cells(Rows.Count, "B").End(xlUp).Row)
If LCase(cell.Value) = LCase(Selection.Value) Or InStr(1, LCase(cell.Value), _
LCase(Selection.Value)) > 0 Then
Msg = Msg & vbCr & cell.Offset(0, 1) & " / " & vbCr & cell.Offset(0, 2) & " / " & cell.Value
End If
Next
i = MsgBox(Msg, vbInformation)
End Sub
Tags search path folder-redirection vba