conditional copy data from multiple workbooks

[Brontosaurus]

i want to copy the first 8 columns of data from every row in specified sheets in several workbooks if the column a value is "1" and paste it all into the first 8 columns of a new worksheet in the active workbook.

Can someone help with this please?

I've checked the forum and googled it but there are so many references I'm completely confused.

Any help would be appreciated and example data attached

Thanks

Louise

[mrice]

Try the attached macro workbook. You will need to set up the configuration as in the example.

[Brontosaurus]

Thank you, this works perfectly.

Could you let me know how to modify it to put the pasted data into a specified, existing worksheet inside the active workbook?

I really appreciate it

Louise

[mrice]

OK

Change the code in module1 (alt F11) to

Sub Test()
For N = 2 To ThisWorkbook.Sheets("Config").Cells(Rows.Count, 1).End(xlUp).Row
    Workbooks.Open Filename:=ThisWorkbook.Sheets("Config").Cells(N, 1), ReadOnly:=True
    ActiveWorkbook.Sheets(ThisWorkbook.Sheets("Config").Cells(N, 2).Value).Activate
    For M = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(M, 1) = 1 Then
            Range(Cells(M, 1), Cells(M, 8)).Copy
            ThisWorkbook.Sheets("Target").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
        End If
    Next M
    ActiveWorkbook.Saved = True
    ActiveWorkbook.Close
Next N
End Sub

I've assumed that your specified sheet is called "Target".

[Brontosaurus]

Absolutely brilliant, thank you very much!

Louise