Insert text from a Userform

[hirvenhuuli]

Hi,
I have a userform with a button and a textbox! When I press the button I want to insert the text in the textbox to the next empty row in a certain column. How do I accomplish that the most simple way?

Something like
ActiveSheet.Range("AX1:AX10").End(xlDown).Value = TextBox1.Value
perhaps or?

 

[Greg Truby]

Normally I don't spoonfeed, but rather I ask what you've tried yourself. But I'm tired and getting ready to shut down and so I'm going to forget about a lot of good userform design and just answer the question most simple way...

on the form

Private Sub CommandButton1_Click()
    Me.Hide
End Sub

in a standard module

Sub foo()
    UserForm1.Show
    Range("A" & Rows.Count).End(xlUp).Offset(1) = UserForm1.TextBox1
    Unload UserForm1
End Sub

 

[hirvenhuuli]

Normally I don't spoonfeed, but rather I ask what you've tried yourself. But I'm tired and getting ready to shut down and so I'm going to forget about a lot of good userform design and just answer the question most simple way...

on the form

Private Sub CommandButton1_Click()
    Me.Hide
End Sub

in a standard module

Sub foo()
    UserForm1.Show
    Range("A" & Rows.Count).End(xlUp).Offset(1) = UserForm1.TextBox1
    Unload UserForm1
End Sub

Thanks for your help, got me in the right direction