выбор активной ячейки при выделении в listbox-e

[serafim09]

Народ помогите в форме с кодом, чтобы при выделении значения в listbox-e сразу выделялась ячейка с соответствующим названием на листе.

[serafim09]

вот файл для excel 2003

[Dophin]

Private Sub ListBox1_Click()
Dim s
s = Range("a2:a20").Find(what:=ListBox1.Value, LookIn:=xlValues, Lookat:=xlWhole).Row
Cells(s, 1).Activate
End Sub

[serafim09]

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

Private Sub ListBox1_Click()
Dim s
s = Range("a2:a20").Find(what:=ListBox1.Value, LookIn:=xlValues, Lookat:=xlWhole).Row
Cells(s, 1).Activate
End Sub

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

[Dophin]

ну предложите свой вариант) я ж не знаю что у Вас за данные

судя по формированию списка вот это может подойти

Private Sub ListBox1_Click()
Dim s
s = ListBox1.ListIndex + 1
Cells(s, 1).Activate
End Sub

[serafim09]

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

ну предложите свой вариант) я ж не знаю что у Вас за данные

судя по формированию списка вот это может подойти

Private Sub ListBox1_Click()
Dim s
s = ListBox1.ListIndex + 1
Cells(s, 1).Activate
End Sub

Спасибо! ) то, что нужно ) и "поиск" пригодится)