Fast Single Digit Entering

[aljanga]

Hi Forum Friends
This is a sample macro to illustrate my problem.
I would like the macro to work such that:
1. I get 1 second to enter a single digit.
2 the macro then uses the entered digit else it uses the default of 3
WITHOUT stopping and prompting me for input i.e. without Appication.Inputbox, entering a value and OK .
Many thanks
Al

Sub multibeepX()
    'Sample Code
    Dim my_beep As Integer
    my_beep = 3
    Application.Wait (Now + TimeValue("0:00:01"))
    my_beep = Application.InputBox(" Enter number of beeps: ", Default:=Format(my_beep), Type:=1)
    
    For I = 1 To my_beep
        Beep
    Next I
End Sub

[royUK]

You can get input from a userform or inputbox, in this case the inputbox would be easiest.

The only alternative wold be to use a cell & probably worksheet change event

[aljanga]

Hi royUK
Changing a cell would work. However, the macro does not
allow me to change a cell while it is running or in wait state.
From what I understand a worksheet change event does the
opposite of what I need, starts a macro when a cell changes
vs. changing a cell while a macro is running.
Inputbox would work, but would require me to confirm OK for every
time the macro loops through 52 set of calculations. The macro takes
about 25 minutes to run. (I have a HP, Quad core, with 8 GB RAM)
Thank you for your time.
Regards
Al

[shg]

You could use a modeless userform with a textbox, use the textbox change event to capture single-keystroke data entries and clear the input, plus an on-time event to enter data if the user is idle.

[aljanga]

Hi Shg
What you describe sounds like the
solution I need.
Unfortunately my knowledge of VBA is far too
limited to write the code required.
Al Jager

[shg]

I don't have access to Excel for the next few days, sorry.

[royUK]

An example workbook might help

[rwgrietveld]

Here is something you can use

Make a Userform with 1 textbox

Private Sub TextBox1_Change()
  Static x As Long
  x = x + 1
  TextBox1 = Left(TextBox1, 1)
  TextBox1.SelStart = 0
  TextBox1.SelLength = 1
  Cells(x, "A").Value = TextBox1.Text
End Sub
Private Sub UserForm_Initialize()
  TextBox1.SetFocus
  TextBox1.EnterFieldBehavior = fmEnterFieldBehaviorSelectAll
End Sub

[aljanga]

Hi Forum Friends
I'm taking some time off from the Fast Digit Entering problem,
but will work on it again later.
Merry Christmas to you all.
Al