Private Sub from_upper() 'SELECT CELL AFTER FILTER AND VISIBLE ONLY FROM UPPER WITHOUT TILE' Dim ws As Worksheet Set ws = Worksheets("Gen.Report") ws.Activate ws.Range("A1").Offset(1, 0).Select Range(Selection, Selection.End(xlToRight)).Select Do Until ActiveCell.EntireRow.Hidden = False ActiveCell.Offset(1, 0).Select Loop Range(Selection, Selection.End(xlToRight).End(xlDown)).Select End Sub '==============================================================================' Private Sub from_below() 'SELECT CELL AFTER FILTER AND VISIBLE ONLY FROM BELOW WITH TILE' Dim ws As Worksheet Set ws = Worksheets("Gen.Report") ws.Activate ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Select Do Until ActiveCell.EntireRow.Hidden = False ActiveCell.Offset(1, 0).Select Loop Range(Selection, Selection.End(xlToRight).End(xlUp)).Select End Sub
Preview:
downloadDownload PNG
downloadDownload JPEG
downloadDownload SVG
Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!
Click to optimize width for Twitter