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