Want to copy coulumns cells only if another cell in same row is equal to a value.

I need to modify this code I used in another workbook, to copy and paste columns, but leave out rows that do not contain "Yes" in a different column in the same row.

Please Login or Register  to view this content.

Basically I want it to take each cell in a column, and copy and paste if in another column, same row has "Yes".

Example:

ID-----------Successful?
Fred---------Yes
Bob----------No
John---------No
Jake---------Yes

So it would copy Fred and Jake and paste those values into a worksheet on another workbook.

I am guessing I need to use some sort of for statement?

For the Copying and Pasting I have this:

Please Login or Register  to view this content.

I am unsure to as why it will not get the Column Index number for this line:
intColNum2 = WorksheetFunction.Match("FLEET_ID", wsExport.Range("1:1"), 0)

but not for this line:
intColNum2 = WorksheetFunction.Match("FLEET_ID", wsImport.Range("1:1"), 0)

wsImport is set to the active sheet. But it says "Run time error 1004. Unable to get the Match Function of the WorksheetProperty Class"

I'd prefer not to hardcode the Index in, as there may be columns added. It is unlikely that the Column names will change.

Sorry for the triple post, but I actually want to refine my request for help.

Copying cell by cell is slow, so I was wondering, could I just filter the "Success" column to only show rows with a "Y" value through VBA and copy and paste the remaining fields in the columns I want? What if I wanted to filter by that, and then filter by a date column for dates in a given year?