Macro to populate values based on column A

[pratheepm7]

Hi,

I need a macro to populate values based in the column A, I have value in column A as below in column B the role should reflect


Column A Column B
Data1-Admin-2-1 Admin
Data1-Clerk-2-2 Clerk
Data1-Super-User-2-3 Super-User
Data2-Admin-2-1 Admin
Data2-Clerk-2-2 Clerk
Data2-Super-User-2-3 Super-User

[BellyGas]

This is a very simple task and can be accomplished very quickly by someone familiar with Excel in general, let alone VBA. If you'd like to learn some VBA so that you can do things like this without having to ask someone else I suggest you begin with this thread:

http://www.excelforum.com/showthread.php?t=823709

[alansidman]

In addition to BellyGas suggestion, here is a formula that will derive your expected results.

v	A	B	C
1	Original Data	Output	Formula in column B
2	Data1-Admin-2-1	Admin	=MID(A2,FIND("-",A2)+1,FIND(CHAR(1),SUBSTITUTE(A2,"-",CHAR(1),2))-FIND("-",A2)-1)
3	Data1-Clerk-2-2	Clerk	=MID(A3,FIND("-",A3)+1,FIND(CHAR(1),SUBSTITUTE(A3,"-",CHAR(1),2))-FIND("-",A3)-1)
4	Data1-Super-User-2-3	Super	=MID(A4,FIND("-",A4)+1,FIND(CHAR(1),SUBSTITUTE(A4,"-",CHAR(1),2))-FIND("-",A4)-1)
5	Data2-Admin-2-1	Admin	=MID(A5,FIND("-",A5)+1,FIND(CHAR(1),SUBSTITUTE(A5,"-",CHAR(1),2))-FIND("-",A5)-1)
6	Data2-Clerk-2-2	Clerk	=MID(A6,FIND("-",A6)+1,FIND(CHAR(1),SUBSTITUTE(A6,"-",CHAR(1),2))-FIND("-",A6)-1)
7	Data2-Super-User-2-3	Super	=MID(A7,FIND("-",A7)+1,FIND(CHAR(1),SUBSTITUTE(A7,"-",CHAR(1),2))-FIND("-",A7)-1)

Because you are using a Hyphen in your position name, you will not always get the correct answer. Suggest you amend your original data to avoid the hyphen in the middle of the job name.