copy/paster to another worksheet

[gzell]

I am trying to find a code that will copy and paste cells to another worksheet based on other cells value. The cells with value 1_1, 1_2. 1_3, 1_4, 1_5, 1_6, 1_7 1_8, 1_9, 1_9, 1_10, 1_11. 1_12 are the values in column f. These rows would be copy/pasted to another worksheet.


Any help would be greatly appreciated.


spreadsheet

1	1	Able	Ezekiel
2	1	Able	Ezekiel		1_1	Army: Confederacy
2	2	Able	Ezekiel		1_2	Location: Texas
4	1	Able	Ezekiel		1_3	Regiment: 10th Regiment Texas Infantry (Nelson's)
5	1	Able	Ezekiel		1_4	Function: Infantry
6	1	Able	Ezekiel		1_5	Company: C
7	1	Able	Ezekiel		1_6	Rank: Private
8	1	Able	Ezekiel		1_7	Age: --
9	1	Able	Ezekiel		1_8	Residence: --
10	1	Able	Ezekiel		1_9	Enrolled: Buchanan, Johnson County, Texas
11	1	Able	Ezekiel		1_10	Date: October 16, 1861
12	1	Able	Ezekiel		1_11	Enlisted: Houston, Texas
13	1	Able	Ezekiel		1_12	Date: October 25, 1861
14	1	Able	Ezekiel		2_1	Detail: Hospital Nurse
15	1	Able	Ezekiel		2_1	Detail: November 8, 1862
16	1	Able	Ezekiel		3_1	Relieved of Duty: Nurse
17	1	Able	Ezekiel		3_1	Date: February 4, 1862
18	1	Able	Ezekiel		4_1	Captured: Battle of Arkansas Post
19	1	Able	Ezekiel		4_1	Date: January 11, 1863
20	1	Able	Ezekiel		4_2	Forwarded: St. Louis, Missouri via Boats
21	1	Able	Ezekiel		4_3	Forwarded: Camp Douglas, Illinois via Rail
22	1	Able	Ezekiel		4_4	Prisoner: Camp Douglas, Illinois
23	1	Able	Ezekiel		4_5	Died: March 7, 1863
24	1	Able	Ezekiel		4_5	Cause: Small Pox
25	2	Adams	John	H
26	2	Adams	John	H	1_1	Army: Confederacy
27	2	Adams	John	H	1_2	Location: Texas
28	2	Adams	John	H	1_3	Regiment: 10th Regiment Texas Infantry (Nelson's)
29	2	Adams	John	H	1_4	Function: Infantry
30	2	Adams	John	H	1_5	Company: I
31	2	Adams	John	H	1_6	Rank: Corporal
32	2	Adams	John	H	1_7	Age: 42
33	2	Adams	John	H	1_8	Residence: Johnson County, Texas
34	2	Adams	John	H	1_9	Enlisted: Kimball Texas or Millican, Texas
35	2	Adams	John	H	1_10	Date: January 16, 1862
36	2	Adams	John	H	2_1	Captured: Battle Arkansas Post, Arkansas
37	2	Adams	John	H	2_1	Date: January 11, 1863
38	2	Adams	John	H	2_1	Forwarded: St. Louis, Missouri via Boats
39	2	Adams	John	H	2_1	Forwarded: Camp Douglas, Illinois via Rail

<colgroup><col style="mso-width-source:userset;mso-width-alt:2816;width:58pt" width="77"> <col style="mso-width-source:userset;mso-width-alt:2669;width:55pt" width="73"> <col style="mso-width-source:userset;mso-width-alt:3474;width:71pt" width="95"> <col style="mso-width-source:userset;mso-width-alt:3291;width:68pt" width="90"> <col style="mso-width-source:userset;mso-width-alt:3474;width:71pt" width="95"> <col style="mso-width-source:userset;mso-width-alt:2121;width:44pt" width="58"> <col style="mso-width-source:userset;mso-width-alt:21906;width:449pt" width="599"> </colgroup><tbody>
</tbody>

 

[Fluff]

How about

Sub gzell()
    With Sheets("[COLOR=#ff0000]Master[/COLOR]")
        .Range("A1:G1").AutoFilter 6, "1_*"
        .AutoFilter.Range.Offset(1).EntireRow.Copy Sheets("[COLOR=#ff0000]Sheet2[/COLOR]").Range("A" & Rows.Count).End(xlUp).Offset(1)
        .AutoFilterMode = False
    End With
End Sub

Change sheet names to suit

 

[gzell]

Thanks. Worked great. My attempt was far to complicated and the loop did not work. this is good. One additional question. Please let me know if i need to open another thread. I would like to keep name on on first entry but not have them in the other entries. Meaning first entry for each person has the name but is blank until name changes.

Thanks again for the help.

 

[Fluff]

That would need to be another thread, thanks

 

[gzell]

Thanks for the help.

 

[Fluff]

You're welcome