Developing USERFORMS

[rhino4eva]

i have seen tutorials on how to set a userform to setup a database style worksheet ... but i need to move on a little to achieve my goal.

my userform consists of a combo box with 3 choices named the same as 3 worksheets with the same book.
under which is a text box for the date and 2 other test boxes for numeric results
and a submit command button

what i need to know is how to slot the date/result boxes in to the named sheet/s when the submit button is pressed.
the format of each of the worksheets is identical so as to eliviate any mapping problems

i would appreciate any help with this

Adam

 

[steve the fish]

Theres not much to go one there but maybe this may help:

Set sh = Sheets(Combobox1.Value)

With sh
    .Range("A" & .Rows.Count).End(xlUp).Offset(1) = TextBox1.Text
End With

 

[My Aswer Is This]

Try something like this:

Private Sub CommandButton2_Click()
Sheets(ComboBox1.Value).Range("A1").Value = TextBox1.Value
Sheets(ComboBox1.Value).Range("B1").Value = TextBox2.Value
End Sub