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

2 Respuestas

807.075 pts. Excel avanzado y VBA

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.

984.600 pts. Abogado en ejercicio

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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas