input box, auto enter

[Huffy]

Hi there,

Is there a way to have an automatic carriage return once a limit is reached for an input box?
Ex. Once 8 characters have been entered in the input box, there is an automatic carriage return, thus hitting OK.

This is to be used for scanning barcodes and would simplify the process if OK is pressed automatically.

Thanks all,

Huffy

 

[BrianB]

It can be done in a userform because it has a Change Event.
Perhaps something like this :-

'===========================================================
'- USERFORM CODE :  TEXTBOX CHANGE EVENT
'- TRANSFER VALUE TO WORKSHEET AFTER 8 CHARACTERS
'- Brian Baulsom April 2010
'===========================================================
Private Sub TextBox1_Change()
    Dim MyLen As Integer    ' textbox text length
    '-------------------------------------------------------
    '- CHECK TEXT LENGTH
    MyLen = Len(TextBox1.Value)
    If MyLen = 8 Then
        Beep
        '---------------------------------------------------
        '- TEXTBOX CONTENTS TO THE WORKSHEET
        Range("A1").Value = TextBox1.Value
        '---------------------------------------------------
        '- CLEAR THE TEXTBOX
        TextBox1.Value = ""
        '---------------------------------------------------
    End If
    '-------------------------------------------------------
End Sub
'============================================================