Populating an array from a filtered data

SMI// · July 27th, 2009, 03:04 AM

Dear all

I am finding a problem working with filtered range selection. Actually I want to populate an array with the filtered data. Here is my code that selects the filtered data but being new to array concepts, I want your help to figure out the code that could fill all the data for columns A thru J from the filtered data.

Sub intero()
Dim a, b As Single
Range("j65536").Select
a = 1
b = Range("j65530").End(xlUp).Row
Range("a" & a & ":j" & b).Copy
End Sub

Thanks in advance

allenm · August 4th, 2009, 07:12 PM

Not exactly sure what you are trying to do... copy to another sheet? Just place in clipboard?

To just place the filtered information in the clipboard, I guess you could do this:

Code:

Range("a1:f" & Range("f65536").End(xlUp).Row).Copy

However I think it'd be just as easy to place the paste in the same command if you're copying to another sheet, like this:

Code:

Range("a1:f" & Range("a1:f" & Range("f65536").End(xlUp).Row).Copy _
    Destination:=Worksheets("Sheet2").Range("A1")

Hope this helps at least point in the right direction.