MACRO for searching column for a letter and Copy/Paste the row into new MASTER sheet

Can someone please point me in the right direction, I am totally lost.....

I need a MACRO that will search for the letter "x" in a certain column, and if found then copy and paste the row of information associated into a MASTER sheet. The tabs are not named the same but are identical in layout. Search would start at the 8th row of each sheet. This needs to be done for multiple worksheets in the same workbook. I have attached a workbook of what I need.

Note the U004 & U005 are the sheets that I need information from. Going into the master sheet. Wherever there is an "X" in column X, I need that row pasted into Master.

Thanks for the help in advance

Try the attached.

Maybe:

Sub cwitty22()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    If ws.Name <> "MASTER" Then
    ws.Range("X7:X" & ws.UsedRange.Rows.count + 1).AutoFilter 1, "X"
    ws.Range("A8:X" & ws.UsedRange.Rows.count + 1).SpecialCells(xlCellTypeVisible).Copy Sheets("Master").Range("A" & Rows.count).End(3)(2)
    End If
    ws.AutoFilterMode = False
Next ws
End Sub

Wow that was fast thanks AB33!!!

Nice work, really I appreciate it.

Couple more questions for ya.

Lets say I would want to just copy information from a couple of the columns....Is that hard to do?

Also, instead of just reading an 'X', how would I go about reading 'XX' also? Is that too many of the same characters?

Thanks again

Mind you if you change X to XX, if there is no exact match, we have to change the code from whole match to part match, but it will copy the same rows anyway.

If columns cant be done no big deal the bulk of the work is already done with your MACRO.. Once again, Thanks. You are a life saver.

Chang this line of the code (At the top) of the code

sFind = "x"

INTO

sFind = "xx"

Yes, you can copy certain columns. Which columns?

AB33 there will be an exact match.. Some of these components are marked XX for reference but not all sheets have this.

So if i just put the code sFind = "XX" under the code sFind = X thats all I need to change?

And for the columns, unfortunately we use a program that spits these BOMs out into this certain format so there is information spread across a couple columns (as you can see).

I would need:
Columns D-E (supplier detail no)
Columns J-L (name)
Column M (material)
Columns N-P (specs)
Columns Q - T are fine the way they are
and if possible it would be good to show column X.

You have lots of merged cells and wrap texts. I do not know which one is column C or D. I assumed all non-contagious columns will be copied next to each other

Works great! Thanks

One last thing AB33,

In this new file that you send everything works great except when I try to add different sheets and run it again, it replaces the existing data.. Any way of having the macro just pick up where the first open spot is?? I do not want it to clear as I have multiple files that I need to add to this one...

If you want to copy in to next empty row, remove this line

ms.Range("A2:X" & Rows.Count).ClearContents