Макрос поиска

[Pecnekm]

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

Автопересчет включен? Проверьте галочку.

Вы гений !
Всё работает, стояло "вручную" после сохранения.
Спасибо, БОЛЬШОЕ!

P.S. Макрос поиска просто улёт! Вот, что значит есть голова на плечах

[Ivan Dulin]

Замечательный макрос поиска. Тока что-то переделать его под свою задачу у меня все не выходит, да и не удивительно так как опыта с VBA очень мало.

Мне нужно организовать поиск по строкам. Когда вводишь текст в первую поисковую ячейку столбцы базы данных соответстующая ячейка которых не содержит совпадений сворачиваются.

Затем если вводишь значения во вторую поисковую ячейку она фильтрует оставшиеся столбцы и тд.

У меня пока даже не получилось безошибочно избавиться от всех комбобоксов и листбоксов. Очень прошу помогите решить данную задачу

[VictorM]

Очень прошу помогите решить данную задачу

Выложите лучше файл примера вместо картинки.
Больше толку будет.
И быстрее.

[Ivan Dulin]

Вот. Кол-во столбцов для поиска сейчас 51 и врядли когда-нибудь поднимется выше 100. Обновлять результаты нужно после ввода в поисковую ячейку, а не во время добавления в нее одного символа. Потому что уверен что на сворачиваниое столбцов нужно какое то время. Колличесто строк (параметров) может измениться

[Ivan Dulin]

хотябы для одной строки. Чтоб после ввода допустим в B4 слова или пары букв, все столбцы справа в которых нет совпадений в четвертой строке сворачивались.

Дальше постараюсь сам справиться

[R Dmitry]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Column = 2 Then
n = UsedRange.Columns.Count
a = Range("c" & Target.Row).Resize(1, n).Value
For i = 1 To UBound(a, 2)
If Len(a(1, i)) > 0 Then
If Not UCase(a(1, i)) Like "*" & UCase(Target.Value) & "*" Then Columns(i + 2).EntireColumn.Hidden = True Else _
                                                                                                     Columns(i + 2).EntireColumn.Hidden = False
Else
Columns(i + 2).EntireColumn.Hidden = True
End If
Next
End If
Application.ScreenUpdating = True
End Sub

В модуль листа

[Ivan Dulin]

Воспользовался кодом Дмитрия(ему спасибо), добавил немного от себя и все таки сумел сделать поиск который хотел. Вот только осталась одна проблема. Когда пытаюсь удалить значения из нескольких ячеек в поисковой колонке появляется ошибка. Код рассчитан на ввод/удаление в/из одной ячейки за раз.

Помогите пожалуйста доделать его так чтоб можно было очищать все поисковые ячейки за раз, и вставлять несколько значений за раз через копи паст без этой ошибки.

Заранее всем спасибо

[staniiislav]

вот пример (для nilem)
Спасибо

[nilem]

Заменил Листбокс из другой темы

[staniiislav]

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

Заменил Листбокс из другой темы

Спасибо огромное!!! Выручили не в первый раз!!! То что я хотел!!! Вообще чудесно, теперь много лишнего в своем файлике можно будет убрать ))))