Simple Macro

R

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
 
K

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

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
 
Top