диапазон списка в комбобокс

Пользователь

Сообщений: 392 Регистрация: 08.01.2013

27.11.2018 16:54:52

добрый день.
простая вроде-бы задача. список из столбца в комбобокс:

так работает:

Код
LastRow = Worksheets("TABLES_ADMIN").Cells(Rows.Count, 1).End(xlUp).Row UserForm2.ComboBox4.List = Worksheets("TABLES_ADMIN").Range("A3:A" & LastRow).Value

а так - не хочет:

Код
LastRow = Worksheets("TABLES_ADMIN").Cells(Rows.Count, 1).End(xlUp).Row UserForm2.ComboBox4.List = Worksheets("TABLES_ADMIN").Range(Cells(3, 1), Cells(LastRow , 1)).Value

уже 2 часа мучаюсь.
подскажите где я туплю

Пользователь

Сообщений: 11833 Регистрация: 17.01.2014

ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64

27.11.2018 17:01:55

Код
Cells(3, 1), Cells(LastRow , 1)

привязаны к АКТИВНОМУ листу (и Rows.Count тоже), и не факт, что это лист "TABLES_ADMIN". Попробуйте так:

Код
with Worksheets("TABLES_ADMIN") LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row UserForm2.ComboBox4.List = Range(.Cells(3, 1), .Cells(LastRow , 1)).Value end with

Изменено: JayBhagavan - 27.11.2018 18:21:32

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori

brother_alex Пользователь Сообщений: 392 Регистрация: 08.01.2013	#3 27.11.2018 17:48:33 век живи - век учись спасибо