Нужна срочная помощь по фильтру списка

[Андрей Зориков]

Уважаемые участники форума!
Прошу вашей помощи! Искал в Инете но точно того что мне надо не смогу найти (мож плохо искал...). В общем суть проблемы такая:

Есть прайс лист с товарами (запчасти). Их там 7500 наименований. Когда мне звонят и спрашивают определенную запчасть, листать весь список просто оочень долго и иногда бывает пролистываешь необходимое и на это уходит время. Нужно чтобы к примеру над столбцом с номенклатурой сделать ячейку в которой я набираю "Аморти" и он из списка ниже, оставляет лишь те строчки в которых есть данное сочетание то есть Амортизаторы к примеру.

Весь прайс четко разделен на артикул, номенклатуру и цена по столбцам, то есть поиск можно вполне ограничить столбцом "Номенклатура".
Убил кучу времени, но бестолку... Помогите пожалуйста!

[Шпец Докапыч]

Можно значение автофильтра вынести в ячейку:

Код Выделить Развернуть

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$E$1" Then Exit Sub
  [Прайс].AutoFilter 2, "=*" & Target & "*"
  Target.Select
End Sub


[Андрей Зориков]

Спасибо! То что нужно!

[Андрей Зориков]

Блин, народ, почему то не могу сделать так же у себя в прайсе(((( Если не сложно, можно написать подробнее как именно выносить _автофильтр_ в ячейку и где пишется этот код? У меня 2007-й эксель.

[kuklp]

Андрей Зориков, внимательно читаем Правила форума. Особое внимание п.2! Пока не закрыли тему.

[Андрей Зориков]

У меня файл оч большой, не выкладывается((

[Шпец Докапыч]

где пишется этот код?

В модуле листа.