Comments on: Getting Array Data from a Filtered List in VBA

By: gruff999

gruff999 — Mon, 15 Mar 2010 14:53:00 +0000

If AutoFiltering is enabled, and an AutoFilter is in effect, AutoFilter.Range appears to be a pseudo UsedRange which includes all cells in scope for auto-filtering. The range it refers to doesn't change with different filtered row counts.

I used Intersect, feeding in xlVisible and AutoFilter.Range to get what I needed to create a chart from the filtered rows.

(You have to adjust AutoFilter.Range to remove the first row).

Not thoroughly tested as I'm referring back to an old bit of code.

Any good?

By: Devo

Devo — Tue, 09 Mar 2010 23:17:00 +0000

This worked for me...

""'

Sub Arr_Visible_Cells()

Dim rRow As Range
Dim aArr() As Variant
Dim i As Long
Dim lCount As Long
Dim CellCount As Variant
Dim Range_To_Get As Variant

CellCount = Sheets(1).UsedRange.Rows.Count
Range_To_Get = Sheets(1).UsedRange.Address

ReDim aArr(1 To 3, 1 To CellCount)

lCount = 1
i = 1
For Each rRow In Sheets(1).Range(Range_To_Get)
If lCount = 4 Then
i = i + 1
lCount = 1
End If
If rRow.Rows.Hidden = False Then
aArr(lCount, i) = rRow
Else
GoTo Devo:
End If
lCount = lCount + 1
Devo:
Next

ReDim Preserve aArr(1 To 3, 1 To i)

aArr = Application.Transpose(aArr)
End Sub

Good Luck

Devo

By: AlexJ

AlexJ — Tue, 09 Mar 2010 17:16:00 +0000

I might be tempted to read the full (unfiltered) range into an array (to keep the number of sheet read actions down) and then put each row into a collection element, filtering out unwanted elements during the process.

I tend to do my manipulations on the collection elements, then write to an array to load onto the sheet, but you could load the array from the collection before manipulation.

I DO like geoff's SQL idea, though.

By: hans schraven

hans schraven — Tue, 09 Mar 2010 13:40:00 +0000

I forgot

With Sheets(1).usedrange
.autofilter 1,"test"
.offset(1).specialcells(xlcelltypevisible).copy sheets(1).cells(1,27)
.autofilter
End with
sq=sheets(1).cells(1,27).currentregion
sheets(1).cells(1,27).currentregion.clearcontents

By: hans schraven

hans schraven — Tue, 09 Mar 2010 13:38:00 +0000

The simplest way:
copy the cells to an empty space
read the data there

With Sheets(1).usedrange
.autofilter 1,"test"
.offset(1).copy sheets(1).cells(1,27)
.autofilter
End with
sq=sheets(1).cells(1,27).currentregion
sheets(1).cells(1,27).currentregion.clearcontents

By: geoff

geoff — Tue, 09 Mar 2010 09:19:00 +0000

Are you committed to using an autofilter? If not, an advanced filter extracting to a new range would do the trick. Or, a SQL query perhaps?

By: Jim Cone

Jim Cone — Tue, 09 Mar 2010 02:31:00 +0000

'Uses a variant array
'Uses the range that is auto filtered
'Transposes the filled array
'Me thinks you may have something else in mind?

Sub ArrFilteredList2()

Dim rRow As Range
Dim vArr As Variant
Dim i As Long
Dim lCount As Long
Dim af As AutoFilter
Dim rng As Range

Set af = ActiveSheet.AutoFilter
Set rng = af.Range
Set rng = rng.Offset(1, 0).Resize(rng.Rows.Count - 1, rng.Columns.Count)
ReDim vArr(1 To 3, 1 To rng.Rows.Count)

For Each rRow In rng.Rows
If rRow.Hidden = False Then
lCount = lCount + 1
For i = 1 To 3
vArr(i, lCount) = rRow.Cells(i).Value
Next i
End If
Next rRow

ReDim Preserve vArr(1 To 3, 1 To lCount)
vArr = Application.Transpose(vArr)
'Stop
MsgBox UBound(vArr, 1) & vbCr & UBound(vArr, 2)
End Sub