Заполнение списка

[StasSv]

Здрасти помогите пожалуста, пытаюсь заполнить спиок в форме из изменяющегося количества ячеек, но что то не выходит, ругается говорит ошибка времени выполнения. пытался воть так:

Private Sub UserForm_Initialize()
Dim i As Variant
i = Range("col_doh").Value
ListBox1.RowSource = Range(Cells(4, 1), Cells(3 + i, 1)).Value
End Sub

Заранее спасибо.

[EducatedFool]

Этот код поместит в listbox значения всех ячеек, начиная с а4, и далее вниз до пустой строки:

(это на случай, если Вы в ячейке с именем col_doh храните количество строк, которые нужно поместить в листбокс)

Private Sub UserForm_Initialize()
    ListBox1.RowSource = Range([a4], Cells([a4].End(xlDown).Row, 1)).Address(, , xlA1, False)
End Sub

Ну а вообще, Ваш код можно переписать в виде

Private Sub UserForm_Initialize()
    i = Range("col_doh").Value
    ListBox1.RowSource = Range(Cells(4, 1), Cells(3 + i, 1)).Address(, , xlA1, False)
End Sub

Но в этом случае могут возникать ошибки: во-первых, если не будет диапазона с именем col_doh, во-вторых, если этот диапазон содержит нечисловое значение, ну и так далее. К тому же, если уж объявлять в данном случае переменную i, то с типом данных Integer или Long, но не с Variant. Ну и лучше тогда уж написать i = val(Range("col_doh").Value)

Ну или вообще так:

Private Sub UserForm_Initialize()
    i = val(Range("col_doh").Value)
    ListBox1.RowSource = [a4].Resize(i).Address
End Sub

[StasSv]

спасибо! работает)