Filter table by date in another cell

[afc171]

Hi all,

how would I filter the table bye column C if I enter a date in L1?

Thank you

 

[DanteAmor]

Put in the following code in your sheet events.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$L$1" Then
    If Target.Count > 1 Then Exit Sub
    If IsDate(Range("L1").Value) Then
      ActiveSheet.Range("$A$1:$I$1").AutoFilter
      Range("A1:I1").AutoFilter 3, , xlFilterValues, Array(2, Format(Range("L1").Value, "mm/dd/yyyy"))
      Range("L1").Select
    End If
  End If
End Sub

Note Sheet Event:
Right click the tab of the sheet you want this to work, select view code and paste the code into the window that opens up.

 

[afc171]

Thanks DanteAmor worked like a charm!