1

У меня есть 2 разные рабочие тетради:

  • Учебное пособие-1
  • Учебное пособие-2

Я хочу msgbox в workbook-1, ссылаясь на значения в workbook-2.

Например:

В рабочей тетради-1:

| A |
| B |
| C |

В рабочей тетради-2:

| A | 10 | 5  | 6 | 4 |

| B | 5  | 4  | 2 | 1 |

| C | 5  | 10 | 5 | 6 |

Когда я даю ключ (A) в workbook-1, он должен ссылаться на значения в workbook-2 и отображаться как msgbox.

Коробка сообщения:

| A  |
| 10 |
| 5  |
| 6  |
| 4  |

Код, который у меня пока есть:

Sub Search()

Msg = "CALL DETAILS" & vbCr

тусклый путь в виде строки

дим файл в виде строки

тусклый лист в виде строки

путь = "C:\Users\naresh.g\Desktop\vlookup\"

file = "workbook2.xlsx"

лист = "лист2"

  If (path & file & sheet) <> "" Then

«Я получаю ошибку здесь, как индекс вне диапазона код ошибки 9

«Иногда я получаю объект требует

    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
|источник

0