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

[protonLeah]

Option Explicit
Sub commandbutton_click()
    Dim nextcell As Long
    
    nextcell = Cells(Rows.Count, "A").End(xlUp).Row + 1
    If nextcell > 21 Then Exit Sub
    Cells(nextcell, "A").Value = TextBox.Value
End Sub

[radian89]

Option Explicit
Sub commandbutton_click()
    Dim nextcell As Long
    
    nextcell = Cells(Rows.Count, "A").End(xlUp).Row + 1
    If nextcell > 21 Then Exit Sub
    Cells(nextcell, "A").Value = TextBox.Value
End Sub

Hi Proton Leah,

Thanks for the help, it works... Thank You Sooooooo Much

Sorry for the late reply, i just tested the code.
Cheers

[macropod]

Cross-posted at: http://www.mrexcel.com/forum/excel-q...ell-below.html
Please read our policy on Cross-Posting in rule #8: http://www.excelforum.com/forum-rule...rum-rules.html