Dear friends, hi
I have a userform with a text box. On KeyDown this text box value has to be sent to the last used cell in Column range( E4:E14)......of the active sheet.
Code
Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim LastRow As Long, ws As Worksheet
Set ws = ActiveSheet
LastRow = ws.Range("E" & Rows.Count).End(xlUp).Row + 1
ws.Range("E" & LastRow).Value = TextBox4.Value
End Sub
Display More
Above code isn't working the way i want to.
Help will be appreciated