Customer Tracker

[kc2equ]

I currently work at a retail store. I have a list of contacts that I am tring to make a list of. I currently have a form with about 22 variables ( name, address, phone #, sales info, ect….)

I want to have the a section at the top of the sheet and have a macro that inserts the information into a row lower on the page. Then I want to have the section on the top clear so and when you enter new information it inserts it into the next lower row on the sheet. Can anyone help me out with this macro?

 

[Atom]

You would probably have to use some sort of VBA scripting.

 

[kc2equ]

Yep... that's what I figured. I was looking for some help in that department.

 

[Peter_SSs]

kc2equ

VBA is not my strong point but I have had a go at this. Others may well point out problems with, or simplifications to, my code. However, in the small amount of testing that I have done it seems to do what I think you are asking.

Row 2 (green cells) is for data entry. the headings are repeated again at row 5. The user enters what data they have and then click a Command Button to complete the process. The data is transferred to the next available blank row below row 5 and row 2 is cleared ready for the next data entry.

The code associated with the Command Button is:<font face=Courier New><SPAN style="color:#00007F">Private</SPAN><SPAN style="color:#00007F">Sub</SPAN> CommandButton1_Click()
    ScreenUpdating =<SPAN style="color:#00007F">False</SPAN>
    Range("A2:D2").Select
    Selection.Cut
    ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
    Range("A2").Select
    ScreenUpdating =<SPAN style="color:#00007F">True</SPAN><SPAN style="color:#00007F">End</SPAN><SPAN style="color:#00007F">Sub</SPAN></FONT>

Mr Excel.xls
	A	B	C	D
1	Name	Address	Phone	Age
2
3
4
5	Name	Address	Phone	Age
6	Fred	12 Smith St	1234	28
7	Sam	11 Smith St	1235	48
8	Sue	678 Rodeo Drive		12
9
Sheet1