¿Por qué cambia el resultado a veces, en esta fórmula de excel? Userform1 + multiplicacion de textbox
Siempre los he seguido y uf me han ayudado un montón, increíble tanto conocimiento, ahora bien, necesito saber algo que esta sucediendo con una fórmula, tengo esta de aquí que calcula los cbm:
Private Sub calcular_Click()
cbm1 = (Val(l1) * Val(a1) * Val(aa1) * Val(b1)) / Val(1000000)
cbm2 = (Val(l2) * Val(a2) * Val(aa2) * Val(b2)) / Val(1000000)
cbm3 = (Val(l3) * Val(a3) * Val(aa3) * Val(b3)) / Val(1000000)
cbm4 = (Val(l4) * Val(a4) * Val(aa4) * Val(b4)) / Val(1000000)
cbm5 = (Val(l5) * Val(a5) * Val(aa5) * Val(b5)) / Val(1000000)
cbm6 = (Val(l6) * Val(a6) * Val(aa6) * Val(b6)) / Val(1000000)resultadocbm = Val(cbm1) + Val(cbm2) + Val(cbm3) + Val(cbm4) + Val(cbm5) + Val(cbm6)
resultadocbm = Format(Val(resultadocbm.Value), "##,###0.00")ActiveSheet.Range("f11").Value = resultadocbm
End Sub
Con esto, se arma este cuadrito:
Hasta aquí todo bien.. Realizo una prueba y todo bien, pero luego de la nada, sucede que el total es diferente! Y no se porque
En el ejemplo aparece correcto, pero, de un momento a otro, en el cuadrito de arriba aparece 2,88 y abajo 2.00, ¿se coloca una coma? Y abajo un punto, pero no cuenta los decimales..
He cambiado la fórmula un millón de veces y de un momento a otro... Sin hacer nada, vuelve ese problema de la coma en el cuadrito de arriba y el punto en el cuadro de abajo..
Aquí el ejemplo de lo que aparece...
Alguna
H o l a
prueba con esto
Private Sub calcular_Click()
cbm1 = (Val(l1) * Val(a1) * Val(aa1) * Val(b1)) / 1000000
cbm2 = (Val(l2) * Val(a2) * Val(aa2) * Val(b2)) / 1000000
cbm3 = (Val(l3) * Val(a3) * Val(aa3) * Val(b3)) / 1000000
cbm4 = (Val(l4) * Val(a4) * Val(aa4) * Val(b4)) / 1000000
cbm5 = (Val(l5) * Val(a5) * Val(aa5) * Val(b5)) / 1000000
cbm6 = (Val(l6) * Val(a6) * Val(aa6) * Val(b6)) / 1000000
resultado = Val(cbm1) + Val(cbm2) + Val(cbm3) + Val(cbm4) + Val(cbm5) + Val(cbm6)
resultadocbm = Format(Str(resultado), "#,##0.00")
ActiveSheet.Range("f11").Value = Str(resultado)
End Sub
