поиск

[Screame]

Нужно зделать так чтобы при вводе кода в ячейку выполнялся поиск по заданному критерию, а критерием является код или имя в этой ячейке, при поиске кода курсор должен переместится в тойже строке что и найденный код на определенное количество столбцов. Трудно что то разобрать из того что я написал, но в примере я думаю все станет понятно.

[motorway]

Попробуйте это:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False

If (Range("G2").Value <> "") Then

For Each cell In Range("B4:B8")
If (cell = Range("G2").Value) Then Cells(cell.Row, 13).Select
Next cell

End If
If (Range("H2").Value <> "") Then

For Each cell In Range("C4:C8")
If (cell = Range("H2").Value) Then Range("H2").Value = Range("H2").Value & ": найдено в ячейке " & "C" & cell.Row

Next cell



End If

Application.EnableEvents = True

End Sub

[Screame]

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

[motorway]

Так?

'ВТОРАЯ ЧАСТЬ КОДА

If (Range("H2").Value <> "") Then

For Each cell In Range("C4:C8")
If (cell = Range("H2").Value) Then
Range("H2").Value = Range("H2").Value & ": найдено в ячейке " & "C" & cell.Row
Rows(cell.Row).Select
End If
Next cell






End If

[Screame]

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

[motorway]

Последнее не очень понял

[Screame]

Должно примерно получится ка на картинке, нашел имя Светлана, выделил всю строку

[motorway]

а мой пост выше не подошел?

[Screame]

отлично спасибо!!!

[SAS888]

Можно проще:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next:
    If Target.Address = [G2].Address Then Rows([B4:C8].Find(Target).Row).Select
    If Target.Address = [H2].Address Then Rows([B4:C8].Find(Target).Row).Select
End Sub