Check & Merge Multiple data

Hi I am facing one problem, please help.

Having 3 sheet contain data in 2 sheet as follows:

Sheet#1:

Code Note
A1 P1
A1 P1
A2 P1
A3 P3
A2 P2

Sheet#2:

Activity
IPF1
IPF2

I want the result in 3rd Sheet like this:

Sheet#3:

Code Note Activity
A1 P1 IPF1
A1 P1 IPF1
A2 P1 IPF1
A3 P3 IPF1
A2 P2 IPF1
A1 P1 IPF2
A1 P1 IPF2
A2 P1 IPF2
A3 P3 IPF2
A2 P2 IPF2

Please help.

Regards // Shiven

If you want to do this via a macro and assuming data in both Sheet1 and Sheet2 starts from A1, try this:

Please Login or Register  to view this content.

There is some error showing in for loop

At which line? and are your worksheets named Sheet1, Sheet2, and Sheet3?

Originally Posted by ramananhrm

I have tried in Excel functions.

Thanks ramananhrm, it is great but I need the results in separate column as according to your solution it is in single column in Sheet3

Yes, my worksheet named as sheet1, sheet2 and sheet3.

Error is giving at this line:

For Each c1 In Sheets("Sheet2").Range(Sheets("Sheet2").Range("A2"), Sheets("Sheet2").Range("A" & Sheets("Sheet2").rows.Count).End(xlUp))
For Each c2 In Sheets("Sheet1").Range(Sheets("Sheet1").Range("A2"), Sheets("Sheet1").Range("A" & Sheets("Sheet1").rows.Count).End(xlUp))

Originally Posted by ramananhrm

I have made the changes. Please try this file.

Regards

Thanks Ramananhrm, it was simply great to see the solution, can you do me favour, will you please explain the formula so that I can check with more data in the Sheet1 & Sheet2 as have check and tried to put some more data in the sheet 1 & Sheet2 but it is not working. It is effectively for the given set of data.

Regards,
Shiven

Maybe you have option explicit, try this:

Please Login or Register  to view this content.

Originally Posted by ramananhrm

I have attached the navigation to modify the range.

You can make use of 'Name manager' for range modification

Thanks Ramananhrm

Regards,
Shiven

Originally Posted by arlu1201

Based on your last post in this thread, its apparent that you are satisfied with the solution(s) you've received and have solved your question, but you haven't marked your thread as "SOLVED". I will do it for you this time.

In future, to mark your thread as Solved, you can do the following -
Select Thread Tools-> Mark thread as Solved.

Incase your issue is not solved, you can undo it as follows -
Select Thread Tools-> Mark thread as Unsolved.

Also, since you are relatively new to the forum, i would like to inform you that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post which helped you. This adds to the reputation of the person who has taken the time to help you.

thanks!!!

Regards, Shiven