I need help on how to transfer a row of data in sheet2 on my input column in sheet1

[doms123]

I am using Excel2007 and im having problem in transferring a row of data in my Sheet2 where it is my masterlist to a column of input cells in sheet1.

this is my sheet1

Excel Workbook
	A	B	C	D	E	F	G	H
1	*	*	*	*	*	*	*	*
2	*	*	*	*	*	*	*	*
3	*	*	Name	*			*	*
4	*	*	*	*	*	*	*	*
5	*	*	Age	*			*	*
6	*	*	*	*	*	*	*	*
7	*	*	Sex	*			*	*
8	*	*	*	*	*	*	*	*
9	*	*	B-day	*	*	*	*	*
10	*	*	*	Month	Day	Year	*	*
11	*	*	Address	*			*	*
12	*	*	*	*	*	*	*	*
13	*	*	Contact No.	*			*	*
14	*	*	*	*	*	*	*	*
15	*	*	*	ENCODE		*	*	*
16	*	*	*	*	*	*	*	*
17	*	*	*	CLEAR ALL		*	*	*
18	*	*	*	*	*	*	*	*
19	*	*	*	*	*	*	*	*
Sheet1

then this is my masterlist...

Excel Workbook
	A	B	C	D	E	F	G	H
1	Name	Age	Sex	B-day			Address	Contact No.
2				Month	Day	Year
3	Applicant John	21	*	April	21	1990	New York	12345
4	Applicant Mark	21	male	January	14	1990	Arkansas	*
5	Applicant Lucy	25	*	February	2	1985	*	67890
6	Applicant Jenny	22	female	*	*	1989	Hawaii	23456
7	*	*	*	*	*	*	*	*
8	*	*	*	*	*	*	*	*
9	*	*	*	*	*	*	*	*
10	*	*	*	*	*	*	*	*
11	*	*	*	*	*	*	*	*
12	*	*	*	*	*	*	*	*
13	*	*	EDIT		*	*	*	*
Sheet2

and if i select a row on th masterlist like this

Excel Workbook
	A	B	C	D	E	F	G	H
16	Name	Age	Sex	B-day			Address	Contact No.
17				Month	Day	Year
18	Applicant John	21	*	April	21	1990	New York	12345
19	Applicant Mark	21	male	January	14	1990	Arkansas	*
20	Applicant Lucy	25	*	February	2	1985	*	67890
21	Applicant Jenny	22	female	*	*	1989	Hawaii	23456
22	*	*	*	*	*	*	*	*
23	*	*	*	*	*	*	*	*
24	*	*	*	*	*	*	*	*
25	*	*	*	*	*	*	*	*
26	*	*	*	*	*	*	*	*
27	*	*	*	*	*	*	*	*
28	*	*	EDIT		*	*	*	*
Sheet2

and press the edit button it will go like this for editing

Excel Workbook
	A	B	C	D	E	F	G	H
22	*	*	*	*	*	*	*	*
23	*	*	*	*	*	*	*	*
24	*	*	Name	Applicant Lucy			*	*
25	*	*	*	*	*	*	*	*
26	*	*	Age	25			*	*
27	*	*	*	*	*	*	*	*
28	*	*	Sex	female			*	*
29	*	*	*	*	*	*	*	*
30	*	*	B-day	February	2	1985	*	*
31	*	*	*	Month	Day	Year	*	*
32	*	*	Address	Texas			*	*
33	*	*	*	*	*	*	*	*
34	*	*	Contact No.	67890			*	*
35	*	*	*	*	*	*	*	*
36	*	*	*	ENCODE		*	*	*
37	*	*	*	*	*	*	*	*
38	*	*	*	CLEAR ALL		*	*	*
39	*	*	*	*	*	*	*	*
40	*	*	*	*	*	*	*	*
Sheet1

and if i click the encode button the masterlist will go like this...

Excel Workbook
	A	B	C	D	E	F	G	H
30	Name	Age	Sex	B-day			Address	Contact No.
31				Month	Day	Year
32	Applicant John	21	*	April	21	1990	New York	12345
33	Applicant Mark	21	male	January	14	1990	Arkansas	*
34	Applicant Jenny	22	female	*	*	1989	Hawaii	23456
35	Applicant Lucy	25	female	February	2	1985	Texas	67890
36	*	*	*	*	*	*	*	*
37	*	*	*	*	*	*	*	*
38	*	*	*	*	*	*	*	*
39	*	*	*	*	*	*	*	*
40	*	*	*	*	*	*	*	*
41	*	*	EDIT		*	*	*	*
Sheet2

I need a code inside the edit button(on the sheet2) and transfer the data on the sheet1. it must be transfer first the delete that whole row...

Plese Help me...
Thank You in Advance

 

[mikerickson]

D5 could have a formula like
=VLOOKUP(D3, Sheet2!$A$1:$A$10, 2, False)

similarly for the others

 

[doms123]

no sir i need the code on the edit button on the sheet2.... not a formula

 

[mikerickson]

Perhaps this

Sub test()
    With ActiveCell.EntireRow
        ThisWorkbook.Sheets("Sheet1").Range("D3") = .Range("A1").Value
        ThisWorkbook.Sheets("Sheet1").Range("D5") = .Range("B1").Value
        ThisWorkbook.Sheets("Sheet1").Range("D7") = .Range("C1").Value
        ThisWorkbook.Sheets("Sheet1").Range("D9") = .Range("D1").Value
        ThisWorkbook.Sheets("Sheet1").Range("E9") = .Range("E1").Value
        ThisWorkbook.Sheets("Sheet1").Range("F9") = .Range("F1").Value
        ThisWorkbook.Sheets("Sheet1").Range("D11") = .Range("G1").Value
        ThisWorkbook.Sheets("Sheet1").Range("D13") = .Range("H1").Value
    End With
End Sub

 

[doms123]

I'll sure try this sir... Thank you for the quick response....