How to get of all number rows in the autofilter range

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Valery - 16 Nov 2007 13:40 GMT

Hello.
In the sheet i have autofilter And after appled autofilter I need get of all
number rows in .AutoFilter.Range.SpecialCells(xlCellTypeVisible)

Thank you for you time

Reply to this Message

Bernie Deitrick - 16 Nov 2007 15:04 GMT

Valery,

Not quite sure what you are looking for.... try, maybe, this:

Sub Macro1()
Dim myA As Range
Dim myC As Range
Dim myR As Range

Set myR = Intersect(Columns("B:B"), Range("B2").CurrentRegion) _
.SpecialCells(xlCellTypeVisible)
For Each myA In myR.Areas
For Each myC In myA.Cells
MsgBox "Cells in row " & myC.Row & " are visible."
Next myC
Next myA
End Sub

HTH,
Bernie
MS Excel MVP

> Hello.
> In the sheet i have autofilter And after appled autofilter I need get of all
> number rows in .AutoFilter.Range.SpecialCells(xlCellTypeVisible)
>
> Thank you for you time

Reply to this Message