помогите доработать код, с текстом кнопка работает но вот если в ячейке даты то фильтр ломается
вот код.
Private Sub CheckBox7_Click()
If CheckBox7 Then
ActiveSheet.Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell)).AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell
Else
ActiveSheet.ShowAllData 'Showalldata снимает фильтры со всей таблицы, независимо от расположения выделенной ячейки
ClearFields
End If
End Sub
вот код.
Private Sub CheckBox7_Click()
If CheckBox7 Then
ActiveSheet.Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell)).AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell
Else
ActiveSheet.ShowAllData 'Showalldata снимает фильтры со всей таблицы, независимо от расположения выделенной ячейки
ClearFields
End If
End Sub