-
-
-
For interface: Select filtered text. Press alt-semicolon to select only visible text, then copy. (Note the interface usually will only copy visible cells by default, but I have noticed this problem in 97. I thought it was corrected in later versions.)
For vba you can use the special cells modifier[vba]Sub Foo()
Dim rng As Excel.Range
Set rng = Selection
Set rng = rng.SpecialCells(xlCellTypeVisible)
MsgBox rng.Address
End Sub[/vba]
(Note: If your data is framented to the point that SpecialCells yields more than 8192 non-contiguous cells then SpecialCells throws an exception. If you encounter this, you may have to go for a more more indepth solution.)
Edit: Whups... Missed the disregard post.
Cordially,
Aaron
Keep Our Board Clean! - Please Mark your thread "Solved" if you get an acceptable response (under thread tools).
- Enclose your code in VBA tags then it will be formatted as per the VBIDE to improve readability.
-
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules