Eu tenho 2 pastas de trabalho diferentes:
- pasta de trabalho-1
- pasta de trabalho-2
Eu quero msgbox na pasta de trabalho-1 referindo-se a valores na pasta de trabalho-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 eu forneço a chave (A) na pasta de trabalho-1, ela deve se referir aos valores da pasta de trabalho-2 e mostrar como uma caixa de mensagens.
Caixa de mensagem:
| A |
| 10 |
| 5 |
| 6 |
| 4 |
O código que tenho até agora é:
Sub Search()
Msg = "DETALHES DA CHAMADA" & vbCr
caminho escuro como String
arquivo dim como String
folha fraca como String
path = "C: \ Usuários \ naresh.g \ Desktop \ vlookup \"
file = "workbook2.xlsx"
sheet = "sheet2"
If (path & file & sheet) <> "" Then
'Estou recebendo erro aqui como código de erro fora do intervalo subscrito 9
algum dia eu 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
11
Qual é exatamente o seu problema / pergunta?
—
Twisty Impersonator
Oi, eu quero escolher os valores correspondentes da pasta de trabalho fechada.
—
Naresh G
O código acima mencionado está funcionando na mesma pasta de trabalho, mas quando dou orientação e caminho, ele mostra erro.
—
Naresh G
Por favor edite sua pergunta para incluir o erro.
—
Twisty Impersonator
Oi! Pergunta editada
—
Naresh G