Уважаемы форумчане помогите!
Есть вот такой макрос в UserForm для добавления нового лица. Несколько дней он работал, а вот теперь выдает ошибку, после которой закрывается Excel.
Помогите понять, что произошло.
Спасибо.
Есть вот такой макрос в UserForm для добавления нового лица. Несколько дней он работал, а вот теперь выдает ошибку, после которой закрывается Excel.
Помогите понять, что произошло.
Спасибо.
Код |
---|
Private Sub Add_new_requestor() Dim SheetClient As Worksheet Dim SheetClientListobj As ListObject Dim SheetClientlistrow As ListRow Dim cell As Range, r As Long Set SheetClient = ThisWorkbook.Worksheets("Client&Requestor") Set SheetClientListobj = SheetClient.ListObjects("Requestor_tb") Set cell = SheetClientListobj.ListColumns.Item(1).Range.Find(Me.Requestor_Cbox.Value, lookat:=xlWhole) If Not cell Is Nothing Then Exit Sub Else r = MsgBox("Would you like to add a requestor to the list?", vbYesNo, "Execution request") If r = vbNo Then Exit Sub Else Set SheetClientlistrow = SheetClientListobj.ListRows.Add SheetClientlistrow.Range(1) = Me.Requestor_Cbox.Text End If End If End Sub |