Error 13

[davchi]

Hola a todos, tengo un problema

Private Sub Text2_Change()
Dim original As Double
Dim porcentaje As Variant
Dim total As Double
original = Text1.Text
porcentaje = Text2.Text
Label1.Caption = original
If porcentaje = Empty Then
Label1.Caption = original
Else
total = CDbl(original) * (1 - (CDbl(porcentaje) / 100))
End If
Label1.Caption = total
End Sub


El problema es que si agrego un valor en el Text2 y luego lo borro me queda en 0 el total, y tendria que oner el valor Original:


alguna idea de como solucionarlo

muchas gracias

[Insomnia]

Hola

Porque declaras porcentaje como Variant, si es un número decláralo como tal. Si porcentaje es 0 normal que el total te de cero. Si lo que quieres es que no entre en esa parte comprueba el valor que coge y pongo en el in. P.e. If porcentaje = 0

Resumiendo, si porcentaje es numérico decláralo como tal y cambia la condición if

--Saludos--