Simple Macro
 

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

Simple Macro
 

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.

--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 00/02/03

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission :-)
----------------------------------------------------------------------------



"Richard" wrote in message
...
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


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.608 / Virus Database: 388 - Release Date: 03/03/2004

Simple Macro
 

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

"Richard" wrote in message
...
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