Saltar al contenido

Sumar resultados de textbox a otro textbo


Recommended Posts

Buenas tardes.

Recuro a ustedes nuevamente, por que no puedo lograr hacer una simple suma de textbox que tienen formato de moneda, lo que quiero hacer es como un corte de caja, donde yo el numero de monedas y billetes

y que me aparezca en otro texbox el total de cada moneda, y despues sumar los totales de los textbox

de monedas y billtes.

Ya tengo una idea pero la verdad no me funciona.

El problema es que la macro funciona si meto los numero manuales, no funciona si los numeros

me los da ya sumados.

Espero me haga entender, o por sino, les dejo mi archivo.

Si alguien desea ayudarme a resolver esta duda, que no encuentro yo la solucion.

Gracias.

Corte Caja.zip

Enlace a comentario
Compartir con otras webs

Talvez no me di a entender mucho.

Texbox1 + Textbox2= Textbox3

Texbox4 + Textbox5= Textbox6

Texbox7 + Textbox8= Textbox9

Textbox 3, 6 y 9 me dan las suma automáticamente.

Ahora lo que quiero es:

Textbox3 + Textbox6 + Textbox9 = Texbox 10

Que todos los resultados de los textbox anteriores se sumen y el resultado me lo de en otro textbox.

De antemano muchas gracias por su respuesta.

Enlace a comentario
Compartir con otras webs

Buenas tardes.

Espero no molestar tanto.

Les dejo mi formulario que estoy intentando terminar, solo que no encuentro soluciones.

Lo que deseo es que en vez de dar click a cada boton y se ejecute la macro, en vez de eso que las sumas me las de automaticamente, ya intente con otro metodos pero no me da la suma de los textbox.

Este es uno de los que e tratado de usar:

Sub SUMA()
Me.TextBox15 = Format((Val(Me.TextBox28.Value) + Val(Me.TextBox27.Value) + Val(Me.TextBox26.Value)), "$#,###,###.00")
End Sub[/PHP]

y poniendo esto en cada texbox a sumar:

[PHP]Call SUMA[/PHP]

Pero no me da la suma, solo si meto los valores manualmente.

Ahora solo e encontrado una solucion no muy agradable, es hacerlo mediante varios botones, pero eso no es lo que quiero, lo que quiero es que las sumas sean automaticas.

Si serian tan amables de revisar mi falla.

Dejo mi archivo nuevo.

Gracias.

Corte de Caja.rar

Enlace a comentario
Compartir con otras webs

buenas compañero revice tu userform y hay muchos errores hay que estructurar bien el codigo que tienes. primero hay error el las sumas que pides text1. txt2 = txt3 dices que es suma y por lo que se entiende es resta ya que hablas de diferiencia. luego pides que esto se cumpla (Textbox3 + Textbox6 + Textbox9 = Texbox 10) el txt10 no exciste en tu formulario jamas te daria resultado. tambien jamas podrias sumar una fecha o un valor numerico de otro textbox, ya que pides sumas del text1-txt2, donde txt1 es una fecha no un valor. y para finalizar para entender bien tu problema es sumar caja chica mas caja actual, i que te de el total de las 2.

Enlace a comentario
Compartir con otras webs

buenas compañero revice tu userform y hay muchos errores hay que estructurar bien el codigo que tienes. primero hay error el las sumas que pides text1. txt2 = txt3 dices que es suma y por lo que se entiende es resta ya que hablas de diferiencia. luego pides que esto se cumpla (Textbox3 + Textbox6 + Textbox9 = Texbox 10) el txt10 no exciste en tu formulario jamas te daria resultado. tambien jamas podrias sumar una fecha o un valor numerico de otro textbox, ya que pides sumas del text1-txt2, donde txt1 es una fecha no un valor. y para finalizar para entender bien tu problema es sumar caja chica mas caja actual, i que te de el total de las 2.

Hola "dmslop" una disculpa ya tengo el archivo casi como lo deseo, solo que no me suma los puntos decimales, si eres tan amable de volver a revisar mi archivo y apoyarme con este error.

Lo que trato de hacer es:

En el textbox Caja Chica le meto la cantidad manual a cuadrar, posteriormente pongo en cada moneda o billete el numero de billetes y monedas que tengo en caja, por ejemplo si tengo 3 monedas de 1 peso el resultado sera 3 pesos; en el textbox Total Monedas me dara el total de dienero en monedas que tengo, al igual que en el Textbox de Total Billetes.

En el Textbox Total Efectivo me suma Total Monedas mas Total Billetes. En el Textbox diferencia hacer la resta de Textbox Caja Chica menos Textbox Total Efectivo.

El problema es que no me suma el punto decimal de las monedas de 50 centavos. si me puedes apoyar en eso porfavor .

Corte Caja 3.zip

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 96 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      177
    • Comentarios
      90
    • Revisiones
      27

  • Crear macros Excel

  • Mensajes

    • Prueba este código. Sin el archivo no te puedo ajustar más. Private Sub btnCargaBancos_Click() 'El tipo de dato debe especificase para cada variable Dim TasaCompra As Double, TasaVenta As Double, InvBanesco As Double, InvVzla As Double Dim MontoBanesco As Double, MontoVzla As Double, TasaDiaBan As Double, TasaDiaVzla As Double Dim TasaActual As Double 'Hay que comprobar que los textbox tienen contenido numérico 'Los datos numéricos solo pueden contener números y el separador decimal, cualquier otro caracter dará error al convertir If Not IsNumeric(txtInverBanesco) Or _ Not IsNumeric(txtInverVzla) Or _ Not IsNumeric(txtTasaCompra) Or _ Not IsNumeric(txtTasaVenta) Then MsgBox "Los datos deben ser numéricos", vbCritical Exit Sub End If InvBanesco = CDbl(txtInverBanesco) InvVzla = CDbl(txtInverVzla) TasaCompra = CDbl(txtTasaCompra) TasaVenta = CDbl(txtTasaVenta) 'Los datos de los divisores no pueden ser 0 (Indeterminación matemática) If TasaCompra = 0 Or _ InvBanesco = 0 Or _ InvVzla = 0 Then MsgBox "Los datos no admiten valor cero", vbCritical Exit Sub End If MontoBanesco = (InvBanesco / TasaCompra) * (1 - 0.18 / 100) * (TasaVenta * (1 - 0.18 / 100)) MontoVzla = (InvVzla / TasaCompra) * (1 - 0.18 / 100) * (TasaVenta * (1 - 0.18 / 100)) TasaDiaBan = (MontoBanesco / InvBanesco) * (1 - 0.055) TasaDiaVzla = (MontoVzla / InvVzla) * (1 - 0.055) If TasaDiaBan < TasaDiaVzla Then TasaActual = TasaDiaBan Else TasaActual = TasaDiaVzla End If 'En VBA, los datos numéricos no admiten ser formateados, formatear directamente en las celdas, 'MontoBanesco = FormatNumber(MontoBanesco, 2, True, vbFalse) 'MontoVzla = FormatNumber(MontoVzla, 2, True, vbFalse) 'TasaActual = FormatNumber(TasaActual, 5, True, False) txtBcoBanesco = MontoBanesco txtBcoVenezuela = MontoVzla txtTasaDiaria = TasaActual End Sub  
    • Hola a ambos, @MarianoCruz, si con la respuesta de @Israel Cassales ya tienes resuelto el problema, perfecto. Punto final y a otra cosa. Pero piensa que tu archivo lleva vínculos externos, así que se hace difícil (prácticamente imposible) comprobar si las propuestas dadas ofrecen el resultado esperado. A tal efecto, te sugiero que vuelvas a subir otro archivo, esta vez insertando nuevas hojas que contengan los datos existentes en esos archivos externos.  Tal vez así se vea claro qué es lo que buscas conseguir, y se puedan hacer pruebas que verifiquen la bondad de el/los resultado/s. Tampoco iría mal que insertaras a mano qué resultado debe aparecer en la celda C3 en cada uno de los 3 casos: cuando se inserte 'XI', 'XL' o unos u otros números en los lugares apropiados. Así iremos totalmente sobre seguro acerca del método a emplear. Saludos,
    • Hi Trate de ver que hacían las fórmulas en cuestión pero a su libro le falta o le faltan hojas, por lo que solo podría participar con un par de ideas en general. Lo que entiendo es que según el valor de B3 en C3 debe poner una fórmula u otra, así que es posible que si combina DIRECCION() con INDIRECTO() pueda intercambiar de una fórmula a otra. =SI(B3="Xl",INDIRECTO(DIRECCION(3,5)),SI(O(B3=1,B3=2,B3=3),INDIRECTO(DIRECCION(4,5)),"")) Otra forma sería poner nombre a esas fórmulas en el cuadro de nombres para que las pueda mandar llamar a una o a la otra según el resultado de B3. Por favor tome en cuenta, es solo una idea.
    • Buenas tardes! Tengo el siguiente código: Private Sub btnCargaBancos_Click() Dim TasaCompra, TasaVenta As Double Dim InvBanesco, InvVzla, MontoBanesco, MontoVzla As Double Dim TasaDiaBan, TasaDiaVzla, TasaActual As Double 'Inversion = Val(txtInversion.Text) InvBanesco = Val(CDbl(txtInverBanesco.Text)) InvVzla = Val(CDbl(txtInverVzla.Text)) TasaCompra = Val(CDbl(txtTasaCompra.Text)) TasaVenta = Val(CDbl(txtTasaVenta.Text)) MontoBanesco = (InvBanesco / TasaCompra) * (1 - 0.18 / 100) * (TasaVenta * (1 - 0.18 / 100)) MontoVzla = (InvVzla / TasaCompra) * (1 - 0.18 / 100) * (TasaVenta * (1 - 0.18 / 100)) TasaDiaBan = (MontoBanesco / InvBanesco) * (1 - 0.055)      TasaDiaVzla = (MontoVzla / InvVzla) * (1 - 0.055) If TasaDiaBan < TasaDiaVzla Then     TasaActual = TasaDiaBan Else     TasaActual = TasaDiaVzla End If MontoBanesco = FormatNumber(MontoBanesco, 2, True, vbFalse) MontoVzla = FormatNumber(MontoVzla, 2, True, vbFalse) TasaActual = FormatNumber(TasaActual, 5, True, False) txtBcoBanesco.Value = MontoBanesco txtBcoVenezuela.Value = MontoVzla txtTasaDiaria.Value = TasaActual End Sub   Como se puede apreciar InvBanesco ,  InvVzla , TasaCompra y TasaVenta, son valores que introduce el usuario a través de los respectivos cuadros de texto. Tengo los siguientes problemas: a. Las fórmulas no se ejecutan correctamente (pareciese que no reconociese los números entrados vía cuadros de texto). b. Al darle valor cero (0) a cualquiera de los valores de InvBanesco o  InvVzla, me genera un error en TasaDiaBan o TasaDiaVzla (según sea el caso), aunque, como se puede apreciar, debería generar un valor cero (0). Como dije en mi presentación estoy empezando en esto de la codificación...y quiero aprender de Uds! Agradezco su ayuda! Nota: lamentablemente el fichero es mas grande de lo permitido y no pude anexarlo.  
    • Hola buenas tardes. En una hoja plantilla donde realizo diferentes consultas de datos. tengo ya establecido dos formulas diferentes con función SI y buscar. estos buscan diferentes rangos de datos y recibendiferentes resultados. Cada formula varia según una palabra o numero  ejemplo si pongo Xl pone la formula 1 y si pongo cualquier numero entre 1 y 3 pone la segunda formula. Lo que necesito hacer es que si en una celda de la columna B3 pongo XL debería de considerar la formula 1 y si pusiera el numero 1 me pondría la segunda formula, dentro de la misma formula. Ya agregue la función SI($C3="Xl",Formula1.. Pero no me funciona, espero me puedan ayudar.   Muchas gracias Mariano   Formula doble si en celda existe.xlsx
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.