Input Box Validation

[sebhughes]

I have an input box that appears when sombody opens the workbook, It asks for there name and if they dont enter anything and press ok, I want it to display the sameinputbox over and over again until they enter a value.

How can I do this?

 

[Von Pookie]

A very simple example, but should (hopefully) give you an idea of one way you could do this:

Sub test()
Dim strName As String

Do
    strName = Application.InputBox("Enter your name:", Type:=2)
    Select Case strName
        Case Is = False 'cancel button is clicked
            Exit Sub 'end macro
        Case Is = "" 'no value entered
            MsgBox "You must enter a name to continue.", vbOKOnly + vbExclamation
    End Select
'loop and re-display inputbox until a value is entered
Loop Until strName <> ""

MsgBox "You entered: " & strName


End Sub

 

[sebhughes]

Also if they press cancel I want it to make it reappear, how cna I do this. Thansk BTW

 

[Von Pookie]

Er...I really don't recommend doing that. I'm not saying it can't be done, it is just a very bad idea, in my opinion.

A 'cancel' button should be used to do just that--cancel the process.

What are you trying to do? The user enters their name and then what? Why do they need to enter a name?

 

[sebhughes]

Well I have made a form that send thes data to a user using netsend, and at the end of the message it adds there name so people know who it is. So the name is a must so people know who it is.

 

[Von Pookie]

One idea: Don't bother having the user enter a name and just automatically use the username listed in Excel: Application.UserName