Редактирование данных в таблице

[Владимир2222]

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

[Владимир2222]

Что, никто не сможет мне помочь? То что я прошу действительно так сложно сделать?

[doober]

Можно так.

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "База!A1:E800"
End Sub
Private Sub ComboBox1_Change()
Dim st As Integer
st = ComboBox1.ListIndex
If st < 0 Then Exit Sub
TextBox1.Value = ComboBox1.List(st, 1)
TextBox2.Value = ComboBox1.List(st, 2)
TextBox3.Value = ComboBox1.List(st, 3)
TextBox4.Value = ComboBox1.List(st, 4)
End Sub

[Владимир2222]

Спасибо, текстбоксы заполняются, но необходимо при корректировке оплаты, чтоб вносились изменения в эту же строку, а не в новую, это возможно с этой же кнопки или нужно сделать другую?

[doober]

Лучше отдельную кнопку

[kalbasiatka]

Private Sub CommandButton1_Click()
    With Sheets("База")
        lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        If ComboBox1.ListIndex = -1 Then
            .Cells(lr, 1) = ComboBox1.Value
            .Cells(lr, 2) = TextBox1.Text
            .Cells(lr, 3) = TextBox2.Text
            .Cells(lr, 4) = TextBox3.Text
            .Cells(lr, 5) = TextBox4.Text
        Else
            ms = MsgBox(prompt:="Такая запись уже существует! Заменить?", Title:="Предупреждение!", Buttons:=vbOKCancel)
            Select Case ms
                Case 1
                    li = ComboBox1.ListIndex + 1
                    .Cells(li, 2) = TextBox1.Text
                    .Cells(li, 3) = TextBox2.Text
                    .Cells(li, 4) = TextBox3.Text
                    .Cells(li, 5) = TextBox4.Text
                Case 2
                    Exit Sub
            End Select
        End If
    End With
End Sub