Help with Userform

[rhino4eva]

Private Sub CommandButton1_Click()
    Dim txtLabNo        As Variant, m As Variant
    Dim i               As Long
    Dim wsMaster        As Worksheet
   'lab number
    txtLabNo = Left(Me[COLOR=rgb(209, 72, 65)].[/COLOR][COLOR=rgb(65, 168, 95)]LabNumBOX[/COLOR], 7)
     If Not IsNumeric(txtLabNo) Then Exit Sub Else txtLabNo = Val(txtLabNo)
   'change master sheet name as required
    Set wsMaster = ThisWorkbook.Worksheets("DATA")
   'search column A
    m = Application.Match(txtLabNo, wsMaster.Columns(2), 0 
    If Not IsError(m) Then
            'post to master sheet
            wsMaster.Cells(CLng(m), 4).Value = "x"
            Me.LabNumBOX = ""
            LabNumBOX.SetFocus
    Else
   'inform user
        MsgBox txtLabNo & Chr(10) & "Record Not Found", 48, "Not Found"
           End If
   End Sub

So i have a userform that searches for a a Lab number in a Column A given the text in a Userform text box(LabNumBOX)
This lab number is from a bar code reader that has a carriage return as a default. The code above actioned by pressing a button.
How can i get the textbox to run automatically without having to press the button

 

[Akuini]

however, i cant get it to move on to the cell below... it just changes the content of Cells(5,2) .... i want to repeat an unknown number for bar-codes into 6,2 7,2 etc.

Untested:

Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = Asc(vbCr) Then
    With Sheets("DATA")
        n = .Range("B" & Rows.Count).End(xlUp).Row
        If n < 5 Then n = 5
        .Cells(n, 2).Value = Left(Me.TextBox2, 7)
        Me.TextBox2.Value = ""
    End With
End If

End Sub

 

[rhino4eva]

thanks for that ... after a slight modification a got it to work

Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = Asc(vbCr) Then
With Sheets("DATA")
n = .Range("B" & (Rows.Count)).End(xlUp).Row
n = n + 1
.Cells(n, 2).Value = Left(Me.TextBox2, 7)
.Cells(n, 3).Value = "x"
Me.TextBox2.Value = ""
End With
End If

End Sub

 

[Akuini]

thanks for that ... after a slight modification a got it to work

Glad to help.