Visual Basic para Aplicaciones - Condicional

Life is soft - evento anual de software empresarial
   
Vista:

Condicional

Publicado por Alejandro (1 intervención) el 19/12/2007 15:42:51
Hola estoy haciendo un form para excel y necesito saber como hacer que un textbox muestre lo siguiente:

La celda D1 muestra el resultado de una formula suma, entonces partiendo de ese resultado quisiera utilizar los comandos SELECT CASE o IF THEM ELSE para resolver lo siguiente pero no se como.

A2 <= D1 <= B2 entonces D1=C2
A3 <= D1 <= B3 entonces D1=C3
A4 <= D1 <= B4 entonces D1=C4
si D1 no se encuentra entre A2 y B4 muestra mensaje de error

y que el valor resultante lo guarde en E1 y lo muestre en un textbox.

Por favor, que alguien me ayude.
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Condicional

Publicado por doplear (22 intervenciones) el 30/04/2008 21:44:05
Sub verificar()

dim valor as string

valorA2 = Range("A2").Value
valor


A2 <= D1 <= B2 entonces D1=C2
A3 <= D1 <= B3 entonces D1=C3
A4 <= D1 <= B4 entonces D1=C4
si D1 no se encuentra entre A2 y B4 muestra mensaje de error

if Range("A2").Value <= Range("D1").Value and Range("D1").Value <= Range("B2 ").Value then
Range("D1").Value=Range("C2").Value

Else
if Range("A3").Value <= Range("D1").Value and Range("D1").Value <= Range("B3 ").Value then

Range("D1").Value=Range("C3").Value
else

if Range("A4").Value <= Range("D1").Value and Range("D1").Value <= Range("B4 ").Value then
Range("D1").Value=Range("C4").Value

Else

MsgBox ("D1 no se encuentra entre A2 y B4")
end if

end if
end if

end sub


Saludos desde Argentina
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar