Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Несоответствие типов при поиске в диапазоне - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Несоответствие типов при поиске в диапазоне (Макросы/Sub)
Несоответствие типов при поиске в диапазоне
Roman7636 Дата: Вторник, 30.03.2021, 21:21 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Roman7636
Дата добавления - 30.03.2021 в 21:21
Kuzmich Дата: Вторник, 30.03.2021, 22:06 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 589
Репутация: 126 ±
Замечаний: 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]
а дальше сортируйте или вам сегодня не до этого. С Днем Рождения!


Сообщение отредактировал Kuzmich - Вторник, 30.03.2021, 22:26
 
Ответить
Сообщение[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]
а дальше сортируйте или вам сегодня не до этого. С Днем Рождения!

Автор - Kuzmich
Дата добавления - 30.03.2021 в 22:06
Roman7636 Дата: Вторник, 30.03.2021, 23:09 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Kuzmich, спасибо большое respect
То что надо.
 
Ответить
СообщениеKuzmich, спасибо большое respect
То что надо.

Автор - Roman7636
Дата добавления - 30.03.2021 в 23:09
Roman7636 Дата: Вторник, 30.03.2021, 23:11 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Kuzmich, спасибо за поздравление)
 
Ответить
СообщениеKuzmich, спасибо за поздравление)

Автор - Roman7636
Дата добавления - 30.03.2021 в 23:11
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Несоответствие типов при поиске в диапазоне (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!