Макрос.

[mixer933]

Не могу написать код не выходит,не освоил на "хорошо"вба.Должно получиться как на скрине.

[Hugo121]

Чтоб так получилось - тут код не нужен. Тут старание и аккуратность нужна. Ну и ещё мышкой пользоваться нужно уметь

А если серъёзно - поясните, что должны делать все кнопки?

[mixer933]

написать макрос, с формой ввода-вывода, вводится имя фамилия и по нажатию кнопки, они заносятся в таблицу

[mixer933]

Вот получается так а как мне остальное написать?

[Hugo121]

"Извлечь" тогда вероятно лишняя:

Private Sub UserForm_Activate()
    TextBox1.Value = ActiveCell.Offset(0, 1)
    TextBox2.Value = ActiveCell.Offset(0, 2)
    Set oIcon = Nothing
End Sub

"Очистить" мне не понятно что должна делать, но в любом случае это просто.
Ну а что такое "Разметка таблицы" - вообще покрыто мраком...

[mixer933]

Проблема в том,что как заполнить ячейку "A"?

[Hugo121]

ActiveCell.Offset(0, 0)

Вернее просто ActiveCell

[mixer933]

Private Sub CommandButton1_Click()
 TextBox1.Value = Format(TextBox1.Value)

 ActiveCell.Offset(0, 0) = TextBox1.Value

 TextBox2.Value = Format(TextBox2.Value)
 ActiveCell.Offset(0, 1) = TextBox2.Value

End Sub

Private Sub CommandButton2_Click()
    Range("A2:B2").Select
    Range("A2").Activate
    Selection.ClearContents
End Sub

Private Sub UserForm_Activate()
 TextBox1.Value = ActiveCell.Offset(0, 0)
 TextBox2.Value = ActiveCell.Offset(0, 1)
End Sub

Разобрался,как отчистить.Спасибо,за помощь!

[Hugo121]

Очисить можно короче:

Private Sub CommandButton2_Click()
    Range("A2:B2").ClearContents
End Sub

И зачем так Format обкромсали? Если не нужен - выкиньте вообще:

Private Sub CommandButton1_Click()
    ActiveCell = TextBox1.Value
    ActiveCell.Offset(, 1) = TextBox2.Value
End Sub