поиск в книге и вывод результатов на отдельном листе

[Hugo121]

Не хотелось лишний раз с работы файлы рассылать... Но раз просите, вот.

[Hugo121]

Забыл мелочь - отключить обновление экрана.
Так будет быстрее, замените код на этот (или добавьте две строки):

Option Explicit

Sub tt()
Dim sh As Worksheet
Dim cc As Range
Dim i&

Application.ScreenUpdating = False

For Each sh In Worksheets
If sh.CodeName <> "Sheet5" Then
For Each cc In sh.UsedRange.Columns(5).Cells
If cc.Value Like "надо*" Then
i = i + 1
cc.EntireRow.Copy Sheet5.Cells(i, 1)
End If
Next
End If
Next

Application.ScreenUpdating = True

End Sub

[And59]

Hugo121 Спасибо что уделяешь мне свое время!
Попробовал поиграться с примером и обнаружил что после редактирования любого листа (в основном удаления слова 'надо' в ячейке Е) и запуска макроса, из результата поиска строка удаляется но на её месте пояляется последняя найденная, получаются повторения одной и той же строки...
Это как то можно исправить?

И еще забыл сразу спросить, в результатох поиска можно как то разделить строчки названием листа на котором нашлось слово?

[Hugo121]

В этом коде не предусмотрена очистка передыдущих значений.
Об этом не было ни слова

[Hugo121]

Добавьте первой строкой кода (после объявления переменных и отключения обновления экрана)

Sheet5.Cells.Clear

[And59]

Ну ты красавчег =) как орех этот visual basic колешь!!!

И еще забыл сразу спросить, в результатах поиска можно как то разделить строчки названием листа на котором нашлось слово?

[Hugo121]

Можно не сильно утруждаясь так, но будут записаны названия всех листов, даже если там ничего не найдено:

Option Explicit

Sub tt()
Dim sh As Worksheet
Dim cc As Range
Dim i&

Application.ScreenUpdating = False
Sheet5.Cells.Clear

For Each sh In Worksheets
If sh.CodeName <> "Sheet5" Then
i = i + 1
Sheet5.Cells(i, 1).Value = sh.Name
For Each cc In sh.UsedRange.Columns(5).Cells
If cc.Value Like "надо*" Then
i = i + 1
cc.EntireRow.Copy Sheet5.Cells(i, 1)
End If
Next
End If
Next

Application.ScreenUpdating = True

End Sub

Если названия таких листов писать не нужно, то нужно или переделывать весь код, или потом проходить циклом по этому сводному листу и лишние строки удалять.

[And59]

Hugo121 Огромное Вам Спасибо!
Выручили, даже непредставляете как =)

Адаптировал все к своему полному документу, и кнопочку так же прикрутил =) радости нет предела!!!

[Hugo121]

Если кнопка мешает, то можно обойтись без неё - запускать код по Alt+F8, или задать горячие клавиши.
Можно на лист сперва кодом вывести шапку - или прямо в коде всё прописать, или скопировать диапазон с другого любого листа, или уже предварительно сделать нужную шапку, но тогда очистку нужно делать иначе, не затирая шапку.
Ещё вариант - данные выводить на новый свежесозданный лист или даже в новую книгу. В таком варианте вообще могут участвовать три книги - в одной код, в другой анализируемые данные, в третью новосозданную выводится результат. Эту книгу можно просмотреть, скопипастить куда нужно выбранную информацию и закрыть без сохранения, или сохранить под удобным именем.
В общем, есть различные пути, как облегчить себе работу.