Архив форумов ЦИТФорума

[Прохожий]

П книге есть лист, один столбец которго - данные, которые должны, при открытии документа Excel , скопироваться в значения comboBox - a.
Делаю так:


Private Sub Workbook_Open()
LastRow = Sheets("Data").Cells.SpecialCells(xlCellTypeLastCell).Row + 1
For i = 1 To LastRow
Form.ComboBox1.AddItem (Worksheets("DATA").Cells(LastRow, 1).Value)
Next i

И ничего не выполняеться. Что я делаю не так?

[Прохожий]

Внимательнее надо быть.... ))
Private Sub Workbook_Open()
LastRow = Sheets("Data").Cells.SpecialCells(xlCellTypeLastCell).Row + 1
For i = 1 To LastRow
Form.ComboBox1.AddItem (Worksheets("DATA").Cells( i , 1).Value)
Next i

[termin]

Попробуй сохранить значение необходимых данных в массиве (динамическом), а при инициализации открытия формы содержащей поле со списком загрузить данные из массива