Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос для поиска точного совпадения из ячейки в заданом диапазоне
 
#1
17.11.2020 14:05:58
Добрый день, уважаемые профи)

Подскажете, пожалуйста, макрос для поиска точного совпадения из ячейки - в заданом диапазоне, если такого совпадения не найдено, остановить макрос из выводом окна: "Данного номера накладной не найдено".

Например:
Нужно найти точное совпадения, значения которое находиться в ячейке "E1" искать нужно в диапазоне "B6:B10404". Если данного совпадения не найдено, вывести окно с текстом "Данного номера накладной не найдено" и остановить макрос, если совпадение найдено - продолжить макрос.  
 
 
 
#2
17.11.2020 14:19:52
Добрый день!
Приложите файл с примером в формате Excel. Согласно п.2.3. правил форума
Скрытый текст
 
 
 
#3
17.11.2020 14:25:07
Код
       Set FoundCell = Range("B6:B10404").Find(Cells(1, "E"), , xlValues, xlWhole)
 
 
 
#4
17.11.2020 14:27:34
Код
if [B6:B10404].Find([E1]) is Nothing then Msgbox "Данного номера накладной не найдено": Exit Sub
Изменено: Ігор Гончаренко - 17.11.2020 15:03:27 (а так?)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#5
17.11.2020 14:54:27
Ігор Гончаренко, Все работает, только в случе когда не находит нужное значение, макрос продолжает выполняться..(
Изменено: Vladyslav Ivanov - 17.11.2020 15:01:48
 
 
 
#6
17.11.2020 15:02:46
Цитата
Vladyslav Ivanov: макрос продолжает выполняться
так выйдите из него
if [B6:B10404].Find([E1]) is Nothing then Msgbox "Данного номера накладной не найдено": Exit Sub
Изменено: Jack Famous - 17.11.2020 15:02:55
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#7
17.11.2020 15:13:11
Спасибо! все работает!
 
 
 
Страницы: 1
Наверх