nick7inc
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vasiliy74
Цитата: Cells.Find(What:="Наименование цен", After:=ActiveCell, LookIn _
:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate
|
Сложно понять, что код делает. У тебя поиск начинается с ActiveCell, которая может быть где угодно. Это во-первых. Во-вторых, зачем тебе активировать результат поиска, когда ты можешь его получить в объект типа Range?
Код:
Dim search_result as range
Dim Start_search as range
Dim some_sheet as worksheet
set some_sheet=worksheets("Имя")
set Start_search=some_sheet.cells(1,"A")
set search_result=Cells.Find(What:="Наименование цен", After:=Start_search, LookIn _
:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False)
set search_result= Cells.FindNext(After:=search_result)
|
|
Всего записей: 1138 | Зарегистр. 04-05-2007 | Отправлено: 15:34 17-07-2007 | Исправлено: nick7inc, 15:37 17-07-2007 |
|
я нахожу его по признаку столбца так как на листе несколько таблиц 
