На листе есть несколько сортировок автофильтром (они стоят в разных местах листа). В данном случае - я расположил два автофильтра рядом.
Как макросом изменить нижний предел сортировки всех автофильтров на листе - до номера строки, который вписан в ячейку I9 ?
(Нужен именно макрос, поскольку - ручной способ здесь не поможет, так как в моем исходном файле, который я не смог загрузить из-за размера - автофильры настроены так, что располагаются в разных местах листа (а не рядом друг с другом). Поэтому при ручном изменении границ - придется заново проводить и настройку - выборочного отображения автофильтров)
Доброе утро, специалисты по программированию.
На листе есть несколько сортировок автофильтром (они стоят в разных местах листа). В данном случае - я расположил два автофильтра рядом.
Как макросом изменить нижний предел сортировки всех автофильтров на листе - до номера строки, который вписан в ячейку I9 ?
(Нужен именно макрос, поскольку - ручной способ здесь не поможет, так как в моем исходном файле, который я не смог загрузить из-за размера - автофильры настроены так, что располагаются в разных местах листа (а не рядом друг с другом). Поэтому при ручном изменении границ - придется заново проводить и настройку - выборочного отображения автофильтров)yl3d
Почему вы этот автофильтр гордо именуете "несколько автофильтров"? Для вашего файла, до номера строки, который вписан в ячейку N1 [vba]
Код
Sub HideAutoFilterDropdowns() With ActiveSheet If .AutoFilterMode Then .Range("A1").AutoFilter .Range("A2:L" & Range("N1").Value).AutoFilter With .AutoFilter.Range .AutoFilter Field:=2, VisibleDropDown:=False .AutoFilter Field:=3, VisibleDropDown:=False .AutoFilter Field:=6, VisibleDropDown:=False .AutoFilter Field:=7, VisibleDropDown:=False .AutoFilter Field:=10, VisibleDropDown:=False .AutoFilter Field:=11, VisibleDropDown:=False End With End With End Sub
[/vba]
Почему вы этот автофильтр гордо именуете "несколько автофильтров"? Для вашего файла, до номера строки, который вписан в ячейку N1 [vba]
Код
Sub HideAutoFilterDropdowns() With ActiveSheet If .AutoFilterMode Then .Range("A1").AutoFilter .Range("A2:L" & Range("N1").Value).AutoFilter With .AutoFilter.Range .AutoFilter Field:=2, VisibleDropDown:=False .AutoFilter Field:=3, VisibleDropDown:=False .AutoFilter Field:=6, VisibleDropDown:=False .AutoFilter Field:=7, VisibleDropDown:=False .AutoFilter Field:=10, VisibleDropDown:=False .AutoFilter Field:=11, VisibleDropDown:=False End With End With End Sub