Msgbox VBA na pasta de trabalho fechada

1

Eu tenho duas pastas de trabalho diferentes:

  • workbook-1
  • workbook-2

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 
    
por Naresh G 29.09.2018 / 12:34

0 respostas