Modifing a userform txtbox code
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 |
All times are GMT +1. The time now is 06:18 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com