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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

поиск через форму с выделением активной ячейки (Макросы/Sub)

grh1

Дата: Воскресенье, 22.09.2019, 18:14 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 233

Репутация: 0 ±

Замечаний: 40% ±

2019

Добрый день, уважаемые знатоки макросов!
Есть файл, в котором осуществлен макросом поиск столбца В через форму и при нахождении нужного, макрос производит выделение всей строки.
Вопросы:
1. как подправить макрос, чтобы выделялась не вся строка, а просто становилась активной ЯЧЕЙКА с найденным словом или словосочетанием?!
2. как подправить макрос, чтобы форма закрывалась не ВРУЧНУЮ, а автоматом, после того, как встану курсором на найденном в поле поиска.

P.S. Макрос сделан Николаем (nilem), но он к сожалению не на связи.

Спасибо

К сообщению приложен файл: __.xls (48.0 Kb)

Vadym Gorokh

Сообщение отредактировал grh1 - Воскресенье, 22.09.2019, 18:16

Ответить

Kuzmich

Дата: Воскресенье, 22.09.2019, 19:07 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 714

Репутация: 157 ±

Замечаний: 0% ±

Excel 2003

[vba]

Код

Private Sub ListBox1_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
Dim txt$
txt = Me.ListBox1.Value
If Len(txt) < 4 Then txt = Format$(txt, "0000")
With Range("B:B").Find(txt, , xlValues, xlWhole)
    '.EntireRow.Select
    .Activate
    If IsArray(x) Then Erase x
    Unload Me
End With
End Sub

[/vba]

Ответить

grh1

Дата: Воскресенье, 22.09.2019, 19:16 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 233

Репутация: 0 ±

Замечаний: 40% ±

2019

Kuzmich,

Благодарю - всё как доктор прописал!!!

Закрываем тему.

Еще раз спасибо Кузьмич!

Vadym Gorokh

Ответить

поиск через форму с выделением активной ячейки (Макросы/Sub)

Страница 1 из 1
1