Data Entry Form

B

Brian T

I want to create a data entry form that will put the new data at the end of a
list. The form would include first and last names, and few dates. Any ideas
 
G

Gord Dibben

Brian

Excel already has a data form under Data>Form.

New entries are placed at the end of a list.

Basics..................

1. Type labels in A1:C1 First, Last, Date

2. Select A1 and Data>Form. Click OK when asked if you want to use row 1 as
labels.

Start entering data.


Gord Dibben MS Excel MVP
 
D

Dave Peterson

You can add as many more rows as you want without dismissing that dialog. But
if you close that dialog, then decide you want to add more, you'll have to
reshow the dialog.
 
G

Gord Dibben

Thanks for jumping in.

Some other part of my life intruded on my time.

You didn't know I had a "some other part" did you<g>
 
D

Dave Peterson

Something to do with Word or PPT??? <vbg>

Gord said:
Thanks for jumping in.

Some other part of my life intruded on my time.

You didn't know I had a "some other part" did you<g>
Click to expand...
 
D

Dave Peterson

Maybe...

http://support.microsoft.com/default.aspx?scid=kb;en-us;Q110462
ShowDataForm Method Fails If Data Can't Be Found

You can use code like this if you know (or can determine) the range:

Option Explicit
Sub testme01()
Dim LastRow as Long
Application.DisplayAlerts = False
With activesheet
lastrow = .cells(.rows.count,"A").end(xlup).row
.Range("A4:x" & lastrow).Name = "'" & .Name & "'!database"
.ShowDataForm
End With
Application.DisplayAlerts = True
End Sub

I started in A4 until the last used row in column A, then extended it to columns
A:X of those rows.
 
Top