Inputbox y resultados falsos
Hola tengo un problema con un imputbox.
El caso es que necesito que se introduzca un nº1 del 1 al 12 que corresponden a los meses del año, y que según lo que se elija ocurre una cosa diferente (esto ya esta hecho sin problemas). Lo que no se como hacer es que si se introduce cualquier cosa diferente de lo anterior salga un mensaje de error diciendo que solo puede meter números del uno al doce.
El caso es que necesito que se introduzca un nº1 del 1 al 12 que corresponden a los meses del año, y que según lo que se elija ocurre una cosa diferente (esto ya esta hecho sin problemas). Lo que no se como hacer es que si se introduce cualquier cosa diferente de lo anterior salga un mensaje de error diciendo que solo puede meter números del uno al doce.
1 Respuesta
Respuesta de villaju
1
Te paso la siguiente macro: te pregunta mediante un inputbox un nº del 1 al 12, y si el dato no es correcto, te sale un mensaje advirtiendo y te vuelve a preguntar, hasta que metes un valor válido:
Sub validacion()
Dim valor As Double
valor = 0
valor = Val(inputbox("Escriba un nº del 1 al 12"))
If valor < 1 Or valor > 12 Then
Do
MsgBox ("El dato introducido no es válido")
valor = Val(inputbox("Escriba un nº del 1 al 12"))
Loop While valor < 1 Or valor > 12
Else
'Aquí iría el código que tienes hecho para cuando el
'valor es válido
End If
End Sub
Espero que ésto responda tu pregunta. Si así fuera, por favor, no olvides finalizar la pregunta. Si te queda algunta duda, vuelve a preguntarme y con gusto te ayudo.
Sub validacion()
Dim valor As Double
valor = 0
valor = Val(inputbox("Escriba un nº del 1 al 12"))
If valor < 1 Or valor > 12 Then
Do
MsgBox ("El dato introducido no es válido")
valor = Val(inputbox("Escriba un nº del 1 al 12"))
Loop While valor < 1 Or valor > 12
Else
'Aquí iría el código que tienes hecho para cuando el
'valor es válido
End If
End Sub
Espero que ésto responda tu pregunta. Si así fuera, por favor, no olvides finalizar la pregunta. Si te queda algunta duda, vuelve a preguntarme y con gusto te ayudo.
