Automatically executing InputBox() after "Userform.Show" Command

[csv27]

Hey all,

As per the title, I'm trying to figure out how to automatically ask the user to input data after I show a Userform.

Relevant Code:

Private Sub Start_Click()

Userform.Show
number = InputBox("Please enter a number", "Enter a number")

End Sub

When I execute the above code, it stops at Userform.Show. I don't want to add a command button... But if that's the only way so be it... Unless there's a way!

Thank you for any help. Cheers!

 

[MickG]

Re: HELP: Automatically executing InputBox() after "Userform.Show" Command

Maybe !!!

UserForm[B][COLOR=#FF0000]1[/COLOR][/B].Show

 

[csv27]

Re: HELP: Automatically executing InputBox() after "Userform.Show" Command

Sorry, I renamed Userform1 to Userform... Is there still a way?

 

[dmt32]

Re: HELP: Automatically executing InputBox() after "Userform.Show" Command

try:

Private Sub Start_Click()


    UserForm.Show vbModeless
    Number = InputBox("Please enter a number", "Enter a number")


End Sub

and see if this does what you want.

Dave

 

[SQUIDD]

Re: HELP: Automatically executing InputBox() after "Userform.Show" Command

Hi

Private Sub UserForm_Activate()
DoEvents
Number = InputBox("Please enter a number", "Enter a number")
End Sub

I found this works form me?

dave

 

[SQUIDD]

Re: HELP: Automatically executing InputBox() after "Userform.Show" Command

sorry

this one

Private Sub UserForm_Activate()
DoEvents
    Number = InputBox("Please enter a number", "Enter a number")
End Sub

 

[csv27]

Re: HELP: Automatically executing InputBox() after "Userform.Show" Command

It most certainly did, thanks for your help!

try:

Private Sub Start_Click()


    UserForm.Show vbModeless
    Number = InputBox("Please enter a number", "Enter a number")


End Sub

and see if this does what you want.

Dave

 

[MickG]

Re: HELP: Automatically executing InputBox() after "Userform.Show" Command

Try this in Userform Module:-

Private Sub UserForm_Initialize()
Dim Number As Long
Number = InputBox("Please enter a number", "Enter a number")
End Sub

 

[csv27]

Re: HELP: Automatically executing InputBox() after "Userform.Show" Command

Unfortunately DoEvents did not work for me, but I do appreciate you helping.

sorry

this one

Private Sub UserForm_Activate()
DoEvents
    Number = InputBox("Please enter a number", "Enter a number")
End Sub