Set Range based on selected rows.

Logit · #2 11-17-2018, 05:43 PM

This will autofilter any row/s ... cell/s you select. By "cell/s" I mean, you can select a single cell in row 14 but the entire row will be filtered viewable.

Code:

Sub SelFilterRange()
Dim crit()                As Variant
Dim n                     As Long
Dim rgCell                As Range

ReDim crit(1 To Selection.Count)

n = 1
For Each rgCell In Selection.Cells
    crit(n) = CStr(rgCell.Value)
    n = n + 1
Next rgCell

ActiveSheet.Range("$A$2:$AC$476").AutoFilter Field:=1, Criteria1:=crit, Operator:=xlFilterValues
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Conditional Formatting Individual Rows in a range	Phil H	Excel	3	11-05-2018 12:09 PM
Import a specific range (bookmarked section) from all Word docs in a selected folder	Greengecko	Word VBA	5	06-14-2016 07:54 AM
Find and Delete Rows based on a range	damaniam	Excel Programming	2	03-12-2014 06:06 AM
How to remove blank rows from a specified range?	Learner7	Excel	1	04-19-2011 02:45 AM
Temporarily show/hide selected table rows	glricht	Word Tables	0	12-29-2009 05:40 AM