работа с userform

[Garf]

Помогите закончить программу, чтобы она выводила таблицу когда работает программа

[Garf]

Private Sub Us_Initialize()
Com.AddItem "городской"
Com.AddItem "междугородний"
Com.AddItem "международный"
End Sub

Private Sub Co_Сlick()
Dim n As Integer
Worksheets(1).Activate
Range("a1").Select
n = ActiveCell.CurrentRegion.Rows.Count
With Worksheets(1)
.Cells(n + 1, 1).Value = T.Value
.Cells(n + 1, 2).Value = Te.Value
.Cells(n + 1, 3).Value = Com.Value
.Cells(n + 1, 4).Value = Tex.Value
.Cells(n + 1, 5).Value = Text.Value
If O.Value Then
.Cells(n + 1, 6).Value = "В кредит"
End If
If Op.Value Then
.Cells(n + 1, 6).Value = "По тарифу"
End If
End With
End Sub

Посмотрите чего не хватает в программе, чтобы текст сорхранялся в таблице?

[Hugo121]

Чуть подправил.
А чтоб заработало - название изменил

Private Sub CommandButton_Click()
Dim n As Integer
With Worksheets(1)
n = .[a1].CurrentRegion.Rows.Count
.Cells(n + 1, 1).Value = TextBox.Value
.Cells(n + 1, 2).Value = TextBoxx.Value
.Cells(n + 1, 3).Value = ComboBox.Value
.Cells(n + 1, 4).Value = TextBoxxx.Value
.Cells(n + 1, 5).Value = TextBoxxxx.Value
If OptionButton.Value Then
.Cells(n + 1, 6).Value = "В кредит"
Else
.Cells(n + 1, 6).Value = "По тарифу"
End If
End With
End Sub

Вообще-то надо бы после занесения текстбоксы очищать, чтоб случайно повторно данные не занесли...

[Garf]

спасибо большое))

[Hugo121]

Забыл - n нужно As Long, иначе после 32767 будет ошибка.