how to filter column by last working day in excel

#16 02-20-2017, 04:57 PM

here it is

NoSparks · #17 02-20-2017, 05:47 PM

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

The message box is just to show what's actually in that last cell.
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 02-20-2017, 06:07 PM

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