Поиск на листе Excel (VBA)

[adlansuliman]

Помогите написать код для формы ("Численный список сотрудников предприятия" --> "Поиск сотрудников". Это путь к нужной форме), в который вводишь фамилию и он находит ее на листе Excel и выделяет.

[IgorGO]

над списком выбираете сотрудника - в списке он посвечивается

[adlansuliman]

Сообщение от IgorGO

над списком выбираете сотрудника - в списке он посвечивается

Не совсем то. Мне нужен программный код на VBA.

[NewStudent07]

1)При клике на кнопку "Поиск сотрудников" открываеться форма UserForm1
Для этого в frm2 подправляем код на следующий

Private Sub cmb2_Click()
Unload Me
UserForm1.Show
End Sub

2) В UserForm1 помещаем следующие елементы управления: Label (по желанию), TextBox, Command Button

3) При клике на Command Button происходит поиск нужной фамилии. Для этого вводим следующий код в UserForm1

Private Sub CommandButton1_Click()
Dim ra As Range
If TextBox1.Value = "" Then
MsgBox "Введите фамилию сотрудника"
TextBox1.SetFocus
Else
For Each ra In ActiveSheet.UsedRange.Rows
If UCase(Left(ra.Columns("A:A"), Len(TextBox1.Value))) = UCase(TextBox1.Value) Then
ra.Columns("A:A").Activate
End If
Next ra
End If
End Sub

[NewStudent07]

.................

[NewStudent07]

Здесь можете посмотреть как этот макрос работает