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

Thread Tools
Show Printable Version Email this Page Mark this thread as solved
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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