Filtered Range VBA

  • Thread starter Thread starter T2B
  • Start date Start date
hi,

Sub FilteredRange()
Dim plg As Range, x As Variant, x1 As String, xx As String
Set plg = ActiveSheet.Range("_filterdatabase").SpecialCells(xlCellTypeVisible)
x = Split(plg.Address, ",")
If Not UBound(x) = 0 Then
x1 = x(1) ' filter's first row
xx = x(UBound(x)) ' filter's last row
Range(x1 & ":" & xx).Select
End If
End Sub


--
isabelle



Le 2011-06-28 12:13, T2B a écrit :
 
Dim strVisible As String
Dim rngFiltered As Range
strVisible = ActiveSheet.AutoFilter.Range.Address
Set rngFiltered = ActiveSheet.Range(strVisible).SpecialCells(xlCellTypeVisible)
--
Jim Cone
Portland, Oregon USA
http://www.mediafire.com/PrimitiveSoftware
(Extras for Excel add-in: convenience built-in)



"T2B" <[email protected]>
wrote in message
news:8fed3904-3eee-4963-866c-9508649529bc@q15g2000yqk.googlegroups.com...
 
Back
Top