Как заполнить ComboBox из таблицы с первой записи по последнюю, не дальше. Нужно что бы в ComboBox писалась вручную новая информация, после нажатия на кнопку, эта информация добавляется в последнюю незаполненную ячейку в столбце таблицы и автоматически добавляется в ComboBox. Как это сделать?
Как заполнить ComboBox из таблицы с первой записи по последнюю, не дальше. Нужно что бы в ComboBox писалась вручную новая информация, после нажатия на кнопку, эта информация добавляется в последнюю незаполненную ячейку в столбце таблицы и автоматически добавляется в ComboBox. Как это сделать?Paulus
с первой записи по последнюю, не дальше... новая информация... добавляется в последнюю незаполненную ячейку в столбце таблицы и автоматически добавляется в ComboBox
А с учетом этого - как-то так: [vba]
Код
Private Sub UserForm_Initialize() ComboBox1.List = Worksheets(1).Range("A1", Cells(Rows.Count, "A").End(xlUp)).Value End Sub
[/vba]
[vba]
Код
Private Sub UserForm_Initialize() Dim a As Variant a = Worksheets(1).Range("A1:A10") ComboBox1.List = a End Sub
[/vba] или даже так: [vba]
Код
Private Sub UserForm_Initialize() ComboBox1.List = Worksheets(1).Range("A1:A10").Value End Sub
с первой записи по последнюю, не дальше... новая информация... добавляется в последнюю незаполненную ячейку в столбце таблицы и автоматически добавляется в ComboBox
А с учетом этого - как-то так: [vba]
Код
Private Sub UserForm_Initialize() ComboBox1.List = Worksheets(1).Range("A1", Cells(Rows.Count, "A").End(xlUp)).Value End Sub
Использовал Ваш код, работает если активен лист 1, но если активен др. лист, то нет, как избежать, данные через форму необходимо заносить допустим с листа 2 в лист 1, основной лист 1, и он все время активен
Использовал Ваш код, работает если активен лист 1, но если активен др. лист, то нет, как избежать, данные через форму необходимо заносить допустим с листа 2 в лист 1, основной лист 1, и он все время активен