Macro/Date/Advanced Filter
I'm looking for a way to have a macro use the advanced filter to filter out a date using the greater than or equal to.
The date needs to be changeable, so I have the user inputing the date, but can't figure out how to get the advanced filter to work when inputing the date manually (via InputBox).
This is as far as my macro goes for now, because I'm stuck:
Rows("1:4").Select
Selection.Insert Shift:=xlDown
Range("E5").Select
Selection.Copy
Range("E1").Select
ActiveSheet.Paste
ActiveWindow.LargeScroll ToRight:=1
Range("Q5:R5").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll ToRight:=-1
Range("F1").Select
ActiveSheet.Paste
Date = InputBox(prompt:="Please Enter Date")
If Date = " " Then Exit Sub
Range("D2").Value = Date
The criteria range is going to be in E2:G2. And the InputBox won't allow me to put the date as >="Date"
Any ideas?
|