Вывод построчно в listbox!

[alexey_nv86]

Написал код для поиска в столце записи.НУжно выделить на листе найденые строки и построчно занести их в listbox. Первое я сделал(т.е. выделил найденые) , помогите со вторым условием(построчно вывести результат в listbox)

Вот код
Private Sub Найти_Click()
Dim x As Range, y As Range, Fst As String
Set x = Columns("A").Find(Автор.Text, LookAt:=xlPart)
If Not x Is Nothing Then
Set y = x: Fst = x.Address
Do
Set x = Columns("A").FindNext(x)
If Not x Is Nothing Then Set y = Union(y, x)
Loop While Fst <> x.Address
End If
y.EntireRow.Select
TextBox1.Text = ' сюда надо вывести строки в которых были найдены

If Автор.Text = "" Then
MsgBox "Поле автор не заполнено!"
Exit Sub
End If
End Sub

[alexey_nv86]

ответы полетели )))) ууухх как много)

[alexey_nv86]

Ну помогите пожалуйста своему младшему брату)

[xamillion]

Может как-то так?

Private Sub Найти_Click()
Dim x As Range, y As Range, Fst As String
Set x = Columns("A").Find(Автор.Text, LookAt:=xlPart)
If Not x Is Nothing Then
Set y = x: Fst = x.Address
Do
Set x = Columns("A").FindNext(x)
If Not x Is Nothing Then Set y = Union(y, x)
TextBox1.AddItem y
Loop While Fst <> x.Address
End If

If Автор.Text = "" Then
MsgBox "Поле автор не заполнено!"
Exit Sub
End If
End Sub

[alexey_nv86]

в сожалению он кричит на Additem(

[xamillion]

Сообщение от alexey_nv86

в сожалению он кричит на Additem(

лучше может пример файла выложить?

[alexey_nv86]

Выкладываю пример: (На кнопку поиск код надо)

[xamillion]

Сообщение от alexey_nv86

Выкладываю пример: (На кнопку поиск код надо)

Вроде так:

[alexey_nv86]

нет все равно ту же ошибку пишет(
Что же делать(

[xamillion]

странно, у меня работает