Поиск слов в записной книжке

[gru]

Здравствуйте уважаемые.

Проблема такая. Есть Excel книга – записная книжка, каждый лист - буква. На листе фамилии, адреса, телефоны.
На отдельном листе текстовое поле, в которое вводится искомое значение.
Как организовать поиск, например, по фамилии?

[Pavel55]

Точно не знаю, но посмотрите вложение

[gru]

Спасибо, очень похоже.
Только ищет по полному совпадению.

А по части слова?

[Pavel55]

Вот посмотрите ))

[Aent]

Эту телефонную книжку я себе делал около 10 лет назад.
Добавление записей и поиск через кнопку "молния"
Сейчас я бы уже конечно не так всё написал ....
Но возможно какие то идеи будут вам полезны.

[gru]

А почему ничего нельзя сделать с окном и кнопкой?

[gru]

Господа, огромное спасибо , вроде разобрался во всем.

Ваш форум - очень редкое, просто исключительное явление в инете. Помощь мне оказали буквально в течении часа.

Извините за оффтоп, не смог удержаться от выражения благодарности.

[gru]

Здравствуйте еще раз!

Возник ещё один вопрос: Как сделать так, чтобы выводилось несколько найденных значений? Напимер, при поиске "АБР"

АБРОСИМОВ СЕРГЕЙ ВЛАДИМИРОВИЧ
АБРАМОВ ЮРИЙ ВЛАДИМИРОВИЧ

[Pavel55]

Вот, посмотрите. Особенно сильно не тестировал...

[gru]

Спасибо, все работает.

Есть ещё одна маленькая проблема - при выводе найденного значения.
Если поиск по адресу, то в колонку 2 вставляется найденая величина (адрес),
затем в колонку 3 значение из ячейки справа от найденной (телефон).

Как вставить фамилию в колонку 1 ?


Private Sub InsertEntry()
iFoundCount = iFoundCount + 1
iLastRow = Sheets("Поиск").Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row + 1

Cells(iLastRow, 2) = Found.Value 'вставляем адрес
Cells(iLastRow, 3) = Found.Offset(, 1).Text 'вставляем телефон

End Sub