Here's a basic macro that will do what you want. Adjust the cell A1 to the cell with your "date filter" in it, can change the RNG to the column where you have those dates. Right click on the sheet-tab and VIEW CODE...paste in this macro:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Dim rng As Range, cell As Range, lastrow As Long
lastrow = Range("A" & Rows.Count).End(xlUp).Row
Set rng = ActiveSheet.Range("A5:A" & lastrow)
Application.ScreenUpdating = False
Application.EnableEvents = False
Rows("5:10000").EntireRow.Hidden = False
For Each cell In rng
If cell.Value <= Target.Value Then
cell.EntireRow.Hidden = False
Else
cell.EntireRow.Hidden = True
End If
Next cell
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Bookmarks