UserForm code help needed.
 

Dude,

That's pretty much what I needed. Unfortunately, there are a couple o
cases where I need to limit what's being input by using comboboxes. Ho
would I fit those into it?

dude Wrote:
I assume that you are trying to add data from your form in
to database format? If so, you could just simply read the
user input from the form into a simple array and then add
data to your table this way.
something like this may work:

Private Sub CommandButton1_Click()

ReDim mydata(4)

For na = 0 To 3
mydata(na) = Controls(na).Text
Controls(na).Text = ""
Next

Dim NewRecordRng As Object
Set NewRecordRng = Worksheets("sheet1").Cells(2,
1).CurrentRegion
'Put new values into worksheet just below those rows.
newrow = NewRecordRng.Rows.Count + 1

With NewRecordRng
For na = 0 To 3
.Cells(newrow, na + 1).Value = mydata(na)
Next
End With
TextBox2.SetFocus
End Sub

I have only shown 4 textboxes but you can modify to meet
your needs. To see if this works for you. create a form &
add 4 textboxes then add a button(in that order) Double
click the button and past above code. You need a sheet
named sheet1. Run the form & enter data. It should add
data to sheet1 & clear textboxes for next entry. further
entry should be placed on next line.

Hope helpful

.


--
madblok
-----------------------------------------------------------------------
madbloke's Profile: http://www.excelforum.com/member.php...fo&userid=1442
View this thread: http://www.excelforum.com/showthread.php?threadid=26092

UserForm code help needed.
 

a combobox is a control - you should be able to read data
in to your array in same way.
If you create a test form as suggested. Add a combobox in
place of one of the textboxes (remember to add the button
on your form as last item (it's a control as well!)) Run
the form & add test data. It should place data from both
text & comboboxes into the worksheet.

hope helpful
-----Original Message-----

Dude,

That's pretty much what I needed. Unfortunately, there
are a couple of
cases where I need to limit what's being input by using
comboboxes. How
would I fit those into it?

dude Wrote:
I assume that you are trying to add data from your
form in
to database format? If so, you could just simply read
the
user input from the form into a simple array and then
add
data to your table this way.
something like this may work:

Private Sub CommandButton1_Click()

ReDim mydata(4)

For na = 0 To 3
mydata(na) = Controls(na).Text
Controls(na).Text = ""
Next

Dim NewRecordRng As Object
Set NewRecordRng = Worksheets("sheet1").Cells(2,
1).CurrentRegion
'Put new values into worksheet just below those rows.
newrow = NewRecordRng.Rows.Count + 1

With NewRecordRng
For na = 0 To 3
.Cells(newrow, na + 1).Value = mydata(na)
Next
End With
TextBox2.SetFocus
End Sub

I have only shown 4 textboxes but you can modify to
meet
your needs. To see if this works for you. create a
form &
add 4 textboxes then add a button(in that order) Double
click the button and past above code. You need a sheet
named sheet1. Run the form & enter data. It should add
data to sheet1 & clear textboxes for next entry.
further
entry should be placed on next line.

Hope helpful

.



--
madbloke
---------------------------------------------------------
---------------
madbloke's Profile: http://www.excelforum.com/member.php?
action=getinfo&userid=14422
View this thread:
http://www.excelforum.com/showthread...hreadid=260925

.