Не могу найти информацию, в чем заключается ошибка и как ее правильно исправить … Настраиваю обновление источника сводной по изменению ячейки.
Буду благодарен за совет
Буду благодарен за совет
Код |
---|
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 |
Изменено: Дмитрий Марков - 14.05.2020 16:02:08