Как выйти из поиска по достижению конца листа?

[Казанский]

Если не менять ваш код, можно сделать так:

firstAddress = "" 'очистить переменную перед циклом
10
Cells.Find(What:=Sheets("управление ").Range("B5").Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

If firstAddress = ActiveCell.Address Then
    GoTo 20 'выход из цикла
ElseIf firstAddress = "" Then
    firstAddress = ActiveCell.Address 'если строка была пустой, значит это первая найденная ячейка
End If

Rows(ActiveCell.Row).Select
Selection.Copy
' тут было то , что я делаю с найденым - не привожу чтобы не засорять
GoTo 10
20 'продолжение программы

[IgorGO]

одна ремарочка:
а данном примере (от Microsoft) происходит поиск двоек и замена их на пятерки, так вот, после замены последней двойки макрос вывалится по ошибке 91 в строке

Loop While Not c Is Nothing And c.Address <> firstAddress

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

      Do
        c.Value = 5
        Set c = .FindNext(c)
        If c Is Nothing Then Exit Do
      Loop While c.Address <> firstAddress

[ИгорьБ]

О! Насыпалось ответиков.

Делаю примерно так как Казанский написал, немножко по своему - но принцип тот же. Этот способ в чистом виде меня не спасает в случае, если на листе не найдено искомое и надо переходить к следующему листу. Но в целом принцип похож очень... я о нём упоминал раньше.

Сообщение от ИгорьБ

Можно ещё сохранять номер последней найденной строки и проверять его - не меньше ли он, чем предпоследний... но это даже по моим упрощённым меркам выглядит совсем уж криво.

Врочем, кривизна меня не смущает ничуть. Просто надеялся, что есть возможность в формате команды Find ограничить диапазон (Ведь есть же там способ указать с какого места искать (after:=ActiveCell,) - думал есть способ и ограничить... но, видимо, увы нету)

Я вношу в начале листа искомое в ячейку. Поиск начинаю ниже.
Если на листе нет искомого или если поиск вернулся наверх - рисую в результатах мессадж о том, что на таком-то листе более ничего не найдено и перехожу к следующему.

PS в любом случае я признателен всем за уделённое внимание. Ваша помощь уже позволила мне перестать биться головой в эту стену. Я перестал искать "простукиванием" дверь и потихоньку карабкаюсь на неё чтобы просто перелезть. Не так удобно, но за-то голова потихоньку остывает от "простукивания".

[ИгорьБ]

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

одна ремарочка:
а данном примере (от Microsoft) происходит поиск двоек и замена их на пятерки, так вот, после замены последней двойки макрос вывалится по ошибке 91 в строке

Loop While Not c Is Nothing And c.Address <> firstAddress

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

      Do
        c.Value = 5
        Set c = .FindNext(c)
        If c Is Nothing Then Exit Do
      Loop While c.Address <> firstAddress

да да да - он по ней же вываливается если ничего не нашёл
If c Is Nothing Then Exit Do
это я пожалуй возьму на заметку - полезная фича

[kuklp]

Сообщение от ИгорьБ

надеялся, что есть возможность в формате команды Find ограничить диапазон (Ведь есть же там способ указать с какого места искать (after:=ActiveCell,) - думал есть способ и ограничить... но, видимо, увы нету)

С чего Вы взяли? Как раз этот метод find для диапазона:
[a5:a20].find будет искать только в [a5:a20].

[IgorGO]

только представте а5:а20 не линией, а такой полоской (кольцом), где за а20 снова идет а5, потом а6...
если Find что-то нашел в 20-й строке, и запустить след. поиск, то начнется он после а20 (т.е. с а5)

[ИгорьБ]

Ребята, ещё раз всем спасибо.
Сделал так, как написал тут:

Сообщение от ИгорьБ

Я вношу в начале листа искомое в ячейку. Поиск начинаю ниже.
Если на листе нет искомого или если поиск вернулся наверх - рисую в результатах мессадж о том, что на таком-то листе более ничего не найдено и перехожу к следующему.

Так даже проще, вроде как, вышло - нет необходимости определять каждый раз размер блока данных для текущего листа.
Всё работает. Просто темку не закрыл. - Нет в опциях темы привычного "Закрыть".
Если кто модерит - закрывайте.