Установить диапазон для ячейки с помощью метода .find

Question

Я хочу назначить объект диапазона «указатель» ячейке, которая должна быть определена с помощью метода .find, плюс смещение найденного адреса на 3 строки с помощью метода .offset.Кажется, я что-то не так делаю со следующим кодом:

With Sheets("Database")

    Dim pointer As Range
    Set pointer = .Cells.Find("string data").Offset(3)
    ...

End With

Я получаю сообщение об ошибке 91: переменная объекта или переменная блока не установлена.

Заранее спасибо за помощь!

Answer 1

Вы получаете эту ошибку, потому что .Cells.Find("string data") возвращает Nothing.
Чтобы избежать этой ошибки, вы можете ввести проверку , например:

Dim pointer As Range

With Sheets("Database")
    If Not .Cells.Find("string data") Is Nothing Then
        Set pointer = .Cells.Find("string data").Offset(3)
    End If
End With
'...