UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Resta de texboxs el 10/06/14, 05:11 pm

raptor


Que tal mundo de expertos VBA, reciban un gran saludo. Estoy trabajando en un nuevo proyecto y me ocurrio un problemita con la resta de unos textboxs, y me preguntaba si pudiesen darme una mano para poder llegar a una solución. Esto es lo que pasa:

tengo estos texts; txt3,txt4,txt9,txt11, y el funcionamiento es; txt9+txt3= txt4.

Lo que no me funciona es: txt11= txt11-txt3.

De antemano sé que es necesario de tres textboxs para que la instrucción funcione a la perfección, sólo que en verdad necesito que esta ultima instruccion puda funcionar, es decir que txt11=txt11-txt3, pero.

1.- Si coloco txt11=txt11-txt3, y txt11= 200, txt3= 10, arroja de resultado: 180, que es incorrecto, yq que debería arrojar "190".

2.-Si coloco txt11=txt11-txt3, y txt11=200, y txt3=10, arroja: -190, es decir la operación correcta, pero con signo negtivo.


Con este ultimo intente colocar la instrucción "ABS", para cambiarle el signo, pero no tuve éxito y arrojaba el resultado como si fuese el primer ejemplo.


¿Habrá una posibilidad de realizar lo que planteo?, espero que se pueda hacer. Muchas gracias, toda sugerencia será bien recibida. Saludos nuevamente.
Archivos
ABS.zip
No tienes los permisos para descargar los archivos.
(23 KB)

2RESUELTO Re: Resta de texboxs el 10/06/14, 09:38 pm

Igtelo


Hola raptor.
Lo que dices es esto:
TextBox11 = Val(TextBox11.Value) - Val(TextBox3.Value)

Y lo que tienes es esto:
TextBox11 = Val(TextBox3.Value) - Val(TextBox11.Value)

Pequeño error de orden...

Saludos
Ignacio Téllez

3RESUELTO Re: Resta de texboxs el 11/06/14, 12:14 am

raptor


Hola Igtelo, gracias por responder.

Si, mira; el problema es que de ambas maneras no produce el resultado deseado, me explico.

Sea textbox11 igual a "200",y textbox3 sea igual a "10". En las dos situaciones no es correcto, ya que:

De la manera 1.

TextBox11 = Val(TextBox11.Value) - Val(TextBox3.Value)  'da como resultado "180", cosa que no debería, lo que busco es que de "190", y así con cual quier cantidad que se introsuzca haga correctamente la resta.



De la manera 2.

TextBox11 = Val(TextBox3.Value) - Val(TextBox11.Value) ' da como resultado "-190", si bien es cierto que el resultado de la resta arroja el numero correcto, lo arroja con signo negativo, "recordemos que busco signo positivo". Es decir "190"

Anteriormente explique que había optado por la opción/manera numero 2, porque daba el resultado de la resta en negativo, y despues de obtener el resultado trate de cambiarle el signo con la instrucción ;
TextBox11.Text= Abs(Val(TextBox11.text))

Lo cual no funciono. A lo que viene mi petición de ayuda, es decir, ¿existe alguna manera en la que se pueda restar correctamente estos ultimos dos textboxs?

Saludos.

4RESUELTO Re: Resta de texboxs el 11/06/14, 01:32 pm

jhon1904


hola raptor,

lo que le dice nacho es correcto esta mal organizado, y esta utilizando la propiedad del textbox incorrecta

utiliza esta


Private Sub TextBox3_AfterUpdate()
Dim vbAbortRetry As Byte
'SUMA DE TEXTBOXS
If TextBox3 <> "" And TextBox3 > 0 Then
TextBox4 = Val(TextBox9.Value) + Val(TextBox3.Value)
TextBox11 = Val(TextBox11.Value) - Val(TextBox3.Value)
'TextBox11 = Abs(Val(TextBox11.Text))

Else
TextBox4 = Val(TextBox9)
End If

End Sub


saludos

desde colombia

jhon borja

5RESUELTO Re: Resta de texboxs el 11/06/14, 03:04 pm

raptor


Hola Jhon1904, gracias por responder.

He probado la opción que me señalas y funciona perfectamente, muchas gracias. Gracias a Igtelo por contestar, y la razón por la cual no entendi su sugerencía fue porque no me especifico el evento en el que se debía colocar la instrucción, pero le agradezco mucho el haber participado en la solución a este problema.

Nuevamente gracias Jhon1904, eres un gran experto. Saludos

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

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