условие если значение = empty

[zetrix]

Slim
есть такой блок:

значение = d.row
if значение <> "" then ...

есть 2 варианта: либо переменная "значение" равна какому-то числу, либо она пустая (при выполнение пишет
empty когда наводишь на неё). Но как проверить это блоком if не знаю. При условие что d empty пишет
"Object variable or With block variable not set".
Как я понимаю потомучто переменной d я не присваиваю никакого значения. Но в этом случае как использовать if?

pashulka
Свойство Row возвращает номер самой первой строки об'екта Range, если об'ектная переменная d не ссылается на этот об'ект, то возникает ошибка 91 ("Объектная переменная или переменная With не задана")

Поэтому, организовать проверку - желательно так :


Dim d As Range 'Object

Set d = Range("A2:C100").Find(What:="Slim", LookIn:=xlValues, LookAt:=xlWhole)
'поиск использован исключительно в качестве примера

If d Is Nothing Then
MsgBox "Номера строки не может быть в принципе", vbExclamation, ""
Else
Значение = d.Row
End If

'Или

If Not d Is Nothing Then
Значение = d.Row
Else
MsgBox "Номера строки не может быть в принципе", vbExclamation, ""
End If