Поиск в значений экселе

[Arkada]

Hell всем,
Мне нужно решить такой трабл: открыть файл .xls найти на листе (ил в книге) значение, ежели таковое имеется work1 ежели не то work2 und close file.
У меня такая проблема в макросе метод cells.find не ищет на листе (в книге) значения, выдает ошибку object variable or Whit not set. Причем нулевые значения находит, подлец .
Мож кто знает помогите чайнику!!!

[GSerg]

Дык это.
Код свой приведи

[Arkada]

Вот такой код будь, он неладен
При пошаговой отработке на этой строке error. Ежели заремить эту строку, то макрос работает.
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
И еще хотел спросить как обработать результат поиска.

[Acclaim]

тогда в продолжение темы вот впоросец: в книге есть лист, который содержит DialogSheets там есть поле ввода значения, и три поля вывода 1 поле - есть такое значение!
2 - данные из столбца В листа 2соответствующие найденному значению
3 - данные из столбца В листа 3 соответствующие найденному значению
поле ввода значение текстовое, это ФИО


каким должен быть код?

т.е нужно чтиобы при открытии файла xls автоматически открывалась эта форма dialogsheets и при вводе значения (в поле ввода) происходил поиск такового во всех листах открытой книги, при положительном результате - выводились значения соответствующие введенному (или принадлежащие ему) в поля вывода

[Димитрий]

Arkada
Если не найдено так и будет, по этому пример из Help:

Код: Выделить всё

With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

[Люbитель]

При пошаговой отработке на этой строке error. Ежели заремить эту строку, то макрос работает.
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
И еще хотел спросить как обработать результат поиска.

Попробуй обращаться не через Cell, а полностью (начиная от Application скажем, я так у себя когда-то делал). В результате поиска мы получаем объект класса Range. Затем можем использовать его свойства и методы (
Dim C As Range
C = Application.Workbooks("Книга1").Worksheets("Лист1").Cells.Find(...)
C.Select
Dim s as long
s = c.row
и так далее)