No cancel on input

[=?iso-8859-1?q?Luis_A=2E_V=E1zquez?=]

How can i make an inputbox...popup, that does not have a cancel
button?

Is this possible? This is the code i have that i would like to
elimitate the cancel button.

Sub Auto_Open()
name = Range("A2")
A2 = name
If A2 = "" Then
A2 = InputBox("Entra tu Nombre ", "Nombre .")
Else

End If
Worksheets("Sheet1").Range("A2").Activate
ActiveCell = A2
End Sub

 

[Guest]

Input boxes always have cancel buttons. What you want to do is to catch when
the user has selected Cancel. take a look at the value returned by the input
box when cancel was selected and create some code to deal with it.

 

[JW]

As far as I know, you can't totally get rid of the Cancel button. You
could always create a userform that resembles an Inputbox and do it
that way. Or, you can force them to enter a value in the input box
with something like this (untested):
Sub Auto_Open()
A2 = Range("A2")
If A2 = "" Then
start:
A2 = InputBox("Entra tu Nombre ", "Nombre .")
If A2 = "" Then
MsgBox "You MUST enter a value!", , "Required"
GoTo start
End If
End If
Worksheets("Sheet1").Range("A2").Value = A2
End Sub

You'll also notice that I cleaned your code up a bit. No need to have
a variable to store another variable. And no need to activate the
cell before placing the value in it.

 

[=?iso-8859-1?q?Luis_A=2E_V=E1zquez?=]

As far as I know, you can't totally get rid of the Cancel button. You
could always create a userform that resembles an Inputbox and do it
that way. Or, you can force them to enter a value in the input box
with something like this (untested):
Sub Auto_Open()
A2 = Range("A2")
If A2 = "" Then
start:
A2 = InputBox("Entra tu Nombre ", "Nombre .")
If A2 = "" Then
MsgBox "You MUST enter a value!", , "Required"
GoTo start
End If
End If
Worksheets("Sheet1").Range("A2").Value = A2
End Sub

You'll also notice that I cleaned your code up a bit. No need to have
a variable to store another variable. And no need to activate the
cell before placing the value in it.

JW,

Works very well. And thanks for the tip on cleaning up.