Здраствуйте. Нашел на етом форуме код для поиска значений в диапазоне. Так вот, если в диаппазоне I2:I25 есть значение (не формула) - работает, если стоит формула - Run-time error '13'. Как вставить подходящий тип даных.
| Код |
|---|
Sub Test2()
Dim Rng As Range, rCell As Range
Set Rng = Range("I2:I25")
For Each rCell In Rng
If IsEmpty(rCell) Or rCell = 0 Then
MsgBox "найдено" & rCell.Address(0, 0), 64, "поиск"
Exit For
End If
Next
End Sub |
