Modifing a userform txtbox code

[jsnelson]

Below is a code for a text box in a userform that accepts one
character and then goes to the next cell. How do i modify it to accept
ten characters and then move to the next cell.

Thanks



Private Sub TextBox1_Change()


If blkProc Then Exit Sub
ActiveCell.Value = Me.TextBox1.Value
blkProc = True
Me.TextBox1.Value = ""
blkProc = False


ActiveCell.Offset(1, 0).Activate


End Sub

 

[Bernie Deitrick]

js,

Try

If blkProc Then Exit Sub
If Len(Me.textbox1.Value) = 10 Then
ActiveCell.Value = Me.textbox1.Value
blkProc = True
Me.textbox1.Value = ""
blkProc = False
ActiveCell.Offset(1, 0).Activate
End If

HTH,
Bernie
MS Excel MVP

 

[jsnelson]

js,

Try

If blkProc Then Exit Sub
If Len(Me.textbox1.Value) = 10 Then
ActiveCell.Value = Me.textbox1.Value
blkProc = True
Me.textbox1.Value = ""
blkProc = False
ActiveCell.Offset(1, 0).Activate
End If

HTH,
Bernie
MS Excel MVP











- Show quoted text -

Thanks Bernie