заполнение textbox по данным из combobox

[Владимир2222]

Здравствуйте, подскажите как можно заполнить textbox-ы по данным из combobox-а, т.е. при выборе организации в combobox-е, вставлялись бы в textbox-ы оплата и аванс, а по нажатию кнопки, вновь введенные данные по авансу, сохранялись в этой же строке.

[doober]

Доплату сами добавите.

[Владимир2222]

Спасибо большое, скажите а возможно сделать чтоб при внесении в textbox Доплата сумму, она суммировалась с textbox Аванс и при нажатии на кнопку данные в таблице менялись конкретно по столбцу Аванс.

[doober]

Можно

Private Sub CommandButton1_Click()
    If ComboBox1.ListIndex = -1 Then Exit Sub

    Dim Строка As Long
    Строка = ComboBox1.List(ComboBox1.ListIndex, 5)
    Unload Me
    ActiveWorkbook.Worksheets(3).Cells(Строка, 2) = ComboBox1.Value
    ActiveWorkbook.Worksheets(3).Cells(Строка, 4) = TextBox1.Text
    ActiveWorkbook.Worksheets(3).Cells(Строка, 6) = CDbl(TextBox2.Text) + CDbl(TextBox3.Text)

    ActiveWorkbook.Worksheets(3).Select
End Sub

[Владимир2222]

Спасибо, все работает. Только это был образец(небольшая форма), перенес все в большую - работать не хочет. Поменял столбцы под свои, пробовал переименовать лист из (3) в (База) и обратно. Ничего не получается. Где ошибся? Private Sub Combo()

If ComboBox1.ListIndex = -1 Then Exit Sub
With Sheets(3)
lr = .Cells(Rows.Count, 3).End(xlUp).Row

For I = 1 To lr
If .Cells(I, 2) = ComboBox1 Then
TextBox1 = .Cells(I, 7)
TextBox2 = .Cells(I, 12)
End If
Next
End With
End If

End Sub
Private Sub ComboBox1_Change()

If ComboBox1.ListIndex = -1 Then Exit Sub

TextBox1.Text = ComboBox1.List(ComboBox1.ListIndex, 7)
TextBox2.Text = ComboBox1.List(ComboBox1.ListIndex, 12)

End Sub

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex = -1 Then Exit Sub

Dim Ñòðîêà As Long
Ñòðîêà = ComboBox1.List(ComboBox1.ListIndex, 5)
Unload Me
ActiveWorkbook.Worksheets(3).Cells( Ñòðîêà, 2) = ComboBox1.Value
ActiveWorkbook.Worksheets(3).Cells( Ñòðîêà, 7) = TextBox1.Text
ActiveWorkbook.Worksheets(3).Cells( Ñòðîêà, 12) = CDbl(TextBox2.Text) + CDbl(TextBox3.Text)

ActiveWorkbook.Worksheets(3).Select
End Sub

Private Sub UserForm_Activate()

ComboBox1.Clear
With Sheets(3)

x = .Range("B3:N" & .Cells(Rows.Count, 3).End(xlUp).Row)
End With

For n = 1 To UBound(x)
ComboBox1.AddItem (x(n, 1))
ComboBox1.List(n - 1, 1) = x(n, 2)
ComboBox1.List(n - 1, 2) = x(n, 3)
ComboBox1.List(n - 1, 3) = x(n, 4)
ComboBox1.List(n - 1, 4) = x(n, 5)
ComboBox1.List(n - 1, 5) = n + 1 'Ýòî íîìåð ñòðîêè

Next
End Sub

[doober]

Бубен шамана не помог?

Private Sub UserForm_Activate()
  ComboBox1.Clear
 With Sheets(3)
 x = .Range("B3:N" & .Cells(Rows.Count, 3).End(xlUp).Row)
 End With
 For n = 1 To UBound(x)
 ComboBox1.AddItem (x(n, 1))
 
 For m = 2 To 13
 ComboBox1.List(n - 1, m - 1) = x(n, m)
 Next
 ComboBox1.List(n - 1, 13) = n + 1
 Next
 End Sub
 
 Private Sub CommandButton1_Click()
    If ComboBox1.ListIndex = -1 Then Exit Sub
    Dim Строка As Long
    Строка = ComboBox1.List(ComboBox1.ListIndex, 13)
    Unload Me
    ActiveWorkbook.Worksheets(3).Cells(Строка, 2) = ComboBox1.Value
    ActiveWorkbook.Worksheets(3).Cells(Строка, 7) = TextBox1.Text
    ActiveWorkbook.Worksheets(3).Cells(Строка, 12) = CDbl(TextBox2.Text) + CDbl(TextBox3.Text)
    ActiveWorkbook.Worksheets(3).Select
End Sub

Процедуру Private Sub Combo() удалите,это остатки вашей

[Владимир2222]

Не хочет работать, пишет: Unspecified error

[doober]

Файл на 10 строк на базу

[Владимир2222]

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