Большой выпадающий список с данными из другой закрытой книги Excel.

[ugli]

Не понял что делает значение???


Private Sub inic()

Dim sh As Worksheet

Set sh = GetObject(path).Sheets(List)

Dim a, d, g
ComboBox1.Clear
ListBox1.Clear


For n = 14 To sh.Range("b65000").End(xlUp).Row 'НЕ ПОНЯЛ ЧТО ДЕЛАЕТ ЭТО ЗНАЧЕНИЕ sh.Range("b65000")?

[doober]

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

Не понял что делает значение???

Здесь ответы на Ваши вопросы

книга1

Книга2

sh.Range("b65000").End(xlUp).Row номер строки последней заполненой ячейки в столбце B

[ugli]

КАК тут ПОСТАВИТЬ КЕГУ ПИВА

[doober]

Могу дать номер кошелька

[SAS888]

А Вам обязательно нужен ComboBox? Почему не устраивает решение описанное Здесь?

[ugli]

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

А Вам обязательно нужен ComboBox? Почему не устраивает решение описанное Здесь?

P.S.

Минус всей этой системы только один - выпадающий список будет корректно работать только в том случае, если файл Товары.xls открыт.
И ЭТО ОГРОМНЫЙ МИНУС!!!

Прайсы находятся на других КНИГАХ!
и будут периодически менятся поставщиком.
поэтому ComboBox ОБАЛДЕННОЕ решение задачи!!!

[SAS888]

И ЭТО ОГРОМНЫЙ МИНУС!!!

Ну, не такой "огромный", как Вы написали. Посмотрите вложение. Там 2 файла. Откройте файл "Книга1.xls". При выделении ячейки "A1", в ней будет сформирован выпадающий список, содержащий значения из диапазона "A1:A10" листа "Лист1" файла "Исходный.xls", не зависимо от того, открыт он или нет.
Для проверки, поместите оба файла из архива в одну папку. В дальнейшем, подставьте требуемые значения (путь к папке с файлом-источником, имя файла, имя листа, адреса ячеек и т.д.). В коде макроса есть соответствующие комментарии.
ПРИМЕЧАНИЕ: при каждом выделении ячейки "A1", выпадающий список будет формироваться заново. Такое решение позволяет всегда работать с самыми последними данными, которые могут динамически меняться в файле-источнике. По-моему, это разумно.

[Alex2003]

Да херня это все, вы же совсем упустили тот факт что делая список в переменной frm, параметр Formula1 все равно больше 255 знаков не видит. Возмите и сделайте в исходнике строки не по 5-6 символов а по 20-30 и строк штук 30 тогда увидите как ваш код с этим справится.

[SAS888]

параметр Formula1 все равно больше 255 знаков не видит.

Я предложил вариант формирования данных из закрытой книги. А куда их девать - дело вкуса. Хотите - формируйте строковую переменную и drop-down в ячейке. Не устраивает - накапливайте в ComboBox-е.

[Alex2003]

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

Хотите - формируйте строковую переменную

Хочу вот и спрашиваю как это сделать.
Суть вопроса - список на отдельном листе (строки шириной порядка 30 символов), количество строк от 30 и может расти, как его запихнуть в параметр "Formula1", построить список в rab легко, только когда его пихаеш Formula1:=rab обрезается до 255 знаков
Как решить ?

код примерно такой

rab = СписокЗначений(mm)
With Cells(Target.Row, Target.Column + 1).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertInformation , Operator:=xlBetween, Formula1:=rab
.IgnoreBlank = True: .InCellDropdown = True
End With