Cell Auto Advance

A

Al Bailey

I have a spreadsheet that I want to enter data in 18
different cells. The entries are always single digit.
Is there a way to program, so that once the entry is made
the cursor will automatically advance one cell to the
right without using the ENTER key or the ARROWS on the
keyboard?

Thanks
 
M

Max

Try:

Click Tools > Options > Edit tab

Change the direction under
"Move selection aftre Enter" to "Right"
 
E

Earl Kiosterud

Al,

In a word: No.

One solution is to put a text box from the Control Toolbox onto the
worksheet. While you're still in design mode, double-click it and paste in
this code from here.

Option Explicit

Dim RoutineBusy As Boolean
Private Sub TextBox1_Change()
If Not RoutineBusy Then
ActiveCell.Select
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1).Select ' move over
RoutineBusy = True
TextBox1.Activate
TextBox1.Value = ""
Else
RoutineBusy = False
End If
End Sub

This is barebones. It could be coded to automatically go to the next row
after your 18 cells have been entered, or whatever.

You'd select the first cell, click in the text box, and start typing
characters, which would get plopped into cells one at a time to the right,
starting with the selected cell. You won't be able to see the selected
cell.
 
Top