If Then Else

[flyk]

Realmente no se que esta mal, sólo me ejecuta la 1º acción para ambos casos. Por ejemplo, si difX o difY = 650, solo me realiza el primer If y no me salta al segundo como debería ser.
¿en que me falla?, ¿cómo puedo resolverlo?

Dim difX, difY
difX=Rng(2)-Rng(0)
difY=Rng(3)-Rng(1)

Public valor, escala
If difX>difY Then

IF difX<=500 Then
valor1=(difX/10.5)*100
valor= 500/valor1
escala = 500

ElseIf difX>500 and difX<=1000 Then
valor1=(difX/10.5)*100
valor= 1000/valor1
escala = 1000

ElseIf difX>1000 and difX<=2000 Then
valor1=(difX/10.5)*100
valor= 2000/valor1
escala = 2000

ElseIf difX>2000 and difX<=4000 Then
valor1=(difX/10.5)*100
valor= 4000/valor1
escala = 4000

Else
End If

Else
IF difY<=500 Then
valor1=(difY/10.5)*100
valor= 500/valor1
escala = 500

ElseIf difY>500 and difY<=1000 Then
valor1=(difY/10.5)*100
valor= 1000/valor1
escala = 1000

ElseIf difY>1000 and difY<=2000 Then
valor1=(difY/10.5)*100
valor= 2000/valor1
escala = 2000

ElseIf difY>2000 and difY<=4000 Then
valor1=(difY/10.5)*100
valor= 4000/valor1
escala = 4000

Else
END IF
END IF

[ivan_noe]

Yo lo haria de otra forma;
Cogería el mayor
if difX>difY then
temp=difX
else
temp=difY
end if
if temp<=500 then
escala=500
elseif temp>500 anf temp<=1000 then
escala=1000
elseif temp>1000 anf temp<=2000 then
escala=2000
elseif temp>2000 anf temp<=4000 then
escala=4000
else
escala=0
end if
valor1=(temp/10.5)*100
valor=escala/valor1

No lo ves más facil???

y si tienes algún fallo es mas facil de depurar

[ivan_noe]

Los 'anf' en realidad son 'and', je,je,je....

Saludos!!!!