Сообщение об ошибке выглядит следующим образом:
Run-time error '-2147417848 (80010108)'
Automation error
Вызванный объект был отключен от клиентов.
Происходит это в следующем отрывке кода:
- Код: Выделить всё
With Worksheets("Заказы (Д)")
.Names.Add Name:="spisok_imenD", RefersToR1C1:="=R6C50:R" & CStr(5 + M) & "C50"
End With
With Worksheets("Заказы (Д)").Columns("F:F").Validation
.Delete
'ОШИБКА ПРОИСХОДИТ ПРИ ВЫПОЛНЕНИИ СЛЕДУЮЩЕГО ОПЕРАТОРА'
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=spisok_imenD"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
По сути в этом отрывке должно происходить следующее:
Берем некоторый диапазон, присваиваем ему имя, а потом используем как условие проверки значения в ячейке с выпадающим списком.
Всем заранее огромное спасибо!