Cool Form

[Matty2470]

I have a workbook with several tables. I would like a system of simple forms for users to navigate between, filling up the little text boxes and selected from cute drop down lists. The various table will be filled and bob's your uncle.

The question I have is this:

Can I have users fill in one form. and save it. The info will be stored in one row in the appropriate worksheet table.

Then with the same form, the same text boxes etc. They add anothert record and the next row will be filled on said worksheet and so on on and so forth.

Like in access

I want them to be able to add as many records as they want.

[Bob Umlas]

sure -- simply find the appropriate row, like:
TheRow = Sheet1.range("A65536").end(xlup).row
cells(TheRow,1).value=Userform1.Textbox1.Text
Cells(TheRow,2).Value=Userform1.Textbox2.Text
etc.

Bob Umlas
Excel MVP

On 2002-03-28 08:44, Matty2470 wrote:
I have a workbook with several tables. I would like a system of simple forms for users to navigate between, filling up the little text boxes and selected from cute drop down lists. The various table will be filled and bob's your uncle.

The question I have is this:

Can I have users fill in one form. and save it. The info will be stored in one row in the appropriate worksheet table.

Then with the same form, the same text boxes etc. They add anothert record and the next row will be filled on said worksheet and so on on and so forth.

Like in access

I want them to be able to add as many records as they want.

[lenze]

Hello: Bob's suggestion is the best approach if you don't mind the users being able to have easy access to the tables and if you will not have multi users updating the tables at the same time. If these are issues, however, you might look at using the Template Wiazrd with Data Tracking.

[Juan Pablo González]

There's one thing I think Bob missed. Change this

TheRow = Sheet1.range("A65536").end(xlup).row

to this

TheRow = Sheet1.Range("A65536").End(xlUp).Row + 1

Because other wise you would be overwriting the previous contents.