Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
перестает работать макрос на офисе 365
 
#1
25.02.2020 21:24:26
на виндовс ХР, эксель 2010 все работает. Этот же макрос на фисе 365 выдает ошибку на ActiveSheet.Range. Не могу понять почему?
Подскажите пожалуйста, как нужно отредоктировать?
Код
    Sub Обнов()

Worksheets("Сводная").Unprotect Password:="11679"
    ActiveSheet.Range("$D$10:$D$37437").AutoFilter Field:=1
    Range("D12").Select
    ActiveSheet.PivotTables("СводнаяТаблица5").RepeatAllLabels xlDoNotRepeatLabels
    Range("D14").Select
    With ActiveSheet.PivotTables("СводнаяТаблица5").PivotFields("ДО")
        .PivotItems("12:00:00 AM").Visible = True
    End With
    ActiveSheet.PivotTables("СводнаяТаблица5").PivotCache.Refresh
    With ActiveSheet.PivotTables("СводнаяТаблица5").PivotFields("ДО")
        .PivotItems("12:00:00 AM").Visible = False
    End With
   Worksheets("Сводная").Protect Password:="11679", DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub
 
 
 
#2
26.02.2020 00:02:48
Файл где ?
 
 
 
#3
26.02.2020 07:37:05
отредОктировать  наверно не получится, но смущает, что  в коде
ActiveSheet.Range("$D$10:$D$37437").AutoFilter Field:=1
а ошибку выдает на
ActiveSheet.Range("$D$12:$D$37437").AutoFilter Field:=1

В 365 ИИ правит код самостоятельно  :D
Изменено: БМВ - 26.02.2020 09:19:20
По вопросам из тем форума, личку не читаю.
 
 
 
#4
26.02.2020 09:15:42
А меня смущает тот факт, что защиту снимаем с листа "Сводная", а работаем с активным листом. Сдается мне, что это могут быть разные листы...
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#5
27.02.2020 08:43:22
Дмитрий(The_Prist) Щербаков, Да, виноват. Это я искал решения и забыл исправить.
Похоже проблема в том, что макрос не включат и не отключает фильтр, который стоит выше сводной таблицы.
Дмитрий, в далеком 2018 г. Вы мне помогли найти решение как сделать Фильтр по цвету в сводной таблице) https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=103460&MID=855468#message855468  Спасибо! Далее я сделал макрос фильтрации. Но на 2010 офисе все работает, а на 365 - нет. Возможно в 365 офисе нельзя чтобы фильтр "перекрывал" сводную таблицу?
Код
Sub Макрос1()
    ActiveSheet.Range("$A$10:$D$26").AutoFilter Field:=4, Criteria1:=RGB(255, _
        255, 0), Operator:=xlFilterCellColor
  End Sub

Sub Макрос2()
    ActiveSheet.Range("$A$10:$D$26").AutoFilter Field:=4
End Sub
 
 
 
#6
27.02.2020 09:00:50
Попробуйте так:
Код
Sub Макрос1()
    ActiveSheet.Range("$A$10").AutoFilter Field:=4, Criteria1:=RGB(255, _
        255, 0), Operator:=xlFilterCellColor
  End Sub
т.е. указать только первую ячейку установленного фильтра
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#7
27.02.2020 16:20:29
Дмитрий(The_Prist) Щербаков,Ура!!! Спасибо! Выручили еще раз. Теперь работает.
 
 
 
Страницы: 1
Наверх