Ввод и корректировка данных в дин. таблице ?

[web_lover]

Здравствуйте,
У меня такая таблица:



в форме уже есть combobox с помощью которого получаю данные об item из Table1 в textbox1,2,3.
Хочу расширить возможности формы добавляя три кнопки:-
Первая (Edit) которая поможет добавить данные из textbox1,2,3 в пустые ячейки для данного item в combobox1 или изменить данные если не корректны.
Вторая (Add) добавить новый item и его данные из textbox1,2,3 в новую строку в Table1 сверху. новый item пишется в textbox4. и здесь у меня вопрос о возможности введения нового item сразу в combobox1 вместе textbox4.
Третья (Delete) это для удаления строки из Table1 соответствующую item в combobox1.

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

[web_lover]

Забыл приложить файл

[Teslenko_EA]

Здравствуйте web_lover.
для "расширения возможности" думаю достаточно выполнить корректировку
1. удалите два контрола, TextBox4 и CommandButton3 (Delete)
2. подпись CommandButton1 измените на SAVE
3. разместите код в модуле формы

Dim q%
Private Sub CommandButton2_Click()
    q = 0
    TextBox1.Text = Empty: TextBox2.Text = Empty: TextBox3.Text = Empty
    ComboBox1 = Empty
End Sub
Private Sub CommandButton1_Click()
Dim i%
With ComboBox1
If q = 0 Then
    If Len(.Text) = 0 Then Exit Sub
    i = .ListCount: .AddItem: .List(i, 0) = .Text
    .List(i, 1) = TextBox1.Text: .List(i, 2) = TextBox2.Text: .List(i, 3) = TextBox3.Text
    q = i
ElseIf Len(.Text) = 0 Then
    .RemoveItem q
    TextBox1 = Empty: TextBox2 = Empty: TextBox3 = Empty
    q = 0
Else
    .List(q, 1) = TextBox1.Text: .List(q, 2) = TextBox2.Text
    .List(q, 3) = TextBox3.Text: .List(q, 0) = .Text
End If
Sheets(1).[a2:d6000].ClearContents
i = .ListCount + 1
Sheets(1).Range("a2:d" & i).Value = .List
End With
End Sub
Private Sub UserForm_Activate()
Dim i%
    i = WorksheetFunction.CountA(Sheets(1).[a:a])
    ComboBox1.List = Sheets(1).Range("a2:d" & i).Value
End Sub
Private Sub ComboBox1_Click()
With ComboBox1
    q = .ListIndex
    TextBox1.Text = .Column(1)
    TextBox2.Text = .Column(2)
    TextBox3.Text = .Column(3)
End With
End Sub

этих действий достаточно чтобы можно было :
подготовить место для новой записи (Add)
сохранить изменения в выбранной существующей записи (SAVE)
удалить существующую, удалив (стереть) её имя (SAVE)

Евгений.

[web_lover]

Здравствуйте Евгений, да код здорово работает, но позвольте мне уточнить кое-что:
Вы старались сжать все в одной кнопке, это здорово, но код для мне ещё сложен .

хотелось бы остановиться пока на простые коды как код для combobox1

Private Sub UserForm_Activate()
    ComboBox1.List = Range("Table1").Value
End Sub
Private Sub ComboBox1_Click()
    TextBox1.Text = ComboBox1.Column(1)
    TextBox2.Text = ComboBox1.Column(2)
    TextBox3.Text = ComboBox1.Column(3)
End Sub

Хочу знать просто какой код добавляет строку в Table1 сверху и вставляет данные из textbox4,1,2,3 в ячейки новой строки. это будет кнопка (Add).
у меня такой код нашелся

Private Sub Button1_Click()
Sheets(1).Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
    Cells(2, 1) = TextBox4.Text
    Cells(2, 2) = TextBox1.Text
    Cells(2, 3) = TextBox2.Text
    Cells(2, 4) = TextBox3.Text
End Sub

Но здесь надо указать имя листа и строку относительно листу а не относительно таблице.

Второе (Delete) как можно удалить строку из Table1 первую строку относительно таблицы, конечно первую после заголовок (в пример удаления последнего ввода). и другая кнопка так же для удаления строки совпадавшую с item в ComboBox1.

А на счет Edit или Save можно как-то упростить ваш код.

P.S. Евгений потерпите меня с моими вопросами. Ваш код работает но я хочу постепенно понимать каждый код начиняя с простых.

[Teslenko_EA]

web_lover, учиться и пытаться осмысливать это похвально, "..понимать каждый код начиняя с простых..." - конечно понимать надо, но не стоит углубляться и развивать тему "простого кодирования", умея ездить на мотоцикле езде на велосипеде не придется долго учиться, пересаживаться с велосипеда на мотоцикл сложнее.
Евгений