Поиск

[TotKogoNet]

Задание интересующее меня:
"Кнопка Найти позволяет отобразить в поле Книги на руках сведения о той литературе, которую студент взял в библиотеке. Отображение данных должен быть организован в несколько колонок (автор, название книги, Издательство, год издания, дата выдачи книги библиотекой). Данные берутся с рабочего листа.
На вкладке Сведения поиск должен осуществляться по выбору или вводу № студенческого билета."

В моем случае я выбрал вариант выбора № студ. билета.
Помогите откорректировать поиск = )

Private Sub CommandButton3_Click()
Dim r1 As Range, r2 As Range
n = Range("h1").CurrentRegion.Rows.Count 'считаем количество строк в диапозоне критериев
Range("h1").CurrentRegion.Resize(n - 1, 10).Offset(1, 0).Clear 'очищаем дипозон критериев
'заполнене диапозона критериев
If ComboBox5.ListIndex <> -1 Then Range("m2") = ComboBox5
Set r1 = Range("h1").CurrentRegion  'ссылка на диапозон критериев
Set r2 = Range("A23").CurrentRegion.Offset(0, 11) 'ссылка на результат поиска,
'берем из исходного диапозона по критериям (r1), помещая результат в диапозон r2
Range("A23").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=r1 _
 , CopyToRange:=r2, Unique:=False
ListBox1.RowSource = r2.Address
End Sub

К теме приложен архив с задачей.

[TotKogoNet]

Заранее прошу прощения за такое оформление кода

-------------------------------------------
Надстройки и программы для поиска в Excel:
http://excelvba.ru/category/Excel/search

Надстройка для поиска на всех листах книги Excel
Надстройка для поиска в Excel с выводом результатов на новый лист
Поиск из поля на панели инструментов Excel

[TotKogoNet]

После сегоднящней лекции исправил главную ошибку) теперь не могу доработать лишь одну вещь.
"Отображение данных должен быть организован в несколько колонок (автор, название книги, Издательство, год издания, дата выдачи книги библиотекой)"
В моем же случае отоброжает лишь колонку "автор"
Подталкните на "путь истинный" = )

[Hugo121]

Чтоб было 5 колонок - можно в свойствах выставить 5 колонок, а данными забить так:
a = [a24:f30]
ListBox1.List = a

Вот как отобрать только нужные данные - не вникал...

[TotKogoNet]

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

Чтоб было 5 колонок - можно в свойствах выставить 5 колонок, а данными забить так:
a = [a24:f30]
ListBox1.List = a

Вот как отобрать только нужные данные - не вникал...

Как то не додумался что в свойствах надо постаить 5 колонок. Данные уже отобраны ))
Спасибо, все работает, думаю дальше сам)

[Hugo121]

Можно количество колонок и кодом задать - вот только синтаксис сейчас не вспомню...