Copy portion of filtered list

**tcowen61** · 07-07-2009, 11:14 AM

I need the VB code to copy just a portion of a filtered list. I have completed the code to sort and filter the list. I'm having a problem determining how to define the region needed. I have searched the forums and found a few helpful threads but nothing specific. Most show selecting all the columns of the filtered list.

My list is in columns A:AA and begins in row 4 (header row). In my test data, there are 5,900+ records and filtered list is approximately 4,900 records.

Since I have sorted the data, the portion of the filtered data I need will always begin in cell D5, be columns D:K, and be the visible rows.

Your assistance would be greatly appreciated!

**StephenR** · 07-07-2009, 11:52 AM

Like this perhaps?

Sub x()

Dim rng As Range

Set rng = Range("D5", Range("K" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible)

End Sub

**tcowen61** · 07-07-2009, 12:42 PM

Thanks Stephen. It is close. I understand your code but it does not select the range once it is defined. Or, do I need to select the defined range.
I'm still somewhat new at vb and do most things by using recorder, trial and error, or what I can pull from internet and this forum. So, I apologize if I missed the obvious.

I'm attaching a small sample of data.

Thanks for your assistance.

**StephenR** · 07-07-2009, 12:55 PM

No, you don't need to select the range. To copy it you could use

Sub x()

Dim rng As Range

Set rng = Range("D5", Range("K" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible)

rng.Copy Sheet2.Range("A1")

End Sub