Dim difX, difY
difX=Rng(2)-Rng(0)
difY=Rng(3)-Rng(1)
Public valor, escala
If (difY>difX and difY<=500) Then
valor1=((difY/10.5)*100)
valor= 500/valor1
escala = 500
ElseIf (difY>difX and difY>500 and difY<=1000) Then
valor1=((difY/10.5)*100)
valor= 1000/valor1
escala = 1000
ElseIf (difY>difX and difY>1000 and difY<=2000) Then
valor1=((difY/10.5)*100)
valor= 2000/valor1
escala = 2000
ElseIf (difY>difX and difY>2000 and difY<=4000) Then
valor1=((difY/10.5)*100)
valor= 4000/valor1
escala = 4000
Else
END IF
If (difX>difY and difX<=500) Then
valor1=((difX/10.5)*100)
valor= 500/valor1
escala = 500
ElseIf (difX>difY and difX>500 and difX<=1000) Then
valor1=((difX/10.5)*100)
valor= 1000/valor1
escala = 1000
ElseIf (difX>difY and difX>1000 and difX<=2000) Then
valor1=((difX/10.5)*100)
valor= 2000/valor1
escala = 2000
ElseIf (difX>difY and difX>2000 and difX<=4000) Then
valor1=((difX/10.5)*100)
valor= 4000/valor1
escala = 4000
ELSE
END IF
¿Por que me falla?, sólo se ejecuta la primera acción dependiendo de la difX o difY
