Combining Data from Multiple Rows

[Dratchsky]

Good Morning,

I am looking for a solution to quickly help fill rows based on their shared Value in Column D

I have several group id (Column D) that I need to have go from this

Book7
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X
1	id_num	last_name	first_name	GroupID	mobile_phone	email_address	Room 1 ID	Room 1 L	Room 1 F	GroupID	Room 1 Phone	Room 1 Email	Room 2 ID Number	Room 2 L	Room 2 F	GroupID	Room 2 Phone	Room 2 Email	Room 3 ID	Room 3 L	Room 3 F	GroupID	Room 3 Phone	Room 3 Email
2	519254	Last1	First1	GH106	(1) 234-5678	Last1.First1@test.com
3	503820	Last2	First2	GH106	(1) 234-5678	Last2.First2@test.com
4	503854	Last3	First3	GH106	(1) 234-5678	Last3.First3@test.com
5	510131	Last4	First4	GH108	(1) 234-5678	Last4.First4@test.com
6	481242	Last5	First5	GH118	(1) 234-5678	Last5.First5@test.com
7	474673	Last6	First6	GH118	(1) 234-5678	Last6.First6@test.com
8	506636	Last7	First7	GH118	(1) 234-5678	Last7.First7@test.com
9	507597	Last8	First8	GH118	(1) 234-5678	Last8.First8@test.com
Sheet1

To This:

Book6
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X
1	id_num	last_name	first_name	GroupID	mobile_phone	email_address	Room 1 ID	Room 1 L	Room 1 F	GroupID	Room 1 Phone	Room 1 Email	Room 2 ID Number	Room 2 L	Room 2 F	GroupID	Room 2 Phone	Room 2 Email	Room 3 ID	Room 3 L	Room 3 F	GroupID	Room 3 Phone	Room 3 Email
2	519254	Last1	First1	GH106	(1) 234-5678	Last1.First1@test.com	503820	Last2	First2	GH106	(1) 234-5678	Last2.First2@test.com	503854	Last3	First3	GH106	(1) 234-5678	Last3.First3@test.com
3	503820	Last2	First2	GH106	(1) 234-5678	Last2.First2@test.com	519254	Last1	First1	GH106	(1) 234-5678	Last1.First1@test.com	503854	Last3	First3	GH106	(1) 234-5678	Last3.First3@test.com
4	503854	Last3	First3	GH106	(1) 234-5678	Last3.First3@test.com	519254	Last1	First1	GH106	(1) 234-5678	Last1.First1@test.com	503820	Last2	First2	GH106	(1) 234-5678	Last2.First2@test.com
5	510131	Last4	First4	GH108	(1) 234-5678	Last4.First4@test.com
6	481242	Last5	First5	GH118	(1) 234-5678	Last5.First5@test.com	474673	Last6	First6	GH118	(1) 234-5678	Last6.First6@test.com	506636	Last7	First7	GH118	(1) 234-5678	Last7.First7@test.com	507597	Last8	First8	GH118	(1) 234-5678	Last8.First8@test.com
7	474673	Last6	First6	GH118	(1) 234-5678	Last6.First6@test.com	481242	Last5	First5	GH118	(1) 234-5678	Last5.First5@test.com	506636	Last7	First7	GH118	(1) 234-5678	Last7.First7@test.com	507597	Last8	First8	GH118	(1) 234-5678	Last8.First8@test.com
8	506636	Last7	First7	GH118	(1) 234-5678	Last7.First7@test.com	481242	Last5	First5	GH118	(1) 234-5678	Last5.First5@test.com	474673	Last6	First6	GH118	(1) 234-5678	Last6.First6@test.com	507597	Last8	First8	GH118	(1) 234-5678	Last8.First8@test.com
9	507597	Last8	First8	GH118	(1) 234-5678	Last8.First8@test.com	481242	Last5	First5	GH118	(1) 234-5678	Last5.First5@test.com	474673	Last6	First6	GH118	(1) 234-5678	Last6.First6@test.com	506636	Last7	First7	GH118	(1) 234-5678	Last7.First7@test.com
Sheet1

 

[DanteAmor]

You could upload a copy of your file with the macro to

But the macro does not come in the file.


If I put the macro and run it, this is the result:

Copy of Template 2.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X
1	id_num	last_name	first_name	GroupID	mobile_phone	email_address	Room 1 ID	Room 1 L	Room 1 F	GroupID	Room 1 Phone	Room 1 Email	Room 2 ID Number	Room 2 L	Room 2 F	GroupID	Room 2 Phone	Room 2 Email	Room 3 ID	Room 3 L	Room 3 F	GroupID	Room 3 Phone	Room 3 Email
2	519254	Last1	First1	GH106	(1) 234-5678	Last1.First1@test.com	503820	Last2	First2	GH106	(1) 234-5678	Last2.First2@test.com	503854	Last3	First3	GH106	(1) 234-5678	Last3.First3@test.com
3	503820	Last2	First2	GH106	(1) 234-5678	Last2.First2@test.com	519254	Last1	First1	GH106	(1) 234-5678	Last1.First1@test.com	503854	Last3	First3	GH106	(1) 234-5678	Last3.First3@test.com
4	503854	Last3	First3	GH106	(1) 234-5678	Last3.First3@test.com	519254	Last1	First1	GH106	(1) 234-5678	Last1.First1@test.com	503820	Last2	First2	GH106	(1) 234-5678	Last2.First2@test.com
5	510131	Last4	First4	GH108	(1) 234-5678	Last4.First4@test.com
6	481242	Last5	First5	GH118	(1) 234-5678	Last5.First5@test.com	474673	Last6	First6	GH118	(1) 234-5678	Last6.First6@test.com	506636	Last7	First7	GH118	(1) 234-5678	Last7.First7@test.com	507597	Last8	First8	GH118	(1) 234-5678	Last8.First8@test.com
7	474673	Last6	First6	GH118	(1) 234-5678	Last6.First6@test.com	481242	Last5	First5	GH118	(1) 234-5678	Last5.First5@test.com	506636	Last7	First7	GH118	(1) 234-5678	Last7.First7@test.com	507597	Last8	First8	GH118	(1) 234-5678	Last8.First8@test.com
8	506636	Last7	First7	GH118	(1) 234-5678	Last7.First7@test.com	481242	Last5	First5	GH118	(1) 234-5678	Last5.First5@test.com	474673	Last6	First6	GH118	(1) 234-5678	Last6.First6@test.com	507597	Last8	First8	GH118	(1) 234-5678	Last8.First8@test.com
9	507597	Last8	First8	GH118	(1) 234-5678	Last8.First8@test.com	481242	Last5	First5	GH118	(1) 234-5678	Last5.First5@test.com	474673	Last6	First6	GH118	(1) 234-5678	Last6.First6@test.com	506636	Last7	First7	GH118	(1) 234-5678	Last7.First7@test.com
Sheet1

_________________________
HOW TO INSTALL MACROs
------------------------------------
If you are new to macros, they are easy to install and use. To install it, simply press ALT+F11 to go into the VB editor and, once there, click Insert/Module on its menu bar, then copy/paste the above code into the code window that just opened up. That's it.... you are done. To use the macro, go back to the worksheet with your data on it and press ALT+F8, select the macro name (Combining_Data) from the list that appears and click the Run button. The macro will execute and perform the action(s) you asked for. If you will need to do this again in this same workbook, and if you are using XL2007 or above, make sure you save your file as an "Excel Macro-Enabled Workbook (*.xlsm) and answer the "do you want to enable macros" question as "Yes" or "OK" (depending on the button label for your version of Excel) the next time you open your workbook.

_________________________

One more question, in which version of excel are you trying to run the macro?