Simple Macro

[Richard]

I need a macro that allows me to type informaton in 6
cells to the right then go back down to the next row and
start inputting all over again

 

[Ken Wright]

With your settings as per the norm with shiftdown after enter set, try the
following in the sheetcode:-

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Column < 6 Then
ActiveCell.Offset(-1, 1).Activate
Else
Cells(ActiveCell.Row, 1).Activate
End If
End Sub


Or, with your settings set to shiftright after enter, just select the 6 columns
and enter your data, it will wrap within the selection when it comes to the last
Column.

 

[L. Howard Kittle]

Hi Richard,

Try this. Use the Tab to move to the next cell after inputting for each of
the 6 cells. On the 6th one hit ENTER and you will get a "carriage return"
to the next row below and to the left below the cell where you started.

If you are dead set to use a macro, something like this may get you going.

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Column > 6 Then
ActiveCell.Offset(1, -6).Select
End If
End Sub

HTH
Regards,
Howard