Замена неполных наименований полными

[energoadres]

Добрый день
Помогите с макросом
на листе 1 есть неполные наименования (желтым) и полные
на листе ТМЦ список полных наименований

Цель: Поставив курсор в любую ячейку листа 1 и нажав кнопку "ОБРАБОТАТЬ", макрос заменяет неполные наименования полными, если нет вариантов - ничего не меняется, если несколько вариантов (выделено синим) предлагает выбрать нужный вариант.
Заранее спасибо

[SAS888]

Здравствуйте.
Пример во вложении.
Если выбрать пустую ячейку, или выделить несколько ячеек, то при нажатии кнопки "Обработать" ничего не произойдет.
Если вариант замены единственный, то при нажатии кнопки замена будет произведена сразу.
Если вариантов несколько, то при нажатии кнопки будет выведено окно с предложениями вариантов замены.
Проверяйте. Все ли так, как требовалось?

[energoadres]

Добрый день. Спасибо БОЛЬШОЕ.
Только почему-то не обрабатывает такой вариант:
неполное наименование полное
G-200-100 S2.0 L3000 GYROUX G-200-100 S2.0 L3000, короб замковый

т.е. есть еще символы ДО начала неполного наименования

Еще пожелания, если это решаемо:
1. Обработку сделать по 1 клику (у меня при тестировании надо нажимать 2 раза кнопку обработать).

[SAS888]

Прикрепите пример файла со всеми возможными неполными наименованиями на листе "Лист1" и укажите, как должно быть после замены.

[energoadres]

SAS888,

Выделил зеленым типовые неполные наименования, где добавляются символы спереди

[SAS888]

Проверяйте.

[energoadres]

SAS888, Все отлично работает,
Спасибо ОГРОМНОЕ

[Serge 007]

ТС забыл упомянуть, что разместил тему не только на этом форуме
Кросс: http://www.excelworld.ru/forum/10-52234-1