Keyboard entering without Inputbox in marco

[k9deb]

I want to run a macro that moves the cursor from cell to cell, stopping in each for the entering of data/text from keyboard. However I do NOT want to have an "Inputbox" pop up using ActiveCell = InputBox("Enter Data")

What can be put into the macro to do this?

[swatsp0p]

In a Workbook SheetChange event use code similar to this:

Application.EnableEvents = True
ActiveCell.Offset(-1, 1).Select
If ActiveCell.Column = 7 Then
ActiveCell.Offset(1, -4).Select
End If
If ActiveCell.Row = 23 Then
ActiveCell.Offset(-16, 0).Select
End If


Each time data is entered you control the movement of the cell pointer by using the ActiveCell.Offset(r,c).Select to the desired position relative to the current Active.Cell (note: if no data is entered, cell pointer responds as set in Tools>Options>Edit | Move Selection After Enter...

Of course, adjust the sample to meet your needs.

HTH

[RES]

I assume you will be expecting the data inputer to hit enter to move on.

If you protect the sheet with only the data entry cells unlocked there is an option in the worksheet properties that restricts selection to unlocked cells only.
This needs to be set in code when the workbook is opened (it does not save)

the order seems to follow the move after enter setting in Tools\options

hope this offers something to think about

RES