Создать непростой поисковик для книги

[lsp]

Всё, желание исполнено... Спасибо.

[asas2010]

Спасибо doober, смотрел код так и не понял, что на что поменять для того чтобы поиск производить не от А6, а допустим с С5 по столбику С (здесь менял Dim x As Range: Set x = [А6:O5000]), и еще а можно поиск такой - же только по двум С и Д столбцам начиная с 6-ои строки. Спасибою

[doober]

Это совсем не там.

 
For i = 6 To Cells(Rows.Count, 1).End(xlUp).Row
    If InStr(1, UCase(Cells(i, 1)), UCase(TextBox1.Text)) > 0 Then
       ListBox1.AddItem i
       ListBox1.List(j, 1) = Cells(i, 1)
       j = j + 1
    End If
Next i

Зеленый-начальный номер строки.красный-номер столбца

[asas2010]

Спасибо doober, здорово, а по двум столбцам никак нельзя ?

[doober]

Файл с желаниями и результатом работы в студию

[asas2010]

Спасибо doober, если можно доработать тот же макрос, чтобы он выполнял дополнительно следующее: Если имеется в столбце С одинаковые название - в ListBox отображалось одно, при нажатии на него засвечиваются все строки в которых встречается это значение. Следующее пожелание - при включении фильтра, по любому столбцу, в TexBox указанное значение, искалось только в видимых (отфильтрованных) значениях. Спасибо.

[doober]

Я думаю правильно понял

[asas2010]

Вы doober очень правильно поняли, все работает на отлично, то что надо, спасибо Вам ОГРОМНОЕ. Спасибо.