Здравствуйте. Не получается заполнить лист ИмяФурнитуры (Combobox) кнопкой "Войти" из первого столбца таблицы ИмяПодраздела.Text (текст в TextBox). Таблица создаётся с именем из текста в TextBox "ИмяПодраздела", но при вставке в код ИмяПодраздела.Text - получается ошибка. Если в код вписать "Кухонные" вместо ИмяПодраздела.Text, то код работает. Таблиц предполагается много, поэтому нужно обращаться к имени таблицы. Не могу разобраться, прошу помочь.
Этот код не работает
Код
Dim a()
a = Range("ИмяПодраздела.Text[Наименование]").Value
ИмяФурнитуры.List = a
Этот работает
Код
Dim a()
a = Range("Кухонные[Наименование]").Value
ИмяФурнитуры.List = a
Создать глобальную переменную (), ей присвоить значение из TextBox'а. Использовать эту переменную далее в коде
Код
Public ПодразделИмя As String
...............................................
'Создаем умную таблицу с добавлением строки заголовков
ПодразделИмя = ИмяПодраздела.Text
ActiveSheet.ListObjects.Add(xlSrcRange, Range(Cells(3, 1), Cells(a, 6)), , xlYes).Name = ПодразделИмя
..............................................
a = Range(ПодразделИмя & "[Наименование]").Value
П.С. у Вас много потенциальных ошибок. Например, чем Вы заполните ComboBox если таблицу только создали и она пустая? На последней строке вываливается ошибка. Ну и т.п. Так же использование кириллицы в названиях переменных не самый лучший вариант
Изменено: - 20.11.2023 15:07:06
Согласие есть продукт при полном непротивлении сторон.
