#16
|
|||
|
|||
here it is
|
#17
|
|||
|
|||
Code:
Sub Filter_for_last_day() Dim lr As Long Dim crit As Double With Sheets("sheet1") lr = .Cells(Rows.Count, "A").End(xlUp).Row crit = .Cells(Rows.Count, "A").End(xlUp).Value2 MsgBox "This is what Excel actually sees in the last cell" & vbLf & crit .Range("A2:A" & lr).AutoFilter Field:=1, Operator:=xlFilterValues, Criteria1:=">" & Int(crit) End With End Sub To the left of the decimal is the day (the number of days since Jan 1, 1900) and to the right is the time as a decimal amount of 24 hours. Msgbox can be removed or commented out. |
#18
|
|||
|
|||
Awesome
Thank you Thank you Thank you!!!!! |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Report chart filter not working | Asita | Project | 5 | 07-07-2015 01:08 PM |
Contact view filter not working | gebobs | Outlook | 2 | 03-10-2014 06:28 AM |
Range Name in Adv Filter -> NOt working | 56_kruiser | Excel | 2 | 11-20-2012 09:58 AM |
drop down menu that control filter on other column | massi | Excel | 0 | 08-24-2010 01:13 PM |
junk email filter not working | michmurp | Outlook | 0 | 09-15-2008 10:57 AM |