AlgoSencilloParaUstedes

25/05/2004 - 16:06 por Anherco | Informe spam
Hola a todos, se me plantea un problema al calcular un
precio en función de una variable mis conociemientos no
dan para mucho y tampoco quiero liarme demasiado, si
alguien pudiera ayudarme le estaría muy agradecido:

Si la casilla (2,3) es mayor que 1000 que aparezca el
resultado en la casilla (8,6) multiplicado por 0,12 lo que
excede de 800 hasta 1000 y por 0,15 el resto. (Ya
conseguido, creo)
Si la casilla (2,3) está entre 800 y 1000 que aprezca el
resultado en la casilla (9,6) multiplicado por 0,12 el
exceso sobre 800
Si la casilla (2,3) es menor que 800 que apareca la
diferencia en la casilla (10,6) multiplicado por 0,12 (en
este caso debe ser en negativo, quizá se pueda unir a la
condición anterior, o incluso todas en una)

Se me ocurre algo así pero me falta darle una vuelta más

Private Sub CommandButton1_Click()
If Hoja1.Cells(2, 3) > 1000 Then Hoja1.Cells(8, 6) =
(Hoja1.Cells(2, 3) - 1000) * 0.15 + 200 * 0.12

If 800 < Hoja1.Cells(2, 3) < 1000 Then Hoja1.Cells(9, 6) =
(Hoja1.Cells(2, 3) - 800) * 0.12
End Sub
 

Leer las respuestas

#1 Adolfo
25/05/2004 - 18:34 | Informe spam
¿Es necesario realizarlo en VBA? porque creo que se puede hacer con la
función SI sin necesidad de recurrir a codigo.

Un saludo,
Adolfo
"Anherco" escribió en el mensaje
news:121e001c44261$6afad1a0$
Hola a todos, se me plantea un problema al calcular un
precio en función de una variable mis conociemientos no
dan para mucho y tampoco quiero liarme demasiado, si
alguien pudiera ayudarme le estaría muy agradecido:

Si la casilla (2,3) es mayor que 1000 que aparezca el
resultado en la casilla (8,6) multiplicado por 0,12 lo que
excede de 800 hasta 1000 y por 0,15 el resto. (Ya
conseguido, creo)
Si la casilla (2,3) está entre 800 y 1000 que aprezca el
resultado en la casilla (9,6) multiplicado por 0,12 el
exceso sobre 800
Si la casilla (2,3) es menor que 800 que apareca la
diferencia en la casilla (10,6) multiplicado por 0,12 (en
este caso debe ser en negativo, quizá se pueda unir a la
condición anterior, o incluso todas en una)

Se me ocurre algo así pero me falta darle una vuelta más

Private Sub CommandButton1_Click()
If Hoja1.Cells(2, 3) > 1000 Then Hoja1.Cells(8, 6) (Hoja1.Cells(2, 3) - 1000) * 0.15 + 200 * 0.12

If 800 < Hoja1.Cells(2, 3) < 1000 Then Hoja1.Cells(9, 6) (Hoja1.Cells(2, 3) - 800) * 0.12
End Sub

Preguntas similares