Macro for automatically moving to next column or row

[TaxMan]

I am using a handheld scanner that reads inventory data and inputs it in to a
spreadsheet. There are 3 data items per row. I am looking for a macro that
will automatically tab over to the next cell to await new input, and also to
move to the home position in a new row after the 3rd data item is scanned.

 

[Otto Moehrbach]

TaxMan
This little macro will do that. Place it in the sheet module of your
sheet. To access that module, right-click on the sheet tab and click on
View Code. "X" out of the module to return to your sheet. I assumed your 3
columns are A, B, C. HTH Otto
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If IsEmpty(Target.Value) Then Exit Sub
If Target.Column < 3 Then _
Target.Offset(, 1).Select
If Target.Column = 3 Then _
Target.Offset(1, -2).Select
End Sub