export text from a textbox to a worksheet

[Joep1972]

Hi Guys,

can somebody help me with the following I've checked the previous questions on the forum and also some books and the help menu but nothing so far,

I hope you can help me,

I've created a userform in this userform i've got a calender

and a text box

How can I get this information that has been filled in the user form exported to a worksheet (called test)after "clicked ok" on the commandbutton.

in two different cells (range h14 for the text and i14 for the date.

many many thanks

Joep

 

[RobBroekhuis]

sub OKbutton_click()
sheets("test&quot.range("H14&quot=MyText 'name of your txtbox
sheets("test&quot.range("I14&quot=MyDate
unload me
end sub

Rob

 

[rmikesmith]

Joep,

I'm not familiar with the calendar control, but here is an example for transfering from the textbox to worksheet:

Private Sub CommandButton1_Click()
  Worksheets("Test").Cells(14,8).Value = Me.TextBox1.Text
End Sub

Notes:
- Me represents the Userform containing the textbox control.
- Cells(14,8) = cell H14


HTH
Mike

 

[rmikesmith]

Rob,

Sorry, you're quicker on the draw.


Mike

 

[RobBroekhuis]

Hey, I just stepped in from a boring meeting - now I gotta run again
Rob

 

[Joep1972]

He Guys,

I've got the following,

Private Sub CommandButton3_Click()
Worksheets("Test&quot.Cells(14, 8).Value = Me.TextBox1.Text
Sheets("test&quot.Cells(14, 9) = Me.Calendar1.Day
Unload Me
End Sub

and this working fine,

If I now want to go to the specific worksheet test what do I've got to add?

because the userform will "pop-up"in an other worksheet but when the information has been filled in I want to go to the
another worksheet (test)

Joep

 

[RobBroekhuis]

Just before the

Unload Me

put sheets("test&quot.activate

Rob