Функция VLookup в UserForm'е

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Функция VLookup в UserForm'е (Макросы/Sub)

walkinghome

Дата: Воскресенье, 24.01.2021, 11:55 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 25

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Доброго времени суток!

При создании UserForm'a хотелось сделать так, чтобы один из TextBox'ов заполнялся в зависимости от значения другого TextBox'a используя функцию VLookup или ВПР.
Имея созданный UserForm и приписанные коды к TextBox'ам, второй к сожалению функцией VLookup не заполняется.

Что может быть причиной этого? Пример прилагаю.

Спасибо!

P.S. Просмотрел множество готовых примеров в сети, ни один к сожалению так и не подошел.

К сообщению приложен файл: 6380855.xlsm (19.9 Kb)

Выражение - вооружение

Сообщение отредактировал walkinghome - Воскресенье, 24.01.2021, 11:56

Ответить

RAN

Дата: Воскресенье, 24.01.2021, 12:24 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Причина в том, что искать нужно где потерял (TextBox1), и что потерял (число, а не текст.
[vba]

Код

Private Sub TextBox1_Change()
Dim sheet As Worksheet
On Error Resume Next
Set sheet = ActiveWorkbook.Sheets("Лист2")
TextBox2.Value = Application.WorksheetFunction.VLookup(Val(TextBox1.Value), sheet.Range("A2:B6"), 2, False)
End Sub

[/vba]