Move to displayed row of filtered list
Michael,
From a prior post by Tom Ogilvy......
John
<snip
Sub GetFirst()
Dim rng As Range
Set rng = ActiveSheet.AutoFilter.Range
Set rng = rng.Offset(1, 0).Resize(, 1) _
.SpecialCells(xlVisible)
Set rng = Intersect(rng(1, 1).EntireRow, _
ActiveSheet.AutoFilter.Range)
rng.Select
End Sub
<snip
Michael Singmin wrote:
Hello Group,
If a list is filtered, can one move to the first displayed row after
the header row ?
Thanks,
Michael Singmin
|