Создание динамического Comboboxа !

[web_lover]

Здравствуйте,
У меня такой вопрос:
как сделать так чтобы Combobox заполнял себя из первой колонки динамической таблицы?

Второй вопрос: хочу при выборе в Combobox1 item1 то в Textbox1 появляется value1, короче соседняя ячейка!!!



желательно если на 2007 версии !!

Благодарен за ранее

[doober]

Юзайте вложение
Возможен и такой вариант

Private Sub UserForm_Initialize()
ComboBox1.Clear
d = Sheets("Sheet1").Range("Table1")
For n = 1 To UBound(d)
 ComboBox1.AddItem (d(n, 1))
 ComboBox1.List(n - 1, 1) = d(n, 2)
Next

End Sub

[Teslenko_EA]

Здравствуйте web_lover.
способ немного отличается от предложенного doober, но смысл тот-же

Private Sub UserForm_Activate()
    ComboBox1.List = Sheets(1).Range("A2:B4").Value
End Sub
Private Sub ComboBox1_Click()
    TextBox1.Text = ComboBox1.Column(1)
End Sub

Евгений.
P.S. Sheets(1).Range("A2:B4").Value не "любит" работать на листах со списками.

[web_lover]

Спасибо ребята
работает но у меня вопрос к dooberу обязательный ли макрос1 во вложении, чего-то его не понял! зачем он там? убрал его и все работает?
А Teslenko_EAу есть вопрос а можно в твоем коде вместе "A2:B4" написать "Table1" ? и в TextBox1.Text = ComboBox1.Column(1) что означает 1 в Column(1) значит следующая колонка? а если у меня три и хочу не вторую а третью, можно написать Column(2)?

[doober]

Нет не обязательно-это мусор

[Teslenko_EA]

web_lover, если "Table1" - имя диапазона который Вы хотите подключить в качестве списка для ComboBox1, то конечно можно "написать..".
Столбцы контрола имеют нумерацию (индекс в массиве) начинающуюся с нуля, соответственно для обращения к нему если "..хочу .. третью.." конечно "..можно написать Column(2)..". Но у контрола ещё есть свойство BoundColumn (связанная колонка) и если задать его - ComboBox1.BoundColumn = 3, то прочесть значение третьего столбца можно без явного указание его индекса, просто обращаясь к контролу - s = ComboBox1
Также не стоит забывать о заданном кол-ве столбцов
ComboBox1.ColumnCount = 3
и о их ширине, устанавливая которую в ноль, скрывается столбец
ComboBox1.ColumnWidths = "0;20;30" ' (задается текстовым значением)

Надеюсь это всё будет Вам интересно на данном этапе освоения VBA

Удачи Вам.
Евгений.
P.S. свои сообщения я подписываю в надежде, что ко мне будут обращаться по имени а не по НИКу.

[web_lover]

Спасибо doober
Спасибо Евгений