Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
I have a protected worksheet. I enter a single digit of data into
unprotected cells. I want the cursor to automatically move to the next unprotected cell after I input the single digit, without the need to use the TAB or ENTER key. Does anyone have a solution? Patrick Riley |
#2
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
Patrick
Excel has no way of knowing when you have completed data entry in a cell without some sort of trigger like Tab, ENTER or Arrow key to move out of the cell. No code can run while you are in Edit mode so VBA is out. Gord Dibben MS Excel MVP On Mon, 2 Apr 2007 13:20:00 -0700, Patrick Riley wrote: I have a protected worksheet. I enter a single digit of data into unprotected cells. I want the cursor to automatically move to the next unprotected cell after I input the single digit, without the need to use the TAB or ENTER key. Does anyone have a solution? Patrick Riley |
#3
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
Without knowing what "the next unprotected cell" means...
Saved from a previous post: I would turn tools|options|edit tab|move selection after enter to down or right or ... Then turn number lock on and use the numeric keypad to type your digit Hitting the enter key on the numeric keypad doesn't seem too bad to me. Another alternative is to create a tiny userform that just looks for a digit: Put a single textbox on it (use the X button to close the userform). Put this code in a General module: Option Explicit Sub testme01() Cells(ActiveCell.Row, 1).Activate UserForm1.Show End Sub Add this code to the userform module: Option Explicit Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 48-57 'Numbers 0-9 With ActiveCell .Value = Chr(KeyAscii) 'A:E, then down a row if activecell.column = 5 then activecell.entirerow.cells(1).offset(1,0).activate else .Offset(0, 1).Activate end if End With End Select KeyAscii = 0 TextBox1.Value = "" End Sub This code goes from A:E then next row, column A. If you're new to macros, you may want to read David McRitchie's intro at: http://www.mvps.org/dmcritchie/excel/getstarted.htm Debra Dalgleish has some getstarted instructions for userforms at: http://contextures.com/xlUserForm01.html Patrick Riley wrote: I have a protected worksheet. I enter a single digit of data into unprotected cells. I want the cursor to automatically move to the next unprotected cell after I input the single digit, without the need to use the TAB or ENTER key. Does anyone have a solution? Patrick Riley -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Move cell data to another worksheet cell automatically. | New Users to Excel | |||
How to enter data then move automatically to new cell? | Excel Discussion (Misc queries) | |||
move cusor to the next unprotected cell | Excel Worksheet Functions | |||
How to move to next cell by entering data-not using Enter key. | Excel Discussion (Misc queries) | |||
How to move to next cell by entering data-not using Enter key. | New Users to Excel |