Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
show userform when response = yes
Hi,
i have userform in a module and the userform contains textbox and commmand box. If (Not IsNumeric(TextBox1.Value)) Then response = MsgBox("Please provide acceptable Number", vbOKCancel, "Wrong value!!!") If response = vbOK Then ' Load UserForm1 Else End End If End If Problem: i want to display the userform1 until numeric value. (kind of pause the program). Load userform1 or userform1.show are not working for some reason.... Please help. musa.biralo |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
show userform when response = yes
Where is this code.
I would suggest you don't hide or unload the userform until you are satisfied with the entries. Private Sub CmdOK_Click() If (Not IsNumeric(TextBox1.Value)) Then response = MsgBox("Please provide acceptable Number", vbOK + vbCritical, _ "Wrong value!!!") Exit sub End If Unload me End Sub -- Regards, Tom Ogilvy "musa.biralo" wrote in message ups.com... Hi, i have userform in a module and the userform contains textbox and commmand box. If (Not IsNumeric(TextBox1.Value)) Then response = MsgBox("Please provide acceptable Number", vbOKCancel, "Wrong value!!!") If response = vbOK Then ' Load UserForm1 Else End End If End If Problem: i want to display the userform1 until numeric value. (kind of pause the program). Load userform1 or userform1.show are not working for some reason.... Please help. musa.biralo |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
show userform when response = yes
Thank you Tom
i forgot to put exit sub....then show edit show and hide userform. Now its ok. musa.biralo Tom Ogilvy wrote: Where is this code. I would suggest you don't hide or unload the userform until you are satisfied with the entries. Private Sub CmdOK_Click() If (Not IsNumeric(TextBox1.Value)) Then response = MsgBox("Please provide acceptable Number", vbOK + vbCritical, _ "Wrong value!!!") Exit sub End If Unload me End Sub -- Regards, Tom Ogilvy "musa.biralo" wrote in message ups.com... Hi, i have userform in a module and the userform contains textbox and commmand box. If (Not IsNumeric(TextBox1.Value)) Then response = MsgBox("Please provide acceptable Number", vbOKCancel, "Wrong value!!!") If response = vbOK Then ' Load UserForm1 Else End End If End If Problem: i want to display the userform1 until numeric value. (kind of pause the program). Load userform1 or userform1.show are not working for some reason.... Please help. musa.biralo |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Chart to show response to a question. One of answer 15 choices. | Charts and Charting in Excel | |||
How do I transform a word response to a numeric response? | Excel Discussion (Misc queries) | |||
How do I set up a daily call out response response register? | Excel Worksheet Functions | |||
Userform Show | Excel Programming | |||
Program a drop down list to show a specific response depending on the selction | Excel Programming |