Macro con condicionales
Hola y muchas gracias por adelantado por su tiempo.
He intentado hacer una macro con If, Then, Else pero no lo he conseguido.
Mi objetivo es es siguiente. En un INPUTBOX me pide un valor y me tiene que dar un resultado en un MSGBOX con un resultado, condicionado a lo siguiente: Si el valor introducido es menor de 100 el resultado será, el valor del INPUTBOX mas un 100%. Si está entre 100 y 500 se calcula el 80%. Si está entre 500 y 1000 se calcula el 60% y si es mayor de 1000, se calcula el 40%.
Muchas gracias.
2 Respuestas
Ejecuta esta macro y lo tendrás:
(Recuerda FINALIZAR y PUNTUAR mi labor)
Sub valores()
valor = InputBox("introduzca un número")
Select Case valor
Case Is < 100
MsgBox "el resultado es " & valor * 1.1
Case 100 To 500
MsgBox "el resultado es " & valor * 1.8
Case 500 To 1000
MsgBox "el resultado es " & valor * 1.6
Case Else
MsgBox "el resultado es " & valor * 1.4
End Select
End Sub
Muchas gracias.
Es justo lo que necesitaba. Sencillo y funcional.
Has sido muy amable por dedicar un poco de tu tiempo.
Un saludo.
Me va a disculpar, pero se ha confundido de categoría ya que está usted en Herencias, no en informática o programación.
Ruego cierre la misma