Howdy all. How the hell do I do this!

Pankman · Mar 26th, 2002, 04:27 AM

I have a userform which pops up from a worksheet when I click a button. It has a textbox and a combobox, and a command button on it. All I need to know is, when I've filled in the textbox and the combobox, I want to push the command button, which unloads the form and places the textbox's answer into the cell in Column K in whichever row I'm in, and the same for the combobox but in column J. So basically, I need to know what the code is to put the answer from the two boxes into K and L of whatever row I'm in

Can anyone help?

Dave Hawley · Mar 26th, 2002, 04:47 AM

Try

Private Sub CommandButton1_Click()
Cells(ActiveCell.Row, 11) = Textbox1
Cells(ActiveCell.Row, 12) = Combobox1
Unload Me
End Sub

Pankman · Mar 26th, 2002, 05:55 AM

Superb Dave, thank you very much!

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 26th, 2002, 04:27 AM	#1
Pankman New Member Join Date: Mar 2002 Posts: 7	I have a userform which pops up from a worksheet when I click a button. It has a textbox and a combobox, and a command button on it. All I need to know is, when I've filled in the textbox and the combobox, I want to push the command button, which unloads the form and places the textbox's answer into the cell in Column K in whichever row I'm in, and the same for the combobox but in column J. So basically, I need to know what the code is to put the answer from the two boxes into K and L of whatever row I'm in Can anyone help?

Mar 26th, 2002, 04:47 AM	#2
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	Try Private Sub CommandButton1_Click() Cells(ActiveCell.Row, 11) = Textbox1 Cells(ActiveCell.Row, 12) = Combobox1 Unload Me End Sub

Mar 26th, 2002, 05:55 AM	#3
Pankman New Member Join Date: Mar 2002 Posts: 7	Superb Dave, thank you very much!