Copy paste and delete some cell then repeat until all rows are done

[Greaser2k]

Hi
New to this

I am looking for help to complete this macro and stuck at one point.

I have and Input sheet which contains some data.
What i need to do is create a new worksheet for all the rows and rename with the person name (from Column A)
That part i have managed to do.

What i need next is the Titles (Row 1) and the data of that person copied into their sheet, the data deleted from the input sheet, then repeated until all the data has been copied to each sheet and the input sheet is clear apart from the titles.

I have attached a copy of the file with what i have managed so far.

Very grateful for anyone’s help

Mike

[arlu1201]

Try this code. It takes care of creating new sheets if required and copy pasting the data.

Please Login or Register  to view this content.

Copy the code to a standard module.

[Greaser2k]

Thanks for looking at my problem
i have tried running your macro and i get an error at Next i

it stop there
nothing had been add to the workbook


do i add your macro to the end of mine or will it do it all using your

could you please look again
thanks
Mike

[arlu1201]

Mine is a complete macro. So you should run it alone.

[Greaser2k]

created a new module with your date and ran it
it stop at Nexti

Please Login or Register  to view this content.

Any idea`s why

thanks
Mike

[arlu1201]

I have added code tags to your post. As per forum rule 3, you need to use them whenever you put any code in your post. Please add them in future. If you need more information on how to use them, check my signature below this post.

[arlu1201]

It should be

Please Login or Register  to view this content.

[Greaser2k]

Thanks i will try that and let you know what happens

again many thanks for your help

mike

[Greaser2k]

Thanks you so much
works like a treat

Mike

[arlu1201]

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

I will mark it for you this time.