Несоответствие типов при поиске в диапазоне

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

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

Несоответствие типов при поиске в диапазоне (Макросы/Sub)

Roman7636

Дата: Вторник, 30.03.2021, 21:21 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 5

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

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

Добрый вечер. Пробовал разными способами решить свою проблему, но все равно выдает ошибку 13 (несоответствие типов) на 12 строчке кода.
Идея в том, что при нажатии кнопки "Добавить" в форме сначала проверяется наличие специальности в списке. Если уже есть, то появляется сообщение и выходит из формы. Если нет, то добавляет новую специальность и сортирует таблицу по алфавиту.

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

Ответить

Kuzmich

Дата: Вторник, 30.03.2021, 22:06 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

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

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

Excel 2003

[vba]

Код

Private Sub CB_Click()
Dim lLastRow As Long, myRange As Range, TextToSearch As String
  TextToSearch = Trim(TB.Value)
  Set myRange = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Find(TextToSearch, , xlValues, xlWhole)
  lLastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
If Not myRange Is Nothing Then
   MsgBox TextToSearch & " уже есть в справочнике", vbCritical, "Ошибка"
Exit Sub
Else
Cells(lLastRow, 1) = TextToSearch

[/vba]
а дальше сортируйте или вам сегодня не до этого. С Днем Рождения!