Filter on today...how possible?
Hi all,
In the below VBA code I want to filter on Today. To do so I place today's date in a cell and copied that with the filtering. Unfortunately in the code 30/03/07 is places. Can somebody tell me how I could fix this? Thanks in advance, Wietse VBA code: Range("F26").Select ActiveCell.FormulaR1C1 = "=TODAY()" Range("B28:F28").Select Range(Selection, Selection.End(xlDown)).Select Range("B28:F300").Select Selection.AutoFilter ActiveWindow.SmallScroll Down:=-12 Range("F26").Select Selection.Copy Selection.AutoFilter Field:=5, Criteria1:="<30/03/07", Operator:=xlAnd |
Filter on today...how possible?
Try this:
Criteria1:=DateValue(Now) Hth, Merjet |
Filter on today...how possible?
Problem is that there is a smaller then sign before and using the code
you mentioned with a smaller sign before doens't work....any suggestions? On Mar 30, 4:12 pm, "merjet" wrote: Try this: Criteria1:=DateValue(Now) Hth, Merjet |
Filter on today...how possible?
Thanks but it doesn't seems to work. When useing the code you
mentioned the filter uses a other value and nothing is filtered out. Other ideas? On Mar 30, 4:36 pm, Dave Peterson wrote: maybe... Selection.AutoFilter Field:=5, Criteria1:="<" & format(date, "dd/mm/yy"), ... wrote: Hi all, In the below VBA code I want to filter on Today. To do so I place today's date in a cell and copied that with the filtering. Unfortunately in the code 30/03/07 is places. Can somebody tell me how I could fix this? Thanks in advance, Wietse VBA code: Range("F26").Select ActiveCell.FormulaR1C1 = "=TODAY()" Range("B28:F28").Select Range(Selection, Selection.End(xlDown)).Select Range("B28:F300").Select Selection.AutoFilter ActiveWindow.SmallScroll Down:=-12 Range("F26").Select Selection.Copy Selection.AutoFilter Field:=5, Criteria1:="<30/03/07", Operator:=xlAnd -- Dave Peterson- Hide quoted text - - Show quoted text - |
Filter on today...how possible?
Working with dates and autofilter can be troublesome. Sometimes you have to
experiment. Selection.AutoFilter Field:=5, Criteria1:="<" & clng(date), ... If this doesn't work... Are you sure that that field is formatted as dd/mm/yy? If it's not, then use the format that you use in this line: Selection.AutoFilter Field:=5, Criteria1:="<" & format(date, "mm/dd/yyyy"), ... wrote: Thanks but it doesn't seems to work. When useing the code you mentioned the filter uses a other value and nothing is filtered out. Other ideas? On Mar 30, 4:36 pm, Dave Peterson wrote: maybe... Selection.AutoFilter Field:=5, Criteria1:="<" & format(date, "dd/mm/yy"), ... wrote: Hi all, In the below VBA code I want to filter on Today. To do so I place today's date in a cell and copied that with the filtering. Unfortunately in the code 30/03/07 is places. Can somebody tell me how I could fix this? Thanks in advance, Wietse VBA code: Range("F26").Select ActiveCell.FormulaR1C1 = "=TODAY()" Range("B28:F28").Select Range(Selection, Selection.End(xlDown)).Select Range("B28:F300").Select Selection.AutoFilter ActiveWindow.SmallScroll Down:=-12 Range("F26").Select Selection.Copy Selection.AutoFilter Field:=5, Criteria1:="<30/03/07", Operator:=xlAnd -- Dave Peterson- Hide quoted text - - Show quoted text - -- Dave Peterson |
Filter on today...how possible?
Criteria1:="<" & DateValue(Now)
Hth, Merjet |
All times are GMT +1. The time now is 08:21 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com