Solved: assign value to array

[benong]

hi,
After filtering data, how can i assign these filtered data (visible cell) to an array?

    Worksheets("Sheet1").Range("H1").AutoFilter
    Selection.AutoFilter Field:=2, Criteria1:="none"

[Bob Phillips]

I don't think you can automatically do this. The visible range will consist of many range areas, and if you set an array to this range it will only pick up the first area.

[benong]

dear xld,

many thanks for your advice.
Now i know why i kept getting error messages for the whole day.
I adopt another method which is now working for me

        For i = 2 To RowCount
            If Cells(i, 8).Value = "none" Then
                arraySize = arraySize + 1
            End If
        Next i
        ReDim myArray(arraySize - 1) As Variant
        n = 0
        For i = 2 To RowCount
            If Cells(i, 8).Value = "none" Then
                myArray(n) = Cells(i, 6).Value
                n = n + 1
            End If
        Next i
        FilteredData = myArray

[Bob Phillips]

I think that is how I would probably do it.