David pregunta:
Hola, tengo que diseñar un proyecto y estoy atascado en un bit que consiste en diseñar una macro para permitir que el usuario ingrese un número, pero el problema al que me enfrento es establecer una validación que solo acepte números entre 1 y 10. Intenté establecer una validación en las celdas específicas, pero el problema con el cuadro de entrada es que incluso si la celda se ha configurado para aceptar solo un número, aceptará cualquier cosa. ¿Me pueden ayudar porque realmente no puedo continuar con mi proyecto hasta que esté hecho?
Esta macro seguirá pidiendo al usuario un número entre 1 y 10 o se detendrá si cancela.
Sub Test() Dim MyAns As Variant Ask: MyAns = Application.InputBox("Enter a number between 1 and 10", Type:=1) If MyAns = False Then Exit Sub If MyAns 10 Then GoTo Ask: MsgBox MyAns, vbInformation, "Good Number" End Sub
