move to new line help please

[Wildfireau]

hi everyone i just have one question i'm totally new to macros and i need some help i have a whole lot of data entry to do and i was wondering is it possible to write a script that will automatically move the active cell down one position after a cell has 12 characters placed in it, as i am going to be scanning a whole bunch of 12 digit barcodes


thanks heaps i hope someone can help

 

[Tigs81]

Wildfireau
I dont know of a way directly doing it within the cell.
So the way that i would do this is, create a Userform and add a single text box. Then add the following code to the userform.

Private Sub TextBox1_Change()
    If Len(TextBox1.Text) = 12 Then
        ActiveCell.Value = TextBox1.Value
        TextBox1.Value = ""
        ActiveCell.Offset(1, 0).Select
    End If
End Sub

To open the user form use the following code

Sub OpenMyUserForm()
     UserForm1.Show
End Sub

Thanks
tigs

 

[Wildfireau]

Nice one thanks heaps