поиск по значению в TextBox

[maxvip]

Здравствуйте! сделал поиск по значению текстбокс, приведу ниже код, вопрос - можно ли сделать поиск по неполному значению? например - в ячейке записано "петров в. п." а хотелось бы находить по значению в текстбоксе "петров"

код

Dim nomer As Long
nomer = Worksheets("данные").Range("p1") 'переменная получает количество строк для обработки
For y = 2 To nomer + 1
If Worksheets("данные").Range("g" & y) = TextBoxpf.Value Then 'если значение в ячейке совпадает с текстбоксом
Worksheets("данные").Range("a" & y & ":n" & y).Copy Worksheets("формы").Cells(Rows.Coun t, 1).End(xlUp).Offset(1)
End If
Next y

[Skif-F]

Может быть так:

    Dim nomer As Long, Фамилия As String, y As Long
    nomer = Worksheets("данные").Range("p1") 
    Фамилия= Mid(TextBoxpf.Value, 1, InStr(1, TextBoxpf.Value, " ") - 1)
    For y = 2 To nomer + 1
        If Worksheets("данные").Range("g" & y) = Фамилия Then 
              Worksheets("данные").Range("a" & y & ":n" & y).Copy _
                        Worksheets("данные").Cells(Rows.Count, 1).End(xlUp).Offset(1)
        End If
    Next y

[maxvip]

нет не получается, вылазит ошибка - invalid procedure call or argument

[Skif-F]

В какой строке?

[maxvip]

Сообщение от Skif-F

Может быть так:

 
    Фамилия= Mid(TextBoxpf.Value, 1, InStr(1, TextBoxpf.Value, " ") - 1)

вот в этой

[Skif-F]

Проверьте связи в Tools/References. Должны быть следующие компоненты:

[maxvip]

вот как у меня

[Skif-F]

Попробуйте последние две строчки поменять местами.
Пардон, туплю. Вроде, всё соответствует.
Иногда (у меня это часто было в офисе 2003) почему-то Бейсик на понимал команд работы со строкой - Mid, Left, Right

[maxvip]

все равно ошибка

[Skif-F]

Пройдись по ссылке. Может, решишь вопрос.
http://forum.codenet.ru/q22541/