data entry

[Hawke]

Would appreciate some help or direction for the following chalange:
I have a spreedsheet for collecting info.
Want to be able to click on abutton and have a entry box pop up , fill in 3
fields, and have it copies to sheet 2 that is like a database, or copy to
first blank row.
Any direction appreciated

Roger

 

[FSt1]

hi
not sure if you can have one input box of 3 entries but this might work for
you.
Sub clickbutton()
Dim var1 As String
Dim var2 As String
Dim var3 As String
var1 = InputBox("enter something")
var2 = InputBox("enter something else")
var3 = InputBox("enter something else")

Sheets("sheet2").Range("A65000").End(xlUp).Offset(1, 0).Value = var1
Sheets("sheet2").Range("B65000").End(xlUp).Offset(1, 0).Value = var2
Sheets("sheet2").Range("C65000").End(xlUp).Offset(1, 0).Value = var3
MsgBox "Done"
End Sub

regards
FSt1

 

[Hawke]

Tks for quick response, this works great. However if I may so bold to ask ,
can all 3 entries be shown in 1 box at once? And is it possible to have a
lookup table on the first field?

Roger