Checkboox and Undoing

[xenoborg]

I have a list of data that I am trying to be able to quickly filter a list with checkboxes. Currently I have this bound to several checkboxes (one for each column)

Private Sub CheckBox1_Click()
Selection.AutoFilter Field:=27, Criteria1:="<>0", Operator:=xlAnd
End Sub

They successfully sort my data when checked, but don’t undo themselves when unchecked. Is there a way I can make them do with, preferably with check boxes?

Thanks

PS. It’s just a looks thing, but is there a way to reverse the states of the check box so that when it’s unchecked it does the filter?

 

[xenoborg]

Usin record Ive found that I can do

Selection.AutoFilter Field:=27

to revert it.

Im not great with VB syntax, how can I make it so if its checked it will do one, and if its unchecked it will do the other?

 

[xenoborg]

bump

 

[xenoborg]

OK, so now I have this:

Sub Filter()
If AU10 = "True" Then
Selection.AutoFilter Field:=25, Criteria1:="<>0", Operator:=xlAnd
Else
Selection.AutoFilter Field:=25
End If
End Sub

but, when I run it, it doent do anything.
AU10 contains TRUE or FALSE based on the state of my checkbox
The two autofilter macros work fine independently, so I think I messed up constructing the if statement.

 

[xenoborg]

If (Range("AU10") = True) Then
was the line that I need, so its working now