............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Sumar con decimales

Ver el tema anterior Ver el tema siguiente Ir abajo

Sumar con decimales

Mensaje por Roberto2010 el Lun Mar 28, 2011 2:55 pm

Desde ya gracias por el tiempo.
Adjunto un archivo para que me ayuden a corregirlo a vuestro mejor criterio.
La idea que el textbox 'total' pueda sumar con decimales (no suma los decimales del textbox 'no gravado')
Muchas gracias.


avatar
Roberto2010

Masculino Cantidad de envíos : 76
Edad : 41
Ciudad - Pais : ARGENTINA
Version de Excel : 2003-2007
Fecha de inscripción : 03/09/2010

Volver arriba Ir abajo

Re: Sumar con decimales

Mensaje por GalileoGali el Jue Mar 31, 2011 10:39 pm

Código:
Function PuntoSepDecimal() As Boolean
PuntoSepDecimal = Mid(Format(1, "Fixed"), 2, 1) = "."
End Function

Private Sub TextBox1_Change()
Dim txb1 As String
TextBox2 = "0"
TextBox3 = "0"
TextBox4 = "0"
txb1 = TextBox1.Text

If PuntoSepDecimal Then
TextBox2 = Format(txb1 * 0.21, "0.00")
TextBox4 = Format(Val(txb1) + Val(TextBox2) + Val(TextBox3), "0.00")
Else

TextBox2 = Format(txb1 * 0.21, "0.00")
TextBox4 = Format(CDbl(txb1) + CDbl(TextBox2.Value) + CDbl(TextBox3.Value), "0.00")
End If
TextBox1 = Replace(TextBox1.Text, ".", ",")

End Sub
Proba esto

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Sumar con decimales

Mensaje por Roberto2010 el Vie Abr 01, 2011 12:17 pm

Estimado Sr Gali,
Muchas gracias por su ayuda, sin embargo reemplazé todo el codigo y ahora el textbox4 no suma ni la parte entera el textbox3.
¿Habré reemplazado mal el código?
Muchas gracias.
avatar
Roberto2010

Masculino Cantidad de envíos : 76
Edad : 41
Ciudad - Pais : ARGENTINA
Version de Excel : 2003-2007
Fecha de inscripción : 03/09/2010

Volver arriba Ir abajo

Re: Sumar con decimales

Mensaje por GalileoGali el Vie Abr 01, 2011 9:50 pm

sube el codigo y vemos

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Sumar con decimales

Mensaje por Roberto2010 el Miér Abr 06, 2011 8:34 pm

Ahí lo subo Sr Gali
Aclaro que:

Function PuntoSepDecimal() As Boolean
PuntoSepDecimal = Mid(Format(1, "Fixed"), 2, 1) = "."
End Function

Lo puse tanto en el formulario como en el modulo, para probar si ese era el problemita, pero sigue sin sumar el textbox3 'no gravado'
Muchas Gracias
avatar
Roberto2010

Masculino Cantidad de envíos : 76
Edad : 41
Ciudad - Pais : ARGENTINA
Version de Excel : 2003-2007
Fecha de inscripción : 03/09/2010

Volver arriba Ir abajo

Re: Sumar con decimales

Mensaje por GalileoGali el Miér Abr 06, 2011 10:09 pm

En el formulario: agregue un CommandButton

y el siguiente codigo asociado

Código:
Private Sub CommandButton1_Click()
TextBox2 = Format(Val(Replace(TextBox1, ",", ".")) * 0.21, "#,##0.00")
TextBox4 = Format(Val(Replace(TextBox1, ",", ".")) + Val(Replace(TextBox2, ",", ".")) + Val(Replace(TextBox3, ",", ".")), "#,##0.00")
End Sub
este queda en el modulo estandard
Código:
Sub s()
UserForm1.Show
End Sub

El textBox3 como se alimenta???
supuse que sería "a mano por el usuario"

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Sumar con decimales

Mensaje por Roberto2010 el Jue Abr 07, 2011 8:19 am

Sr Gali
Excelente! anda muy bien.
Sobre el textbox 3: Sí. Se carga manualmente
Muy amable de su parte
avatar
Roberto2010

Masculino Cantidad de envíos : 76
Edad : 41
Ciudad - Pais : ARGENTINA
Version de Excel : 2003-2007
Fecha de inscripción : 03/09/2010

Volver arriba Ir abajo

Re: Sumar con decimales

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.