Выпадающий список, если значения в книге повторяются.

[kamarella]

Сообщение от аналитика

строишь сводную на основе 30-титысячного столбца, получаешь уникальный список...

Аа вы про это Сводные используются сейчас, это не очень удобно.
К такому списку я хочу добавить еще зависимые списки и вставку по определенному критерию.

[nilem]

Если валидация не проходит, можно попробовать Комбо с функцией NoDups от ZVI (Владимир З.) - тут уж есть все.

[KL (XL)]

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

Если валидация не проходит, можно попробовать Комбо с функцией NoDups от ZVI (Владимир З.) - тут уж есть все.

Ну я в принципе туда и клонил: перевести все значения из ячеек в массив, только использовать объект Dictionary, а не Collection для формирования массива уникальных, использовать алгоритм сортировки ZVI :-)

Только 30,000 activeX на листе, мне кажется, - перебор.
С валидацией должно получиться, просто нужно будет обновлять уникальный отсортированный список в реальном диапазоне, скажем, по событию добавления нового имени в изначальную таблицу, при условии, что оно новое.

[KL (XL)]

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

Эх. Ой как жаль. Сижу щас в вашем творении разбираюсь... И что то с первого раза вникнуть не могу. У меня в выпадающем списке еще дополнительно выводятся записи "#ЧИСЛО!" - помимо фамилий. В чем проблема может быть?

Проблем, на первый взгляд, может быть две:
- неправильно заданы именованные формулы Данные и/или Список
- значения во вспомогательном столбце начинаются не с той же строки, что и данные

[KL (XL)]

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

Аа вы про это Сводные используются сейчас, это не очень удобно.
К такому списку я хочу добавить еще зависимые списки и вставку по определенному критерию.

Не очень понятно, как можно добавить зависимые списки к стихийно формируемому списку, или я что-то упустил

[KL (XL)]

Вот такой вариант пока не появятся детали касательно зависимых списков.

[kamarella]

Сообщение от KL (XL)

Вот такой вариант пока не появятся детали касательно зависимых списков.

Да но при добавлении новой фамилии она отображается максимум один раз, а потом исчезает и из списка и из фильтра.... Причем если дублируешь фамилию, то в выпадающем списке она так же дублируется, а вот эта-то и есть основная проблема. Т.к. в таблице фамилии повторяются постоянно, а мне нужно чтобы на лист выводился только их список.

И еще вопрос - по какому принципу вы выделяете диапазон прежде чем присвоить ему имя?

[KL (XL)]

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

Да но при добавлении новой фамилии она отображается максимум один раз, а потом исчезает и из списка и из фильтра.... Причем если дублируешь фамилию, то в выпадающем списке она так же дублируется, а вот эта-то и есть основная проблема. Т.к. в таблице фамилии повторяются постоянно, а мне нужно чтобы на лист выводился только их список.

Вы говорите о моем примере или о вашем после переноса кода в него? У меня ничего такого не происходит.

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

И еще вопрос - по какому принципу вы выделяете диапазон прежде чем присвоить ему имя?

Я ничего не выделяю.
Именованный диапазон "Список" формируется динамически в столбце [A:A] листа "Sheet2" с помощью формулы:

=Sheet2!$A$2:ИНДЕКС(Sheet2!$A:$A;ПОИСКПОЗ("*";Sheet2!$A:$A;-1))

По такому же принципу, код отслеживает добавления в столбце [A:A] листа "Sheet1":

    With Sheets(1)
        With .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))

Если проблема возникает именно в моем примере, то попробуйте изменить формулу именованного диапазона "Список" на:

=Sheet2!$A$2:ИНДЕКС(Sheet2!$A:$A;ПОИСКПОЗ("ЯЯЯЯЯ";Sheet2!$A:$A))

[kamarella]

Проблема осталась, но все равно спасибо, буду разбираться.