AlgoSencilloParaUstedes

¿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

Con el 'si' ya lo tengo hecho y está funcionando
actualmente, pero mi idea es empezar a meterme con VBA
para ir aprendiendo pocoa poco. Se agradece la sugerencia.

¿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


.

Private Sub CommandButton1_Click()

If Cells(2, 3).Value > 1000 Then
Cells(8, 6).Value = ((1000 - 800) * 0.12) + ((Cells(2,
3).Value) - 1000) * 0.15
ElseIf Cells(2, 3).Value >= 800 And Cells(2, 3).Value <=
1000 Then
Cells(9, 6).Value = (Cells(2, 3).Value - 800) * 0.12
Else
Cells(10, 6).Value = (Cells(2, 3).Value - 800) * 0.12
End If

End Sub

Saludos desde Zaragoza-España

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

.