Place Textbox Value to the next empty cell

**weeeee0713** · 11-25-2014, 04:13 AM

Hi guys, please review or checked my program. I encountered error on this one.

Thanks in advance.

Private Sub CommandButton1_Click()


Range("A1048576").End(xlUp).Offset(-1, 0).Select
ActiveCell.Value = TextBox1.Value

End Sub

**michson** · 11-25-2014, 04:20 AM

I think you want to add new values to the last cell. So try this solution:

Private Sub CommandButton1_Click()
dim lr as long
lr = Cells(Rows.Count,1).End(xlUp).row +1
Cells(lr,1).value = textbox1.value
End sub

Re: Place Textbox Value to the next empty cell