Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can I lock a cell after data entry so entry can not be changed | Excel Discussion (Misc queries) | |||
Control Data Entry - push entry to next cell | Excel Discussion (Misc queries) | |||
Auto entry of data based on entry of text in another column or fie | Excel Discussion (Misc queries) | |||
Data Entry Online, Data Format, Data Conversion and Data EntryServices through Data Entry Outsourcing | Excel Discussion (Misc queries) | |||
Cell Entry That Locks Selected Cells From Any Data Entry. | Excel Worksheet Functions |