Combobox и textbox как сделать?

[Lorgan]

Подскажите как сделать так, что бы при выборе на форме в combobox номера Имени в textbox заносилась само Имя?

з.ы. Пример во вложении.

[R Dmitry]

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

Подскажите как сделать так, что бы при выборе на форме в combobox номера Имени в textbox заносилась само Имя?

з.ы. Пример во вложении.

Private Sub CommandButton1_Click()
TextBox1 = ComboBox1.Column(1)
End Sub

Private Sub UserForm_Initialize()
ComboBox1.ColumnWidths = "75;0"
ComboBox1.ColumnCount = 2
ComboBox1.RowSource = "Лист1!A1:b9"
End Sub

[Lorgan]

Выдает ошибку (80070057) Аргументы заданы неправильно, ругается на строку TextBox1 = ComboBox1.Column(1)

[doober]

К варианту Дмитрия и мой

Его рабочий,
вы сами внесли ошибку
ComboBox1.RowSource = "Лист1!A1:A9" ,
а должно быть

ComboBox1.RowSource = "Лист1!A1:b9"

Private Sub CommandButton1_Click()
TextBox1.Text = ComboBox1.Value
End Sub

Private Sub UserForm_Initialize()
ComboBox1.ColumnWidths = "75;0"
ComboBox1.ColumnCount = 2
ComboBox1.BoundColumn = 2
ComboBox1.RowSource = "Лист1!A1:B9"
End Sub

[Lorgan]

Спасибо ольшое за помощь ! заработало)

[Lorgan]

Ага точно, а я голову ломал искал где ошибка, теперь понял что дело в столбцах которые принимает textbox. Еще маленкой вопрос а реально в textbox сделать чтоб при выборе следующего значения в combobox предыдущее не стиралось?

[R Dmitry]

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

Ага точно, а я голову ломал искал где ошибка, теперь понял что дело в столбцах которые принимает textbox. Еще маленкой вопрос а реально в textbox сделать чтоб при выборе следующего значения в combobox предыдущее не стиралось?

можно, но лучше может использовать listbox ?

[R Dmitry]

TextBox1 =TextBox1 & chr(10) & ComboBox1.Column(1)

вот так для textbox

[R Dmitry]

да что то не хочет переносить на строку
см пример с listbox

[Lorgan]

спасибо откликнувшимся