Create multiple sheets from a single sheet (unique entries)

I have list of employers like in sheet attached.
1. I would like to create multiple sheets from a single sheet.The macro to rule when a press click the buton ( S 9) and to create a new sheet whit the name each CLIENT name, isolate all of the unique entries. (colum T)
2. The new sheet to be like in model from sheet Client from workbook.
3. When I rule the macro from the buton I would like to be interogate which client sheet mane to be create (from the list colum T).
3 If the sheet allready exist I would like an attention mesage “THIS SHEET ALREADY EXIST ARE YOU SURE YOU WANT TO DELETE DATA!?
4 If it does not exist a new sheet will be created with a the client name.

I want to craft:
-the VBA will run on Office 2010.
-the list is for 1000 employers.

Clarification:

-Yes, I want to be prompted to enter the desired client name.
-Yes, if a sheet for that client does not exist, I want to create a sheet named after that client.
-Yes, in the newly created sheet I want only the headers in row 1 as in your "Client" sheet, I don`t need another data from first sheet.
If the sheet already exists I want to be prompted, and If I decided to continue (YES), delete the data on the existing sheet and then copy the data for that client from the first sheet. If I say (NO) continue whit a new CLIENT name that not exist.
To resume, If a sheet with Client Name already exist I want to prompted If I want to be deleted or not.( to avoid deleting a Client Name sheet that I don’t want to delete accidentally)


Thank you very much for your promptness

1. The data from "master" sheet are not copied in the new sheet created. The new sheet created it is blank ( "Nr.", "NAME", "ID 1", "CLIENT", "ID 2", "cont 1", "cont 1", "Total" are write it in master sheet.). Or I make something wrong
2 When I am prompted to enter the client name it is any possibility to select the client (not to write it)? As I selected from a drop list?

Sorry for not understanding what you ask.

-I want the data copied as well as the headers in row
- add a drop down list in sheet.

with small steps we will succeed

The worksheet is working like a charm.
I want to improve some things so I'm counting on you for that, so:
-in the every new sheet created (client name) to the end of each Colum F, G, H to be inserted the sum of each column
-in the new sheet created (client name) starting from A2 to be insert a new order number starting from 1.

Thank you for being so kind and patient. I appreciate your help.

Thank you so much! You, my friend, are my hero.
I will return for the topic when I will "upgrade" the workbook!

Mr. Mumps1
I have some difficulties with my sheet.
I modified the original sheet (columns and rows add) and the macro crash. I tried to "improve" it and it doesn't work anymore.
I would like that, the Macro to work from the point where the sheet is as in attached. If you are kind to create and the version for Run_macro (button).
Thanks in advance!!

Thanks you for you effort, I thought we would fix the existing macro (in a private sub). When I select the client from cell T12, it is an error on , Ln 16, Col 54 : Range("A14").AutoFilter 21, Target.Value . I hope to give me an idea to fix it. I wish to keep and this variant of code.

Regarding to your code:
- Have to run on Excel 2010 (I didn't check it yet).
-column T from sheet 1 , should be copy in new sheet in column C.
-to the end of column D, E ,F should be a formula total for each column. (now after copy column T became E, F, G)
- in column A to be insert criteria number beginning from 1 ( the original sheet have 1000 client)
- When I created the sheet, I wish to be prompted. If the sheet (client sheet) is already existing to be prompted if I continue, Yes/No. (to avoid to delete data by mistake). Yes=continue, No = Cancel
- If it is possible and a variant of code, when I select from T 12 to run the code.(it a list of "data validation" which is automatic updating.

Thanks!

Upload one result sheet for Client2 showing Exact result that you want, so that I understand what you want.

I hope I was explicit in sheet attached.
Thanks!

OK,

See if this is how you wanted.
Heading in col.C in result sheets are blank.
If you give some value in heading in col.T in "1", it will show col.C in the result sheet.

Please Login or Register  to view this content.

Ok, sow I put the code in a module vba and I attached with button and the result it what I need.
Now, trying to improve the code I have some ideas :
1. When I created the sheet, I wish to be prompted/asked “THIS SHEET ALREADY EXIST ARE YOU SURE YOU WANT TO DELETE DATA!? . If the sheet (client sheet) is already existing to be prompted if I continue, Yes/No. (to avoid to delete data by mistake). Yes=continue, No = Cancel

2. If it is possible and a variant of code/macro/vba, that when I select from T 12 to run the code to do same thins as module 2. It a list of "data validation" which is automatic updating.?
3. In private sub in sheet 1, I have a similar code but it is crashing on Ln 16, Col 54 : Range("A14").AutoFilter 21, Target.Value . I hope to give me an idea to fix it. I wish to keep and this variant of code. Just for my curiosity. I spend 2 days to understand where is the mistake and no result

I hope I was explicit! Thank you for being so patient. I appreciate your help.

1)

Please Login or Register  to view this content.

2) Did you write the codes for yourself? If not, and you still wish to used it, you should ask to the author of the code directly.

Originally Posted by jindon

1)
[code]

2) Did you write the codes for yourself? If not, and you still wish to used it, you should ask to the author of the code directly.

Mr Mumps1 is the creator. I hope to intervene!
Thanks you mr jindon for the code. It works great.

Mr. Mumps1 please help me with fixing bug from!
I modified the original sheet (columns and rows add) and the macro crash. I tried to "improve" it and it doesn't work anymore.
I would like that, the Macro to work from the point where the sheet is as in attached. If you are kind to create and the version for Run_macro (button).
When I select the client from cell T12, it is an error on , Ln 16, Col 54 : Range("A14").AutoFilter 21, Target.Value . I hope to give me an idea to fix it. I wish to keep and this variant of code.

Thanks you very much!

I fix the header row an data validation.
If it is possible both variants.
-work by clicking the button
-when you select a value in T12?

Thanks you in advance!

afm1985,

If it is OK to change the Change event code then

Please Login or Register  to view this content.

Thanks you Mr. jindon .
It is working!
I wish you all the best