Неудобный прайс...

[pasha_zv]

не нужно спорить
нужно не лениться

предлагаю простенькую доработку,
магарычи поставите потом

1. берем прайс в экселе ( на примере ГСМ-сервиса)

2. выделяем ячейки 1:10-6:10 (A10-E10)

3. данные-фильтр-автофильтр (появятся стрелочки фильтров)

4. вид-панели инструментов-элементы управления

5. включаем конструктор и кидаем на таблицу элемент "Поле ввода текста"

6. двойной шелчок на "Поле", откроется редактор визул-бейсика

7. вставляем процедуру

Private Sub TextBox1_Change()
att = "=*" + Trim$(TextBox1.Text) + "*"
Range("a11:a10000").Select
If Trim$(TextBox1.Text) <> "" Then
Selection.AutoFilter field:=1, Criteria1:=att, Operator:=xlAnd
Else: Selection.AutoFilter field:=1
End If
TextBox1.Activate
End Sub

8. собств. все. сохраняем, отключаем конструктор, снижаем уровень безопасности

получается следующее - в этом поле вводим, например, модель телефона
и прайс фильтруется по этой модели