передать данные в комбо

[DMITRIY_78]

Рябата Здравствуйте! подскажите как передать в комбобокс данные а именно;
вот как передать с диапазона я знаю

For Each c In Worksheets("db").Range("B1:B10")
   ComboBox1.AddItem (c)
Next

- а вот как передать что бы лишних "пустых" ячеек не захватывать не знаю?

For Each c In Worksheets("db").Range("B").End(xlDown).Rows  - пробовал не получается
   ComboBox1.AddItem (c)
Next

[Aleksandr H.]

Сообщение от DMITRIY_78

лишних "пустых" ячеек

ето какие, пример?

For Each c In Worksheets("db").Range("B1:B10")
 if c.value2 <> "" then
   ComboBox1.AddItem (c)
end if
Next

[DMITRIY_78]

Сообщение от DMITRIY_78

End(xlDown).Rows

считать до конца заполненной строки
что то код ваш не срабатывает

[DMITRIY_78]

Range("B1:B16")

что бы каждый раз не увеличивать диапазон

[DMITRIY_78]

вот так у меня получилось:

Dim c
For Each c In Sheets("db").Range("B1:B" & Range("B200").End(xlUp).Row).Value
   ComboBox1.AddItem (c)
Next

[Aleksandr H.]

без цикла не работает?

dim iLastRow as integer
with sheets("db")
iLastRow = .cells(.rows.count,"B").end(xlUp).row

Me.ComboBox1.List = .Range("B1:B" & iLastRow).Value
end with

[DMITRIY_78]

Aleksandr H., СПАСИБО ОГРОМНОЕ, сейчас этим кодом решился сразу попутный вопрос!