Как в столбце найти текст и вывести всю строку?

[alexey_nv86]

Братцы помогите кто чем может) Задание такое: При нажатии кнопки "Поиск" из 3-х combobox (или в каком есть текст) произвести поиск в столбцах соответственно A-Автор(combobox1), B-Название(combobox2) и C-Раздел(combobox3), и найдя значения вывести всю строку в listbox. Я уже 3 день сижу думаю)) придумал только чтоб поиск был по полю А и по combobox1.

вот моё приложение http://zalil.ru/29907442

[alexey_nv86]

НУ АУ КТО НИБУДЬ ПОмогите младшему брату))

[Hugo121]

Ну а добавить ещё два раза If не додумались?
в цикле:
if a=avtor then
if b=nazvanie then
if c=razdel then
'delaem delo
end if
end if
end if

Если использовать поиск, то после нахождения проверять соседние ячейки.
Ну а я бы взял всё в массив и перебирал в цикле его. Время даже может и быстрее поиска будет, если повторов автора много.

[alexey_nv86]

Hugo121
спс щас буду исправлять и если что отпишусь)

[alexey_nv86]

Hugo121
Я не понял куда тут можно добавить if))

Private Sub Найти_Click()
Dim myRng As Range, avtor As Range ' переменные!
Set myRng = Range(Cells(1, 1), Cells(100, 5))
Set avtor = myRng.Find(Автор.Text, , , xlPart) ' ищем ЧАСТИЧНОЕ (а не полное) совпадение
If avtor Is Nothing Then
MsgBox "Значение не найдено", vbExclamation
Else
TextBox1.Text = avtor
End If
If Автор.Text = "" Then
MsgBox "Поле автор не заполнено!"
Exit Sub
End If
End Sub

[Hugo121]

Private Sub Найти_Click()
Dim myRng As Range, avtor As Range ' переменные!
Set myRng = Range(Cells(1, 1), Cells(100, 1)) 'зачем тут было 100,5?
Set avtor = myRng.Find(Автор.Text, , , xlPart) ' ищем ЧАСТИЧНОЕ (а не полное) совпадение
If avtor Is Nothing Then
MsgBox "Значение не найдено", vbExclamation
Else
If Cells(avtor.Row, 2) = combobox2.Text Then
If Cells(avtor.Row, 3) = combobox3.Text Then
'вывести всю строку в listbox 'TextBox1.Text = avtor
End If
End If
End If
If Автор.Text = "" Then
MsgBox "Поле автор не заполнено!"
Exit Sub
End If
End Sub

Пример по вставке в листбокс не искал, а наизусть не запоминаю...
Вообще-то тут поиск надо бы продолжить, если при первом нахождении автора соседние ячейки не соответствуют.
Ищите примеры с FindNext.

Вот например:

Set x = Sheets(1).UsedRange.Find(ch(i), LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)
If Not x Is Nothing Then
iFirstAddress = x.Address
Do
Set x = Sheets(1).UsedRange.FindNext(x)
If sel Is Nothing Then
Set sel = Rows(x.Row)
Else
Set sel = Union(sel, Rows(x.Row))
End If
Loop While Not x Is Nothing And x.Address <> iFirstAddress
End If

[alexey_nv86]

Hugo121
спасибо и на этом. Буду продалжать поиски)
p.s. не знаю, как без приложения сдавать буду курсовую(

[Hugo121]

Код поиска с продолжением целиком, может пригодится:

Sub SearchLim()
Dim temp$
temp = "limi"
Set tar = Sheets(3)

Set X = Sheets(1).UsedRange.Find(temp, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)

If Not X Is Nothing Then

    iFirstAddress = X.Address
            
    Do
        Set X = Sheets(1).Cells.FindNext(X)
        Debug.Print X.Address ' для проверки
        Set blank_cell = tar.Cells(tar.Range("a1").SpecialCells(xlCellTypeLastCell).Row + 1, 1)
        Rows(X.Row).Copy blank_cell
    Loop While Not X Is Nothing And X.Address <> iFirstAddress
    
End If

End Sub

[alexey_nv86]

ХУГО)).
я не настолько разбираюсь в vba)) чет не догоняю код

[Hugo121]

Сократил, лишнее выкинул:

Sub SearchLim()

'собственно ищем
Set X = Sheets(1).UsedRange.Find("limi", LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)

If Not X Is Nothing Then 'если нашли

    iFirstAddress = X.Address 'запоминаем адрес
            
    Do 'цикл
        Set X = Sheets(1).Cells.FindNext(X) 'ищем дальше
        'тут делаем дело с найденным
        Debug.Print X.Address ' для проверки
    'ищем дальше, пока не вернёмся к первому найденному
    Loop While Not X Is Nothing And X.Address <> iFirstAddress
    
End If

End Sub

P.S. Ваше приложение не смотрел, ибо на работе...