Find value in cell for each element from the list, copy row, and paste to new worksheet named as finded element

[radkow87]

Hi all,

I am looking for the macro which will work more a less like this one from below thread:
http://www.mrexcel.com/forum/showthread.php?t=407727

But I would like to have a list of elements which will have to be finded. They will be in sheet1. Macro needs to search those elements in sheet2 and if it find such a element it has to copy whole row and paste it to new sheet called like this element. In sheet 2 it has to search in column A. And it should take in to consideration upper case and lower case letters.

For example:

In sheet1 I have a list:

apple
orange
lemon

In sheet 2 i have:

apple | green | 2kg
orange| yellow | 1 kg
apple | red | 3 kg
lemon | yellow | 1 kg

Result of the macro should be:

Sheet "apple" with elements:
apple | green | 2kg
apple | red | 3 kg

Sheet "orange" with element:
orange| yellow | 1 kg

and sheet "lemon" with element:
lemon | yellow | 1 kg

Thanks in advance for help!!

Regards,
Radek

 

[radkow87]

One more thing. It do not have to create new sheets as they will be already created and named as the elements which have to be find. It just has copy those rows to sheets.