VLookup получает информацию из разных рабочих книг

Question

Когда я перебираю свой код, я не получаю никакой ошибки, однако код ничего не возвращает.Я не знаю, что делать, чтобы решить проблему.

Значение H5 = 161-0123.первые три числа обозначают тип детали (а также лист, который я буду просматривать), а последние четыре - это номер детали внутри конкретного листа

Dim LookUp As String
Dim Typ As String

Typ = Left(Range("H5"), 3)
LookUp = Right(Range("H5"), 4)


Application.ScreenUpdating = False
Set wbk1 = Workbooks.Open("R:\Item Master List\Item Master Log.xlsx")

Dim sheet1 As Worksheet
Set sheet1 = wbk1.Worksheets("161-Polyimide")

Worksheets("Sheet1").Range("I5").Value = Application.VLookup(LookUp, sheet1.Range("A:J"), 8, 0)

161-0123 имеет номер компонента, связанный с нимэто то, что ячейка I5 должна извлечь (195-1234)

Вход в H5 = 161-0123

Выход в I5 = 195-1234

Answer 1

Ладно, джентльмены, пытаясь разобраться, я выяснил свою проблему, и она состояла из двух частей.

Первое: (это предположение, потому что я сделал это на случай, если это сработает)

Ячейка H5 была отформатирована как Общая, поэтому, когда к номеру добавлялось «-», вся ячейка считалась строкой, а числа в другом файле классифицировались как числа.

Второй:

Я должен был указать ThisWorkbook.Worksheets("Sheet1").Range("I5").Value = (Спасибо @ cybernetic.nomad)

Answer 2

Хотя точная проблема может быть известна, если я получу полный код, но с информацией, которую вы предоставили, по моему опыту, я заметил, что Excel ведет себя недетерминированным образом в основном при 2 обстоятельствах:

1. Возможно, Excel перешел в режим ручного расчета листа либо потому, что вы сделали это намеренно, либо на листе много формул.Вы можете проверить это, если у вас есть опция Рассчитать в левом нижнем углу окна Excel.

Возможно, включена опция записи макроса.