Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Заполнение ComboBox ActiveX умной таблицей без пустых строк, Заполнение ComboBox ActiveX умной таблицей без пустых строк
 
Всем привет! Подскажите, я заполняю комбобокс из умной таблицы, но при этом вставляются еще миллион пустых строк после значений
Можно ли как-то заполнять комбобокс только значениями, а пустоту игнорировать

Мой код сейчас:
Код
Private Sub ComboBox1_GotFocus()
    With Worksheets("ЛДСП")
        ActiveSheet.ComboBox1.ListFillRange = .Name & "!" & .ListObjects("ЛДСП").ListColumns("Производитель").DataBodyRange.Address
    End With
End Sub
Заполнение ComboBox ActiveX данными из умной таблицы находящейся на другом листе, Заполнение ComboBox ActiveX данными из умной таблицы находящейся на другом листе
 
Всем привет! Столкнулся с проблемой и не смог найти в интернете решения!
Необходимо заполнить 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
Loading...