Поиск слов в ячейке базой, из других ячеек

[RockHammer]

Пишется макрос для упрощения работы службе поддержки
Итак, задача:
необходимо написать макрос, работает он по кнопке (просто для понимания)
есть 3 листа в книге, в 3 листе 1 столбец для слов, которые нужно будет искать, 2 столбец для других слов, о которых расскажу позже.
во 2 листе на 2 столбце находится столбец, который нужно проверить полностью. Процесс проверки: в цикле нужно взять каждую ячейку и проверить, есть ли там ключевое слово из 3 листа 1 столбец, если есть - записать на том же 2 листе в столбец Х (последний, но точный номер будет известен позже) значение, которое стоит напротив ключевого слова в 3 листе. Т.е. на 3 листе стоит пара в соседних столбцах, аля "БЛ - Больничный лист, НДФЛ - налоги".
Я искал в интернете подходящее решение, но находил только решение через "формулы", а мне нужно решение для VBA.
Понимаю, что задача чуть сложнее, чем большинство в этом разделе, но я все же буду очень рад если кто-нибудь из Вас мне с ней поможет! Буду рад любой помощи!

[Казанский]

Начните помогать себе сами - приложите файл-пример.

PS Мой пост не означает, что я собираюсь писать макрос.

[RockHammer]

Сообщение от Казанский

Начните помогать себе сами - приложите файл-пример.

PS Мой пост не означает, что я собираюсь писать макрос.

Хорошо, хорошо.
Готового кода я не жду, я думал мне подскажут подходящие функции, может кто-то писал что-то подобное и знает алгоритм.

[Aleksandr H.]

Сообщение от RockHammer

Понимаю, что задача чуть сложнее, чем большинство в этом разделе,

Сообщение от RockHammer

Процесс проверки: в цикле нужно взять каждую ячейку и проверить, есть ли там ключевое слово из 3 листа 1 столбец,

FINDом в цикле погонять - сложность?

[RockHammer]

Сообщение от Aleksandr H.

FINDом в цикле погонять - сложность?

сложность в базе для поиска, брать каждый элемент из 3 листа и затем его искать там, во 2 листе?

[RockHammer]

Я накидал словесный алгоритм работы макроса, но из-за того, что не силет в VBA не знаю как его записать именно на VBA, вот он:

y - количество не пустых ячеек на листе 3 в 1 столбце
x - счетчик, текущая проверяемая ячейка в 3 столбце
z - количество не пустых ячеек на листе 2 в 2 столбце
a - счетчик текущей ячейки, в проверяемом листе

for x to y
for a to z
if (лист 2.столбец 2.ячейка (a)) = лист3.столбец1.ячейка(x) then
лист2.столбец7.ячейка(a) = лист3.столбец2.ячейка(x)
End If
Next a
next x

вроде бы так должно работать
Может кто-нибудь это перевести на язык VBA?

[IgorGO]

формула на листе 2, в колонке J

[Казанский]

RockHammer
Более простая ИМХО формула для 2-й строка

=ЕСЛИОШИБКА(ПРОСМОТР(2;1/ПОИСК(НСИ!$A$2:$A$9;B2);НСИ!$B$2:$B$9);"")

и соотв. макрос

Sub Ro()
  With Worksheets(2).UsedRange.Columns(1).Offset(, Worksheets(2).UsedRange.Columns.Count)
    .Formula = Replace(Replace( _
       "=IFERROR(LOOKUP(2,1/SEARCH('@'!$A$2:$A$#,B2),'@'!$B$2:$B$#),"""")" _
      , "#", Worksheets(3).Cells(Rows.Count, 1).End(xlUp).Row) _
      , "@", Worksheets(3).Name)
    .Value = .Value
  End With
End Sub

В описании задачи Вы ссылаетесь на номера листов, поэтому в макросе использованы номера, а не имена.

[RockHammer]

Сообщение от Казанский

RockHammer
Более простая ИМХО формула для 2-й строка

=ЕСЛИОШИБКА(ПРОСМОТР(2;1/ПОИСК(НСИ!$A$2:$A$9;B2);НСИ!$B$2:$B$9);"")

и соотв. макрос

Sub Ro()
  With Worksheets(2).UsedRange.Columns(1).Offset(, Worksheets(2).UsedRange.Columns.Count)
    .Formula = Replace(Replace( _
       "=IFERROR(LOOKUP(2,1/SEARCH('@'!$A$2:$A$#,B2),'@'!$B$2:$B$#),"""")" _
      , "#", Worksheets(3).Cells(Rows.Count, 1).End(xlUp).Row) _
      , "@", Worksheets(3).Name)
    .Value = .Value
  End With
End Sub

В описании задачи Вы ссылаетесь на номера листов, поэтому в макросе использованы номера, а не имена.

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

[RockHammer]

Сообщение от Казанский

RockHammer
Более простая ИМХО формула для 2-й строка

=ЕСЛИОШИБКА(ПРОСМОТР(2;1/ПОИСК(НСИ!$A$2:$A$9;B2);НСИ!$B$2:$B$9);"")

и соотв. макрос

Sub Ro()
  With Worksheets(2).UsedRange.Columns(1).Offset(, Worksheets(2).UsedRange.Columns.Count)
    .Formula = Replace(Replace( _
       "=IFERROR(LOOKUP(2,1/SEARCH('@'!$A$2:$A$#,B2),'@'!$B$2:$B$#),"""")" _
      , "#", Worksheets(3).Cells(Rows.Count, 1).End(xlUp).Row) _
      , "@", Worksheets(3).Name)
    .Value = .Value
  End With
End Sub

В описании задачи Вы ссылаетесь на номера листов, поэтому в макросе использованы номера, а не имена.

Только сейчас удалось протестировать макрос, все работает.
однако, почему-то съезжает вверх на одну ячейку, как исправить?