Find and copy

[lobo11]

I have a list of ID numbers listed in a column on one worksheet. I want to find a subset of these ID numbers in another worksheet, copy the entire row associated with the ID number and paste the row it into yet another worksheet.

This is my first attempt at writing some vba code and any help would be greatly appreciated as I really don't want to do all this by hand.

Here is what I have have tried so far:

Please Login or Register  to view this content.

[Richard Buttrey]

Hi,

Try something like the following. Adjust the sheet references as necessary. It assumes you start on Sheet1 with a value in the Active Cell. It looks to sheet2 for that value in col C and pastes the whole row back in sheet1. Note that .Select and .Activate are rarely ever needed in code. they only slow down the execution and get in the way. After you've used the macro recorder which always captures these instructions just edit and remove them. You can always address object directly without needing to activate them.

Please Login or Register  to view this content.

[lobo11]

Thanks for the help.

I have one problem however. I used your code and put in the correct sheet names and I get run-time error 1004, application-defined or object-defined error.

When I try to debug this, it says it has a problem in the last line of code (the one starting with Sheets...).

Any ideas? Also, is everything case sensitive? It won't let me capitalize one word (constantly changes my Copy to copy) and I know other programs I am familiar with are very case sensitive.

Thanks again.

[Richard Buttrey]

Hi,

Can you upload the workbook so I can take a look. Anonymise the data if it's sensitive.

Rgds

[lobo11]

Here is a smaller version of made up numbers.

The first sheet has the ID numbers, the second sheet has the data. Ideally I'd like to paste the matching data to the third sheet.

Thanks again for taking the time to help.

[lobo11]

For anyone who is interested, I was able to get it to work. Here is the not so elegant code I am using to get the job done.

Thanks for all the help, wouldn't have figured it out otherwise.

Please Login or Register  to view this content.