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

[EugeneS]

попробуйте так:

Private Sub Íàéòè_Click()
ListBox1.Clear
Dim x As Range, Fst As String
Set x = Columns("A").Find(Àâòîð.Text, LookAt:=xlPart)
If Not x Is Nothing Then
Fst = x.Address
Do
Set x = Columns("A").FindNext(x)
If Not x Is Nothing Then
   ListBox1.AddItem (Cells(x.Row, 1) & " " & Cells(x.Row, 2) & " " & Cells(x.Row, 3) _
   & " " & Cells(x.Row, 4) & " " & Cells(x.Row, 5))
End If
Loop While Fst <> x.Address
End If
If Автор.Text = "" Then
MsgBox "Поле автор не заполнено!"
Exit Sub: End If
End Sub

[alex77755]

Могу, конечно, ошибаться, но добавлять Range в листбокс методом Additem....
Надо же читать, что за ошибку пишет:
Можно так.

ListBox1.AddItem y.Text

Ну и ещё много способов вытащить из Range значение