Can Excel be made to auto-advance to the next cell?

[dneunabe]

Good evening,

Is there a way to make excel advance to next lowest cell automatically once a number of a specifed length (e.g. single digit integers in my case) is entered in a cell? I have large volumes of data to enter--usually integers from 0 to 9--and the extra "enter" keystroke becomes very tedious and increases errors.
Thanks much!
Dan

 

[janjan_376]

Hi!
here'a code that will do that.
First dragdown a textbox control from the control toolbox.
then press Alt+F11.
In VBE insert the code below.
Then type any single character in the textbox. it will be entered in the first blank cell in Column A.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
****Range("A65536").End(xlUp).Offset(1, 0).Value = Chr(KeyAscii)
****TextBox1.Value = ""
End Sub

No need to press enter.
Just enter numbers as fast as you can.
Tell me if you can beat excel. ie xcel misses few or one of you inputs. (Just Kidding)
Edit:
Forgot one thing! Exit design mode before you type anything on the
textbox.

Hi,

I tried your formula and it WORKED - EXCELLENT!. I only have one question. How do I make it to accept 12 characters instead of only 1?

Thank you.

 

[janjan_376]

I like your code. It really worked. I just need help on modifying this code to accept 12 digit before it jumps to next cell. Please help

 

[janjan_376]

Hi!
here'a code that will do that.
First dragdown a textbox control from the control toolbox.
then press Alt+F11.
In VBE insert the code below.
Then type any single character in the textbox. it will be entered in the first blank cell in Column A.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
****Range("A65536").End(xlUp).Offset(1, 0).Value = Chr(KeyAscii)
****TextBox1.Value = ""
End Sub

No need to press enter.
Just enter numbers as fast as you can.
Tell me if you can beat excel. ie xcel misses few or one of you inputs. (Just Kidding)
Edit:
Forgot one thing! Exit design mode before you type anything on the
textbox.

Hi

How do I modify this code to accept 12 digit before it jumps to next cell. by the way this code really worked and it is fast. Thank you.

 

[janjan_376]

is there a way to make it accept 12 digits number?. Thank you

 

[jon_excel]

Hi!
here'a code that will do that.
First dragdown a textbox control from the control toolbox.
then press Alt+F11.
In VBE insert the code below.
Then type any single character in the textbox. it will be entered in the first blank cell in Column A.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
****Range("A65536").End(xlUp).Offset(1, 0).Value = Chr(KeyAscii)
****TextBox1.Value = ""
End Sub

No need to press enter.
Just enter numbers as fast as you can.
Tell me if you can beat excel. ie xcel misses few or one of you inputs. (Just Kidding)
Edit:
Forgot one thing! Exit design mode before you type anything on the
textbox.

Hi, I'm trying to do something similar only I'd like the data to go from the text box to cell E6 then across instead of down. So, for example, I want the user to enter characters into the text box and have them appear one by one in E6, F6, G6,..etc.

Any solutions?

 

[Greg Truby]

Just appending to this thread -- there was a member who had a very similar need and I adapted Sixth Sense's solution to take input and put it across seven columns and then wrap down. With a couple of simple edits it would actually be a solution to Jon_Excel's question here too. [A very nifty solution, Sixth Sense, BTW -- ]

http://www.mrexcel.com/forum/questi...be-d%EDgito-e-passa-pra-proxima-c%E9lula.html