Private Sub CommandButton2_Click Dim As Integer IsLossed If Then MsgBo

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton2_Click()
Dim l As Integer
l = IsLossed()
If l = 1 Then
MsgBox "Запись была внесена ранее!"
Exit Sub
End If
If l = 0 Then
On Error GoTo E
Rows("2:2").Select
Selection.Insert Shift:=xlDown ' вот здесь возникает ошибка
Cells(2, 1) = TextBox2.Text
Cells(2, 2) = TextBox3.Text
Columns("A:B").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
MsgBox "Данные внесены в список."
Exit Sub
E:
MsgBox "При добавлении произошла непредвиденная ошибка."
End If
End Sub