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

[Pavel55]

Вот посмотрите. Я не только изменил процедуру InsertEntry, но и немного основной код

[gru]

Спасибо, все нормально.

Сделал две кнопки - фамилия и телефон, соответственно диапазон поиска по этим колонкам, чтоб лишнего не выводило. Заменил Clear на ClearContents чтоб не удалять форматирование.

Теперь пытась понять как вывести на печать только найденное количество значений, а не жестко заданный диапазон.

[Aent]

вывести на печать только найденное количество значений, а не жестко заданный диапазон

Самое простое: динамически формировать новый лист с найденными значениями
и печатать его.

[gru]

Спасибо, примерно так и пытаюсь.

[gru]

Вот, помогли...

'печать найденых значений
'
Private Sub CommandButton3_Click()
If iFoundCount = 0 And Range("a10").FormulaR1C1 = "" Then
MsgBox "Печатать нечего!"
Else
If iFoundCount = 0 Then
Do Until Range("a" & iFoundCount + 10).FormulaR1C1 = ""
iFoundCount = iFoundCount + 1
Loop
Range("A9" & ":" & "C" & iFoundCount + 9).Select
Selection.PrintOut Copies:=1, Collate:=True 'печать выбраного диапазона
Sheets("Меню").Select 'переход на лист меню
Else
Range("A9" & ":" & "C" & iFoundCount + 9).Select
Selection.PrintOut Copies:=1, Collate:=True 'печать выбраного диапазона
Sheets("Меню").Select 'переход на лист меню
End If
End If
End Sub