Checkbox to apply and remove a filter in a specific column

[3link]

I created a code for CheckBox57 that is intended to apply a filter to a specific column (field 15 within the filter range) when selected and remove that same filter when deselected. See below.

Sub CheckBox57_Click()
Select Case CheckBox57
Case True
Dat = Format(Range("AY3").Value, "mm/dd/yyyy")
ActiveSheet.Range("A2:AT2").AutoFilter Field:=15, Criteria1:=">" & Dat
Case False
ActiveSheet.Range("A2:AT2").AutoFilter Field:=15
End Select
End Sub

The code does not work. Every time I click and unclick the checkbox, no filter is applied. Interestingly, if I invert the false and the true in the code, I get the opposite result. The filter is applied each time.

Sub CheckBox57_Click()
Select Case CheckBox57
Case False
Dat = Format(Range("AY3").Value, "mm/dd/yyyy")
ActiveSheet.Range("A2:AT2").AutoFilter Field:=15, Criteria1:=">" & Dat
Case True
ActiveSheet.Range("A2:AT2").AutoFilter Field:=15
End Select
End Sub

I attempted changing it to an afterupdate event but that didn't work. I also attempted linking the event to the linked cell instead of the checkbox itself and got the same result.

 

[Logit]

Try the following and let me know :

Sub CheckBox57_Click()
    Dim Dat As String
    
    ' Check the value of the checkbox
    Select Case CheckBox57.Value
        Case True
            ' Format the date from AY3 as mm/dd/yyyy
            Dat = Format(Range("AY3").Value, "mm/dd/yyyy")
            
            ' Apply the filter on Field 15 with criteria greater than the date
            ActiveSheet.Range("A2:AT" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row).AutoFilter Field:=15, Criteria1:=">" & Dat
            
        Case False
            ' Remove the filter from Field 15
            ActiveSheet.Range("A2:AT" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row).AutoFilter Field:=15
    End Select
End Sub

 

[3link]

Try the following and let me know :

Sub CheckBox57_Click()
    Dim Dat As String
   
    ' Check the value of the checkbox
    Select Case CheckBox57.Value
        Case True
            ' Format the date from AY3 as mm/dd/yyyy
            Dat = Format(Range("AY3").Value, "mm/dd/yyyy")
           
            ' Apply the filter on Field 15 with criteria greater than the date
            ActiveSheet.Range("A2:AT" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row).AutoFilter Field:=15, Criteria1:=">" & Dat
           
        Case False
            ' Remove the filter from Field 15
            ActiveSheet.Range("A2:AT" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row).AutoFilter Field:=15
    End Select
End Sub

I appreciate the reply. When I attempt to run that code I get a run-time error 424 "object required." It highlights the below text.

Select Case CheckBox57.Value

 

[3link]

Try the following and let me know :

Sub CheckBox57_Click()
    Dim Dat As String
   
    ' Check the value of the checkbox
    Select Case CheckBox57.Value
        Case True
            ' Format the date from AY3 as mm/dd/yyyy
            Dat = Format(Range("AY3").Value, "mm/dd/yyyy")
           
            ' Apply the filter on Field 15 with criteria greater than the date
            ActiveSheet.Range("A2:AT" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row).AutoFilter Field:=15, Criteria1:=">" & Dat
           
        Case False
            ' Remove the filter from Field 15
            ActiveSheet.Range("A2:AT" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row).AutoFilter Field:=15
    End Select
End Sub

I think I figured out the problem. If I use an activex checkbox instead, your code works. Thank you so much!

 

[Logit]

You are welcome.