ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Automated userform inputs to the spreadsheet (https://www.excelbanter.com/excel-programming/301199-automated-userform-inputs-spreadsheet.html)

dan

Automated userform inputs to the spreadsheet
 
I am using a userform to input 17 different pieces of data into 17 textboxes/comboboxes. When the data has been input, and I presses a button, I want it to place this data into cells on my spreadsheet. The first piece of data in cell "B2", the second into "C2" and so on down the row. Each of the input boxes has a different name which I gave it to make it easier for me to keep track of, like "username" instead of "combobox1", etc. Is there an automated way of having it input the data into the correct cells?

Tom Ogilvy

Automated userform inputs to the spreadsheet
 
No automatic way.

You have to write each value.

If you textboxes had less meaningful names, such as combobox1, you might be
able to shorten your code.

if iempty(Range("B2")) then
set rng = Range("B2")
elseif isempty(Range("B3")) then
set rng = Range("B3")
Else
set rng = Range("B2").End(xldown)(2)
End if
rng(1,1).Value = Control1.Text
rng(1,2).Value = Control2.Text
rng(1,3).Value = Control3.Text

replace control1 and so forth with your meaningful names.

--
Regards,
Tom Ogilvy

"Dan" wrote in message
...
I am using a userform to input 17 different pieces of data into 17

textboxes/comboboxes. When the data has been input, and I presses a button,
I want it to place this data into cells on my spreadsheet. The first piece
of data in cell "B2", the second into "C2" and so on down the row. Each of
the input boxes has a different name which I gave it to make it easier for
me to keep track of, like "username" instead of "combobox1", etc. Is there
an automated way of having it input the data into the correct cells?




All times are GMT +1. The time now is 08:36 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com