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.
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
Above code isn't working the way i want to.
Help will be appreciated