поиск с выделением строки

[medved_program]

Доброго времени суток, необходимо сформировать поиск данных, где вводится запрос, к примеру фамилия, и программа выделяет строку, где находится эта фамилия.

[alex77755]

Ctrl+F чем не устраиваеет?

[27102014]

или макрос

 Sub Name()

Name = InputBox("Укажите фамилию")

Cells.Find(Name).Select
ActiveCell.EntireRow.Select


End Sub

[slan]

зачем два селекта?

[27102014]

А какая разница? лучше бы внимание на имя обратили

Sub Имя()

Имя = InputBox("Укажите фамилию")

Cells.Find(Имя).EntireRow.Select


End Sub

[IgorGO]

а что, то же правильно:
у пользователя требуем указать фамилию
в носим ее в переменную имя.

а настоящая беда в том, что макрос из двух строк упадет по ошибке в строке 2, если пользователь введет фамилию, которой нет на активном листе.

а если пользователь прочитает сообщение об ошибке и опреометчиво нажмет Debug - Вы не представляете какие истерики бывают с пользователями при виде VBE.

[27102014]

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

В вопросе не стояло задания на обработчик ошибок, но если народ просит

Sub Poisk()

P:
Имя = InputBox("Укажите фамилию")

On Error GoTo A

Cells.Find(Имя).EntireRow.Select
GoTo M

A:
Select Case MsgBox("Фамилия не найдена, повторить поиск?", vbYesNo)
    Case vbYes
      GoTo P
     Case vbNo 'или Case Else
      Exit Sub
    End Select


M:
i = ActiveCell.Row
MsgBox Имя & " найден в " & i & " строке"

End Sub

[IgorGO]

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

Sub Имя()
  dim rg as range, Имя as string
  Имя = InputBox("Укажите фамилию")
  set rg = Cells.Find(Имя)
  if rg is nothing then
    msgbox "а нет такой фамилии!"
  else
    rg.EntireRow.select
  end if
End Sub