How to copy value from textbox to cell, and auto select cell below?

[radian89]

Hi All,

I'm just confuse about simple things, let say i have 1 text box in userform

how do I copy value or text from textbox in a userform and paste it to a cell and auto select cell below after that?

and also the copy paste stopped if certain row was reached. example : I can copy paste & auto select below within A1:A20, but after A20, it won't be possible to copy paste to A21.

Copy value/text triggered by command button click

thanks a lot for the help

 

[sericom]

Private Sub CommandButton1_Click()
    With Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp)
        If .Row < 20 Then
            .Offset(1, 0) = TextBox1.Value
            .Offset(2, 0).Select
        Else
            MsgBox "Last row reached"
        End If
    End With
End Sub

 

[radian89]

Hi Sericom,

thank you, that was fast! I tried the code. it autodetect the cell that was already have value in it, and it copy the content while searching where there's empty cell.

can you help me, to freely select the cell (within A1:A20), then replace the content with the one in textbox?

thank you so much

 

[sericom]

Private Sub CommandButton1_Click()
    With ActiveCell
        If .Row < 21 Then
            .Value = TextBox1.Value
            .Offset(1, 0).Select
        Else
            MsgBox "Last row reached"
        End If
    End With
End Sub

 

[Macropod]

Cross-posted at: How to copy value from textbox to cell, and auto select cell below?
Please read our policy on Cross-Posting in rule #10: http://www.mrexcel.com/forum/board-announcements/99490-forum-rules.html

 

[radian89]

Hi Sericom,

Sorry for late reply, it works, thanks a lot for the help ^^v