Loop through Filtered Data

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Is there a method to loop thorugh each row of a filtered data set? Should I
just copy the filtered data set to another sheet and run my loop there since
the data will be in sequential rows? Thanks.

Mike
 
Dim rng as Range, rng1 as Range
Dim rng2 as Range
set rng = activesheet.autofilter.range
set rng1 = rng.offset(1,0).resize(rng.rows.count-1,1)
On error resume next
set rng2 = rng1.specialCells(xlVisible)
On error goto 0
if not rng2 is nothing then
for each cell in rng2
msgbox rng2.Address
Next
End if
 
Back
Top