Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » m_rew
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Заполнение ComboBox ActiveX умной таблицей без пустых строк, Заполнение ComboBox ActiveX умной таблицей без пустых строк
 
#
17.06.2025 17:00:25
МатросНаЗебре, спасибо за совет! Очень грамотное решение
 
Перейти    
Заполнение ComboBox ActiveX умной таблицей без пустых строк, Заполнение ComboBox ActiveX умной таблицей без пустых строк
 
#
17.06.2025 16:56:35
МатросНаЗебре, получилось! Спасибо большое! Подскажите, а что вы имели ввиду под изменить размер умной таблицы до используемой области. Это как-то повлияет на добавление в таблицу новых данных? И как такое осуществить?
 
Перейти    
Заполнение ComboBox ActiveX умной таблицей без пустых строк, Заполнение ComboBox ActiveX умной таблицей без пустых строк
 
#
17.06.2025 16:20:21
Всем привет! Подскажите, я заполняю комбобокс из умной таблицы, но при этом вставляются еще миллион пустых строк после значений
Можно ли как-то заполнять комбобокс только значениями, а пустоту игнорировать

Мой код сейчас:
Код
Private Sub ComboBox1_GotFocus()
    With Worksheets("ЛДСП")
        ActiveSheet.ComboBox1.ListFillRange = .Name & "!" & .ListObjects("ЛДСП").ListColumns("Производитель").DataBodyRange.Address
    End With
End Sub
 
Перейти    
Заполнение ComboBox ActiveX данными из умной таблицы находящейся на другом листе, Заполнение ComboBox ActiveX данными из умной таблицы находящейся на другом листе
 
#
17.06.2025 16:12:19
Спасибо за доскональные пояснения! Благодаря вам все заработало!
 
Перейти    
Заполнение ComboBox ActiveX данными из умной таблицы находящейся на другом листе, Заполнение ComboBox ActiveX данными из умной таблицы находящейся на другом листе
 
#
17.06.2025 15:43:51
Всем привет! Столкнулся с проблемой и не смог найти в интернете решения!
Необходимо заполнить ComboBox ActiveX данными из умной таблицы находящейся на другом листе
Я вообще не разбираюсь в VBA. Даже не знаю как правильно вызвать событие для заполнения ComboBox

ComboBox находится не в форме, а помещается в самом листе

Наткнулся на примеры. Ни один из примеров не помог. VBA ругается

1 пример.
Код
Private Sub UserForm_Initialize()
    Me.ComboBox1.List = Range("Штат[ФИО]").Value
End Sub

2 пример.
Код
'для получения данных с ДРУГОГО листа необходимо добавлять имя листа
With Worksheets("Лист1")
    'по названию таблицы и столбца
    ActiveSheet.ComboBox1.ListFillRange = .Name & "!" & .ListObjects("Таблица1").ListColumns("Фамилия").DataBodyRange.Address
     
    'по индексу таблицы и индексу столбца
    ActiveSheet.ComboBox1.ListFillRange = .Name & "!" & .ListObjects(1).ListColumns(3).DataBodyRange.Address
     
    'именованный диапазон
    ActiveSheet.ComboBox1.ListFillRange = .Name & "!" & .Range("ДАННЫЕ").Address
End With
 
Перейти    
Страницы: 1
Наверх