Application-defined or object-defined error

Application-defined or object-defined error, VBA

Пользователь

Сообщений: 142 Регистрация: 24.02.2015

14.05.2020 15:41:13

Не могу найти информацию, в чем заключается ошибка и как ее правильно исправить … Настраиваю обновление источника сводной по изменению ячейки.

Буду благодарен за совет

Код

Private Sub Worksheet_Change(ByVal Target As Range)
'On Error Resume Next
Worksheets(1).Activate
If Intersect(Target, Worksheets(1).Range(Cells(4, 6))) Is Nothing Then Exit Sub
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveWorkbook.ActiveSheet.DisplayPageBreaks = False
Application.StatusBar = False

ActiveWorkbook.RefreshAll

Прикрепленные файлы

VBA error Application-defined or object-defined error.png (3.66 КБ)
Annotation 2020-05-14 154536.jpg (35.55 КБ)
VBA error Application-defined or object-defined error.xlsb (21.14 КБ)

Изменено: Дмитрий Марков - 14.05.2020 16:02:08

Hugo

Пользователь

Сообщений: 23795 Регистрация: 22.12.2012

14.05.2020 15:43:11

смотрю отображение поправилось...
Но этого мало, пример в файле давайте.
Хотя если эту строку скорректировать так:

Код
If Intersect(Target, Worksheets(1).Cells(4, 6)) Is Nothing Then Exit Sub

то ошибки нет.
Но никакие активации тут не нужны по логике процесса, как и использование Worksheets(1)

Изменено: Hugo - 14.05.2020 15:55:50

Дмитрий Марков Пользователь Сообщений: 142 Регистрация: 24.02.2015	#3 14.05.2020 16:27:03 Hugo, все отлично сработало, сначала попал в циклическое обновление - отключил события, стало обновляться как надо, активацию и воркшит убрал, как ненужные, а статусбар вернул Большое Вам спасибо!