VBA; loop; search for string, cut/paste then search second time

[tw9901]

Relatively new to macros and I'm starting to venture past the recorder. I've been unable to write code for this loop...

I would like to search a short range in one column (B1:B50) for two of 5 names.

Two, and only two of the five names will always appear in the range. And, each name will only appear once. However, the location of the two names within the range will vary from one day to the next.

When the first name is found, I would like to cut/paste it at A15.

Resuming the search in column B, when the second name is found, I would like to cut/paste it at A25.

Example. Names: John, Joe, Jack, Jill, Jane. 'Jill' is located in cell B12. 'John' is located in cell B33.

What VBA code would, 1) search for the names in range B1:B50; 2) when the first name is found, identify the row (msg box) and cut/paste it at A15; 3) resume the search one cell below where the first name was found; 4) when the second name is found, cut/paste it at A25?

Any help would be greatly appreciated.

[JBeaucaire]

Edit the sheet name and then try this:

Please Login or Register  to view this content.

I know I added one to the search range adding B51, but that makes it work consistently.

[tw9901]

Thank you for the reply, Jerry.

The code finds the names and does the cut/paste fine. However, the names are being placed alphabetically whereas I need them to be placed sequentially. That is, searching from B1 to B51, the first name found should go to A15. Then resume the search at the cell below where the first name was located and continue the search for the second name.

[JBeaucaire]

Can you post a sample workbook clearly showing how you are using it and how it doesn't do what is needed?

Click GO ADVANCED and use the paperclip icon to post up a desensitized copy of your workbook.

[tw9901]

Here is a sample file; I've tried to show the desired outcome on Sheet1

[JBeaucaire]

Use this instead:

Please Login or Register  to view this content.

[tw9901]

Ya, Baby!!

Works perfect!

Thank you!!