Поиск по уникальному коду нужной строки в длинном списке,

Пользователь

Сообщений: 153 Регистрация: 02.01.2013

12.01.2020 11:34:08

Уважаемые знатоки, подскажите, пожалуйста, как проще организовать быстрый поиск по уникальному коду нужной строки в длинном списке, откорректировать её и внести недостающие данные. я пробовала сделать это в "форме" но у меня получается только листать кнопками "вперед - назад" либо двигать лифт, а в длинном списке найти нужную строчку трудно, а фильтром пользоваться не хотелось бы..

Прикрепленные файлы

Внесение и корректировка данных в длинный список.xlsx (14.27 КБ)

Изменено: vikttur - 14.10.2021 01:26:17

БМВ

Модератор

Сообщений: 23279 Регистрация: 28.12.2016

Excel 2013, 2016

12.01.2020 12:03:50

Раз была форма то код не смущает.

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D1")) Is Nothing Then
    Application.FindFormat.Clear
    Set cell = Range(Range("d4"), Range("d4").End(xlDown)).Find(what:=Range("D1"), lookat:=xlWhole)
    If Not cell Is Nothing Then cell.Offset(, 7).Activate
End If
End Sub

Прикрепленные файлы

Copy of пример1403.xlsm (19.32 КБ)

По вопросам из тем форума, личку не читаю.

Алиса82 Пользователь Сообщений: 153 Регистрация: 02.01.2013	#3 12.01.2020 13:10:18 БМВ, Вы как всегда, пришли на помощь, спасибо!