Всем добрый день!
Excel выдает ошибку, начиная со строки, выделенной жирным цветом.
Ранее макрос работал без проблем, сейчас внезапно стал выдавать ошибку.
Кто-нибудь может помочь разобраться в чем ошибка?? Уже всю голову сломала, в макросах новичок....
Код |
---|
Sub AddBase() 'Добавление новой записи
Set ShBase = ThisWorkbook.Worksheets("Клиентская база")
Set BaseListObj = ShBase.ListObjects("АКБ_tb")
Set BaseListRow = BaseListObj.ListRows.Add
BaseListRow.Range(2) = Base.cbx_ts.Value ' здесь ошибка
BaseListRow.Range(3) = Base.txb_suppl.Value
BaseListRow.Range(4) = Base.txb_nameTT.Value
BaseListRow.Range(5) = Base.txb_format.Value
BaseListRow.Range(6) = Base.cbx_territory.Value
BaseListRow.Range(7) = Base.cbx_city.Value
BaseListRow.Range(8) = Base.txb_adress.Value
BaseListRow.Range(9) = Base.cbx_type.Value
BaseListRow.Range(10) = Base.cbx_status.Value
BaseListRow.Range(11) = Base.txb_comment.Value
BaseListRow.Range(12) = Base.cbx_manager.Value
End Sub |