UserForm ComboBox

У меня есть UserForm, который имеет один ComboBox и TextBox. TextBox должен делать vlookup для значения ComboBox, но ТОЛЬКО, если это значение существует в списке, если нет, я не хочу, чтобы в TextBox ничего не появлялось, чтобы пользователь мог ввести новую информацию.

Вот как далеко я получил:

Private Sub TextBox1_Enter() If cbocolor.Value <> "" Then Dim evalStr As String Dim check As Variant evalStr = WorksheetFunction.VLookup(cbocolor.Value, worksheets("CONTACTS").Range("allcontacts"), 2, False) check = Evaluate(evalStr) If VarType(check) = vbError Then TextBox1.Value = "Enter new info" Else var1 = WorksheetFunction.VLookup(cbocolor.Value, Worksheets("CONTACTS").Range("allcontacts"), 2, False) TextBox1.Value = var1 End If 

Вы должны иметь возможность сделать все это с одной строкой:

 Private Sub TextBox1_Enter() If cbocolor.value <> "" Then TextBox1.value = WorksheetFunction.IfError(Application.VLookup(cbocolor.value, _ Worksheets("CONTACTS").Range("allcontacts"), 2, False), "Enter New Info") End If End Sub 
  • Кнопка VBA Options, как подключиться к модулю?
  • Использование операторов IF & AND с флажками в пользовательской форме
  • Загрузка различных пользовательских форм последовательно
  • VBA - события прерывания в динамически создаваемом текстовом поле
  • Сохранение рабочих листов с формами в формате pdf
  • Скрыть строки на основе пользовательской формы
  • Excel VBA Userform, обновить и удалить базу данных,
  • Экзамен Excel 2016 VBA активируется, но затем деактивируется
  • Используя Excel Userform, вырезать строку с «x», удалить строку и вставить в другой лист
  • Excel VBA Userform
  • Динамически созданный макрос VBA. Обновления динамической структуры.
  • Interesting Posts

    Как найти максимальное значение на основе другого столбца?

    excel – получить URL из связанного текста

    Могу ли я сделать программу извлечения данных (база данных оракула для Excel) более эффективной?

    Коэффициент корреляции рангов Спирмена (Excel)

    В excel, как изменить имя таблицы от нижнего регистра до верхнего регистра

    Как вставить изображение в Excel из C #, которое можно скопировать

    Выпадающий список VBA с возможностью добавления новых значений

    Ошибка времени выполнения 91 – Объектная переменная или С заблокированной переменной блока

    Как я могу опустить пустую ячейку?

    Как вставить значение формата TIMESTAMP из excel в базу данных

    Excel VBA Macro – поиск имен столбцов, а затем копирование в определенные столбцы на другом листе шаблона в той же книге Excel 2010

    Библиотека объектов Excel – приложение, скомпилированное с использованием 16.0, и попробуйте запустить с использованием 12.0 на другом компьютере

    Почему я получаю ошибку «Ожидаемый: конец заявления»?

    Как восстановить данные запроса для использования в ListView с использованием Access и VBA

    Как я могу объединить формулу INDEX MATCH с одного листа, основанного на другом?

    Давайте будем гением компьютера.