Макрос фильтр

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

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

13.09.2019 13:56:51

помогите доработать максрос

чтоб чекбосом он отключалься а то включение работает а отключение нет

If CheckBox7 Then
ActiveSheet.Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell)).AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell

Else
ActiveSheet.Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell)).AutoFilter Field:=ActiveCell.Column = 1

End If

Hellmaster

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

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

13.09.2019 14:00:23

Код
If CheckBox7=true Then

Вроде так должно быть

Hellmaster

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

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

13.09.2019 14:03:56

У вас фильтры нужно снять со всей таблицы или из одного столбца?

Код

If CheckBox7= True Then
ActiveSheet.Range(Cells(1, 1),  Cells.SpecialCells(xlCellTypeLastCell)).AutoFilter  Field:=ActiveCell.Column, Criteria1:=ActiveCell
   
Elseif CheckBox7= False Then
ActiveSheet.Showalldata

End If

Тут он снимает все фильтры с таблицы на листе

Изменено: Hellmaster - 13.09.2019 14:08:02

fedsum Пользователь Сообщений: 226 Регистрация: 12.02.2013	#4 13.09.2019 14:06:02 фильтр снять со столбюца на котором включен фильтр а он включен там где стоял курсор и нажалась кнопка ActiveSheet.Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell)).AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell

fedsum Пользователь Сообщений: 226 Регистрация: 12.02.2013	#5 13.09.2019 14:10:58 спасибо все работает вот код Private Sub CheckBox7_Click() If CheckBox7 Then ActiveSheet.Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell)).AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell Else ActiveSheet.ShowAllData End If End Sub

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#6 13.09.2019 15:14:28 Сначала автор вернется в свои сообщения, оформит код с помощью кнопки <...>, предложит назвние темы согласно правил форума. После того, как модераторы переименуют тему, сообщения с помощью откроются.