Modifing a userform txtbox code

  • Thread starter Thread starter jsnelson
  • Start date Start date
J

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
 
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
 
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 -
Click to expand...

Thanks Bernie
 
Back
Top