подскажите решение -найти значение в диапазоне

[kievlyanin]

есть диапазон:

Range(Cells(5, "O"), Cells(437, "AT"))

в нем записаны разные значения цифровые, текстовые и текстово-числовые.

и есть проверяемая ячейка с текстово-числовым значением или просто числовым (это номенклатурный номер).

мне надо определить есть ли в диапазоне ячейка которая содержит значение проверяемой ячейки... только надо что-то побыстрее т.к. диапазон в перспективе будет расширяться а проверяемых ячеек будет тоже не одна а прилично.

[EducatedFool]

Один из возможных вариантов:

Sub test()
    Dim ra As Range: Set ra = Range(Cells(5, "O"), Cells(437, "AT")) ' диапазон
    Dim cell As Range: Set cell = [d2]    ' проверяемая ячейка
    Dim x As Boolean: x = Not ra.Find(cell) Is Nothing
    If x Then MsgBox "Есть в диапазоне такое значение" Else MsgBox "Такого значения нет"
End Sub

То же самое, только покороче:

Sub test2()
    MsgBox IIf(Range(Cells(5, "O"), Cells(437, "AT")).Find([d2]) Is Nothing, _
               "Такого значения нет", "Есть в диапазоне такое значение"), vbInformation
End Sub

Sub test3()
    MsgBox IIf([o5:at437].Find([d2]) Is Nothing, "Такого значения нет", "Есть в диапазоне такое значение"), 64
End Sub

Ещё короче:

Sub test4()
    MsgBox IIf([or(o5:at437=d2)], "Есть в диапазоне такое значение", "Такого значения нет"), 64
End Sub

[Иванов_ДМ]

Попробуйте функцию ВПР, или "Индекс+ПоискПозиции"

[kievlyanin]

2 EducatedFool

спасибо.

сосбенно интерсно это: IIf([or(o5:at437=d2)]