A macro to bring up a data entry form to add data to the next empty row??

[medwardnfriends]

I need to write a macro that will be attached to a button, which when clicked will bring up a data entry form that will add info to the next open column after completion. Please help me with the writing of this code if you know how to do it. thanks
-Mark

 

[rpaulson]

Try This.

Private Sub OK_Click()
        Application.ScreenUpdating = False

LRow = Range("A65536").End(xlUp).Row
        Cells(LRow, "A").Value = TextBox1.Value
        Cells(LRow, "B").Value = TextBox2.Value

Application.ScreenUpdating = True
Unload Me
End Sub

 

[Jerry Sullivan]

In addition to the rpaulson's suggested code, a non-VBA alternative to consider is the use of Excel's built-in data form.

This isn't on the Ribbon so many people aren't aware it exists,
however it does exactly what you describe in your similar post on this topic...
http://www.mrexcel.com/forum/showthread.php?t=563757

In the xl2007 Help, Check out the topic titled:
Add, edit, find, and delete rows by using a data form

 

[medwardnfriends]

rPaulson... Do I have to include every column name that i want to be in the data form in this vba code?