LaCastet
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Делаю поиск по нескольким листам. Если не находится на первом листе, ищу во втором и т.д. Делаю это через перехват ошибок. Первая ошибка перехватывается нормально, а вторая не перехватывается и останавливается. Что я неправильно делаю?
Код:
TxtSrch = Trim(ActiveCell.Value)
Windows("Анализ продаж.xls").Activate
Sheets("Лист1").Select
Range("A4:B4").Select
Range(Selection, Selection.End(xlDown)).Select
'Range("A4:B48").Select
Range("A4").Activate
On Error GoTo NotList1
Selection.Find(What:=TxtSrch, After:=ActiveCell, LookIn:= _
xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
...
NotList1:
On Error GoTo 0
Sheets("Лист2").Select
Range("A4:B4").Select
Range(Selection, Selection.End(xlDown)).Select
'Range("A4:B39").Select
Range("A4").Activate
On Error GoTo NotList2
Selection.Find(What:=TxtSrch, After:=ActiveCell, LookIn:= _
xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
...
NotList2:
|
----------
Пиво — это еще одно доказательство того, что Господь любит нас и хочет, чтоб мы были счастливы! |
|
) 
