Hi All

Could I be helped with the following:

I have a worksheet with columns of information that I need to have
filtered by values in Row 6.

Row 6 contains an identifier of 8 products 1 - 8.

I want to filter this and import into 8 different worksheets in a
seperate workbook.

IS that possible?


--
Mikeice
------------------------------------------------------------------------
Mikeice's Profile: http://www.excelforum.com/member.php...o&userid=22467
View this thread: http://www.excelforum.com/showthread...hreadid=376242

Assuming the worksheetname in the other workbook is the product identifier
in Row 6
Sub DisperseData()
Dim rng as Range
Dim rng1 as Range
Dim cell as Range
Dim v as Variant
With Workbooks("Source.xls").Worksheets("SrcData")
set rng = .Range(.cells(6,1),.cells(6,256).End(xltoLeft))
for each cell in rng
v = cell.Value
set rng1 = Workbooks("Destination.xls") _
.Worksheets(v).Cells(6,256).End(xltoLeft)
if not isempty(rng1) then set rng1 = rng1.offset(0,1)
cell.entirecolumn.Copy Destination:=rng1.EntireColumn
Next
End Sub

--
Regards,
Tom Ogilvy

"Mikeice" wrote in
message ...

Hi All

Could I be helped with the following:

I have a worksheet with columns of information that I need to have
filtered by values in Row 6.

Row 6 contains an identifier of 8 products 1 - 8.

I want to filter this and import into 8 different worksheets in a
seperate workbook.

IS that possible?


--
Mikeice
------------------------------------------------------------------------
Mikeice's Profile:
http://www.excelforum.com/member.php...o&userid=22467
View this thread: http://www.excelforum.com/showthread...hreadid=376242