data entry
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 |
data entry
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" wrote: 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 |
data entry
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 "FSt1" wrote in message ... 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" wrote: 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 |
All times are GMT +1. The time now is 07:14 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com