run-time error '1004'

run-time error '1004', ошибка ВПР

Пользователь

Сообщений: 5 Регистрация: 25.03.2015

25.03.2015 21:57:22

Код

    Cells(NextRow, 1) = TextOrderDate.Text
    Cells(NextRow, 2) = TextInternalOrderNumber.Text
    Cells(NextRow, 3) = TextInternalItemNumber.Text
    Cells(NextRow, 4) = Application.WorksheetFunction.VLookup(TextInternalItemNumber, Sheets("ItemNote").Range("R2C1:R5C11"), 3, False)
    Cells(NextRow, 5) = Application.WorksheetFunction.VLookup(TextInternalItemNumber, Sheets("ItemNote").Range("R2C1:R5C11"), 4, False)
    Cells(NextRow, 6) = TextCustomerOrderNumber.Text
    Cells(NextRow, 7) = TextDeliveryTimeCustomer.Text
    Cells(NextRow, 8)  = TextAmount.Text
    Cells(NextRow, 9) = TextProducingWeek.Text

Добрый вечер. Я начинаю тольки делать первые шаги в ВБА и вот первая проблема. часть кода UserForm вставляет данные с помощью кнопки active-x.
Нужна помощь

Изменено: zeus12 - 25.03.2015 22:27:44

Игорь

Пользователь

Сообщений: 3679 Регистрация: 23.12.2012

25.03.2015 22:31:15

а не проще ли вставить в ячейки формулы?

типа такого:

Код
Cells(NextRow, 4).FormulaLocal = "=ВПР(.......)"

либо добавьте первой строкой в макрос это:

Код
On Error Resume Next