VBA поиск на листе

[soulthiefer]

подскажите плз функцию посика наличия значения в столбце ниже активной ячейки

пример .... :
я нахожусь на ячейке А20 , нужно просмотреть диапазон ячеек по столбцу А начиная с 21 по 65000 на наличие значения ячейки А20 , если есть то тру если нет то фальш !
желательно в одну функцию так как нужно вставить в условие if ( .....) then

[VictorM]

Может так?

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

Private Sub test()
    zn = [A20].Value
    For Each cell In ActiveSheet.[A21:A65000]
        If cell.Value = zn Then cell.Interior.ColorIndex = 3
    Next
End Sub

В примере ячейки со значением равным значению ячейки А20 будут залиты красным цветом.

[soulthiefer]

а как вы узнали что мне нужно выделять красным цветом?))))))))
спасибо !
но интересует как искать в диапазоне не именно от ячейки А20 а в диапазоне ниже активной ячейки до А65000?

[EducatedFool]

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

[color=darkblue]Sub[/color] test()
    [color=darkblue]Dim[/color] ra [color=darkblue]As[/color] Range, cell [color=darkblue]As[/color] Range
    Application.ScreenUpdating = False: [color=darkblue]On[/color] [color=darkblue]Error[/color] [color=darkblue]Resume[/color] [color=darkblue]Next[/color]
    [color=darkblue]Set[/color] ra = Intersect(ActiveSheet.UsedRange, _
                       Range(ActiveCell.Row + 1 & ":" & Rows.Count), [a:a])
    [color=darkblue]For[/color] [color=darkblue]Each[/color] cell [color=darkblue]In[/color] ra.Cells
        [color=darkblue]If[/color] cell = ActiveCell [color=darkblue]Then[/color] cell.Interior.ColorIndex = 3
    [color=darkblue]Next[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

[soulthiefer]

огромнейшее спасибо за помощь!!!!!