Не работает афтофильтр

[konstantin1990]

Здравствуйте! Есть форма на которой содержится combobox с определенными значениями, и есть база данных на листе1 ( которая будет пополнятся и изменятся время от времени) при выборе значений из combobox должна фильтроватся база данных с помощью автофильтра. Но дело в том, что мой код не работает. А автофильтр должен работать именно из под созданной формы, так как потом сами листы эксель я буду скрывать от посторонних глаз и будет видна только форма. Лист будет видеть только тот кто будет редактировать базу данных. Но на данный момент проблема с автофильтром! Помогите пожалуйста! Как сделать так чтобы он фильтровал значения в диапазоне A2:J300 по первому столбцу?
Я, кстати, нашел в нэте пример, который немного похож на мою ситуацию, но ничего не смог сделать, ума не хватает переделать для себя.

[SAS888]

После изменения значения в ComboBox и занесения этого значения в ячейку "X2" по событию Worksheet_Change Вы запускаете процедуру, которая применяет автофильтр и тут же его снимает.
Из кода этой процедуры в модуле рабочего листа уберите строку

.Parent.AutoFilterMode = 0

Но можно все сделать существенно проще (см. пример во вложении).

[konstantin1990]

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

После изменения значения в ComboBox и занесения этого значения в ячейку "X2" по событию Worksheet_Change Вы запускаете процедуру, которая применяет автофильтр и тут же его снимает.
Из кода этой процедуры в модуле рабочего листа уберите строку

.Parent.AutoFilterMode = 0

Но можно все сделать существенно проще (см. пример во вложении).

Спасибо! Действительно так гораздо проще. Вот только как решить проблему с тем, что в Listbox отображаются все значения указанные в диапазоне, а нужно чтобы указывались только отфильтрованные? Т.е например если выбрали UTSS в ListBox Отобразилось только две строки с данными по UTSS?

[kalbasiatka]

Наполнение листбокса только видимыми строками (должны быть отсортированы по возрастанию) вынести в отдельную процедуру и запускать её после изменения текстбокса.

[konstantin1990]

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

Наполнение листбокса только видимыми строками (должны быть отсортированы по возрастанию) вынести в отдельную процедуру и запускать её после изменения текстбокса.

ммм понятно, а пример можно?

[SAS888]

Так как не существует способа определить заголовки столбцов в свойстве ColmnnHeads, когда в качестве источника списка применяется массив VBA (что, как я понимаю, автору нужно), предлагаю копировать отфильтрованные строки в свободную часть рабочего листа и
использовать свойство RowSource, указав новый диапазон значений (см. пример во вложении).

[kalbasiatka]

Немного переделал. Ширина колонки "Доп.Инф." 1000 - это для какого монитора?

[SAS888]

Небольшое замечание к варианту от kalbasiatka:
После дополнения (изменения) данных в исходной таблице, их необходимо обязательно отсортировать по 1-му столбцу, иначе не все требуемые данные будут отображаться в ListBox-е.

[kalbasiatka]

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

Небольшое замечание к варианту от kalbasiatka:
После дополнения (изменения) данных в исходной таблице, их необходимо обязательно отсортировать по 1-му столбцу, иначе не все требуемые данные будут отображаться в ListBox-е.

Я об этом уже писал ) пост #4, да и бессмысленно это всё. ТС уже в другой теме задаёт вопросы, видимо нашёл чужие формы и пытается подогнать под себя.