On Jun 13, 8:21 am, "Bernie Deitrick" <deitbe @ consumer dot org
wrote:
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
wrote in message
oups.com...
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- Hide quoted text -
- Show quoted text -
Thanks Bernie