Moving cursor to the right and more

**trc310** · 06-16-2012, 09:46 PM

I'm attempting to scan barcodes that are grouped in two - four barcodes per group, into excel. I'm assuming it will require seperate worksheets for the different groups of barcodes scanned, and that is preferred. The data will be input across two - four columns (depending on the # of barcodes in the group) on the same row. The cursor should then drop to the next row and begin in column A to repeat until I stop. I found an excellent solution to this here by TMShucks, but it only works for two columns across. How do I expand or make it posssible to scan a specified number of columns in VB?

Thanks,

trc310

**MarvinP** · 06-16-2012, 09:53 PM

Hi trc310,

Can you point us to the TMShucks answer so we can see what he did? Then it might be easy to modify his code.

**trc310** · 06-16-2012, 10:23 PM

This is the code he provided:

Option Explicit

Dim MoveRight As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)

MoveRight = Not MoveRight
'Debug.Print MoveRight

If MoveRight Then
Target.Offset(0, 1).Select
Else
Target.Offset(1, -1).Select
End If

End Sub

**TMS** · 06-17-2012, 07:20 AM

After a bit of tweaking:

Please Login or Register  to view this content.

It's a lot messier than the simple move right or move down but it seems to do the job.

You can put the Maximum Move Count in a cell on a reference sheet and refer to it using a fully qualified cell address, or using a Named Range or you could even have a Named Range with a constant value.

Regards, TMS

**trc310** · 06-17-2012, 10:33 AM

Fantastic! Thank you for being such a tremendous help.

trc310

**TMS** · 06-17-2012, 10:37 AM

You're welcome. Thanks for the rep.

For future reference: please take a few moments to read the forum rules. You need to add code tags to your (my) code in order to comply with the forum rules ... and strictly speaking, I shouldn't have answered it.

But hey, first timer, who else is going to answer the question? It took me long enough to work it out. Like all these things, once you ask the question, you often finds lots of ways of answering it.

Regards, TMS