how to filter column by last working day in excel

NoSparks · #11 02-20-2017, 10:34 AM

This doesn't use Filter, but, I think it might accomplish what you're after.

Code:

Sub Show_Last_Day_Only()
    Dim lr As Long
With Sheets("Sheet1")
    lr = .Cells(Rows.Count, "A").End(xlUp).Row
    Rows("3:" & lr - 1).Hidden = True
End With
End Sub

and to bring everything back

Code:

Sub Show_All_Days()
    Dim lr As Long
With Sheets("Sheet1")
    lr = .Cells(Rows.Count, "A").End(xlUp).Row
    Rows("3:" & lr - 1).Hidden = False
End With
End Sub

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