Run a loop to slected data then filter on another sheet and copy to another sheet

[af_lel]

Hello Everyone.

I require some help on my macro. What i want to do is the following. I have 3 sheets.

Sheet 1 ("Macro Value Set"):
Sheet 2 ("Data")
Sheet 3 ("Output")
This sheet checks the second sheet to see if there is data accoring to the specific account. Should there be data the sheet will indicate "1". Therefore if the data is there the macro should then filter Sheet2 ("Data") accoring to the active cell in Sheet 1 offset by one column to the lefts value. After it has then filtered the sheet it should copy the data from sheet 2 to sheet 3 ("Output"). After it has copied it should then go back to sheet 1 and offset to the next row and perfomr the check again and if value is 1 then it should perform the process again. Should the value be 0 and not 1 in sheet 1 it should just move to the next cell. The macro should loop until the first empty cell is reached in sheet1.

At current my code looks like this but I get a lot of errors would you guys please be so kind to assists me with this.
Thanks in advance for your assistance.

Please Login or Register  to view this content.

[JOHN H. DAVIS]

I came up with this, but without an actual sample to test I can't be sure (use a copy of your file too test). Maybe you can attach a file with some sample data.

Please Login or Register  to view this content.

[af_lel]

Hello John,

This works PERFECTLTY!!! Thank you very much for your help, it is much appreciated!

Regards Len

[JOHN H. DAVIS]

You're welcome, Len. Glad to help out and thanks for the feedback.