Msgbox VBA na pasta de trabalho fechada


1

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
Ao utilizar nosso site, você reconhece que leu e compreendeu nossa Política de Cookies e nossa Política de Privacidade.
Licensed under cc by-sa 3.0 with attribution required.