VBA макрос

[MaDW]

Дано:

Макрос вида:

Sub find_fio()Fio = Sheets("Лист1").Range("C33")Sheets("Лист3").SelectSelection.AutoFilter Field:=1, Criteria1:=Fio, Operator:=xlAndRange("A:A").Cells(65536, 1).End(xlUp).SelectEnd Sub

Работает. НО! Только в том случае когда Значения совпадают полностью

Мне же надо чтобы искало по части (не суть важно начала или середина)

Когда записываю макрос в автоматическом режиме, то получаю вот такое:

Selection.AutoFilter Field:=1, Criteria1:="=*иванов*", Operator:=xlAnd

Что мне собственно не нужно т.к. искомые значения должны вводится пользователем.

Вопрос:

Как мне изменить мой макрос, чтобы он искал по части значения?

Изменено 10 октября, 2006 пользователем MaDW