[Easy and fast] Sum ALL the TextBoxes of a UserForm in Excel

♥ Download the file| www.exceleinfo...
🏆 Subscribe | bit.ly/youtube...
👏 Do you want contribuite? | www.exceleinfo...
📩 Tutorials in your email: www.exceleinfo...
🔥 We have a Form with many Text Boxes or TextBoxes. We want to add all the values ​​entered in those Controls, but we want to do it quickly and easily, without using much VBA code.
👉 The following VBA code in Excel will be useful to go through all TextBoxes and accumulate in the Value1 variable and then show the result. We use the For Next Loop, If then Else and Integer type variables.
More examples | www.exceleinfo...
More examples | blogs.itpro.es...
Facebook Page | / exceleinfo
Get notificacions on Telegram | t.me/EXCELeINFO
Twitter | @EXCELeINFO
Twitter | @SergioACamposH
Download EXCELeINFO addin:
addin.excelein...
#MsExcel #VBA

[@joseantoniogilanaya25]

Justo lo que necesitaba, excelente explicación, muchas gracias estimado Sergio.

[@j.andresguerrero1490]

La idea es optimizar la macro y éstos instructivos sencillos nos ayudan muchísimo. Menos código y mas eficiencia. Sugiero más videos de optimización. Gracias Sergio. Saludos 😎

[@karlheinzschulervargas5255]

Gracias Sergio , en el mismo ejemplo , como puedo contar los textbox que tengan datos mayores a cero, Saludos.

[@adriandquinonez5789]

Me gusta mucho ese video excelente Sergio 🎊🎉🎊🎉🎊🎉🎊🎉🎊🎉

[@edgarpintado4046]

Buen aporte Sergio. gracias. Seria bueno si se puede en el curso de macros: el ver un tutorial para conectarnos a un XML como el de las facturas para poder sacar la información de estas de manera automatizada como importe, proveedor, etc de datos a través de sus diferentes nodos.

[@Ernesto_conde]

Muchas gracias por la ayuda . Un saludo

[@edgarsierra345]

Excelente y gracias Sergio, como lo haría para incluir decimales??

[@Roncoracing]

Hola Sergio como estas, muy buenos tus videos!!, hace rato que quiero encontrar algun codigo para c#, para sumar varios textbox y arrojar automaticamente el resultado en otro textbox pero sin botones, y la verdad que intente mil formas y no se como hacerlo. me podrias indicar si se puede y como seria, gracias, saludos

[@helbertramirez5679]

Sergio, no sabe cuánto llevo buscando esta solución. En esa búsqueda que encontre su canal y he aplicado sus enseñanzas para depurar mi proyecto. Muchas graciasss !! ahora le pregunta del millón? Cuando los campos en mi caso (80) ya lo nombre como "txtNOMBREX", que otra opción tendria entonces según lo comentado en el minuto 03,50. ?

[@SergioAlejandroCampos]

Helbert, otra opción es recorrer todos los controles de un Formulario e identificar el tipo, si son botones, textos, combos, etc. Le decimos que si detecta un TextBox, tome el valor y lo vaya sumando. Alguien en este comentario puso algo que de relaciona con tu pregunta. Te agradezco además, por la idea de un nuevo video.

[@zkl2365]

Gracias! Me salvo xd

[@SergioAlejandroCampos]

Gracias a ti.

[@hectorgomar2095]

Que tal Sergio excelente muchas gracias por la aportacion una pregunta sobre este video, es posible manejar decimales y tipo moneda

[@edgarsierra345]

a mi me valió este cambio Private Sub CommandButton1_Click() Dim i Dim Valor ' As Integer Dim Valor1 ' As Integer For i = 1 To 17 If VBA.IsNumeric(Me.Controls("TextBox" & i).Value) Then Valor = Me.Controls("TextBox" & i).Value 'Valor1 = Val(Valor1) + Val(Valor) Valor1 = Valor1 + Val(Valor) Else ' End If Next i Me.Label2.Caption = FormatNumber(Valor1, 2) End Sub

[@VelasPeres-zb4ez]

Excelente comentario

[@hectordiguardia7705]

Hola Sergio, fantástica tu explicación. Quisiera saber como sumar SOLO los TextBox que me interesan, no sé como identificarlos, Gracias.

[@esperanza1951ful]

Hola Sergio, muchas gracias , me hubiese gustado que la etiqueta del resultado estuviera transparente en cero.Saludos

[@edgarpintado4046]

Supongo que con el evento initialize (creo que es evento), le puedes poner que diga 0 o algo así al abrir el formulario.

[@luissmania6269]

hola Sergio esta claro , pero como hago si tengo en el formulario mas texbox que no quiero sumar , porque al llamar a la coleccion de textbox los estarian inclullendo. gracias

[@ock2403]

cambias el nombre de los textbox que no quieras llamar, asi no seran incluidos en la iteracion

[@rivalera]

buena la solución Sergio, pero cuando los valores son decimales no los toma como tal, donde hay que ponerle el formato de de numero ?

[@alexandergonzalojimenezcas3984]

existe otra manera de hacer la suma sin un bucle? se podría usar la función suma o algún otro método parecido

[@dankoduran8925]

muy buenos tus videos, me pregunto, cómo harías que conforme capturas en cada textbox, en otro textbos se vaya viendo la suma?

[@edgarsierra345]

a mi me sirvio este cambio: Private Sub CommandButton1_Click() Dim i Dim Valor ' As Integer Dim Valor1 ' As Integer For i = 1 To 17 If VBA.IsNumeric(Me.Controls("TextBox" & i).Value) Then Valor = Me.Controls("TextBox" & i).Value 'Valor1 = Val(Valor1) + Val(Valor) Valor1 = Valor1 + Val(Valor) Else ' End If Next i Me.Label2.Caption = FormatNumber(Valor1, 2) End Sub

[@edgarsierra345]

Disculpas el mensaje era para el siguiente comentario

[@ock2403]

creas la subrutina en un modulo, luego la mandas a llamar en cada textbox en su evento change

[@luismurillo6090]

Yo lo hago más o menos así, pero para verificar controles vacíos. For each ctrl in userform.controls If typename(ctrl) = "textbox" and ctrl =Empty then End if Next ctrl

[@ozzhernandez8166]

Muchas gracias! Todos los vídeos me han sido muy útiles

[@ock2403]

Me parece que si a valor se le inicia con 0 antes del ciclo for, no es necesario utilizar una variable adicional

[@wilitosanchez]

Buen día Sergio, como se haría para que el resultado de las sumas sea automáticamente un textbox, es decir vamos ingresando números y que se vaya sumando . Gracias por tu respuesta

[@ock2403]

creas la subrutina en un modulo, luego la mandas a llamar en cada textbox en su evento change

[@lincolnlazon1019]

Seria genial que haya la opcion de smar los tex box pero sin tener que usar la agrupacion como texbox , normalmente usamos diferentes nombres para identificarlos , quise usarlos para que se muestre en una lista y no me funciono

[@logisticaplantarviveros5104]

Buen día Sr. Alejandro,l de antemano agradecer su valiosa enseñanza, quisiera realizarle una consulta, tengo una base de datos en Access y quiero protegerla, pero esta enlazada a varios formularios de excel vba, y cada vez que ejecuto una macro para guardar, extraer, etc. me sale error. Existe una forma de proteger la base de datos y a la par ejecutar macros desde excel?

[@ock2403]

cnn.Properties("Jet OLEDB:Database Password") =

[@egm5611]

Hola Sergio: Primero saludarte y felicitarte por tu canal. Después, me gustaría saber en que ciudad te encuentras y ver si es posible contratarte para que me ayudes con unas macros para un programa de automatización de una empresa. me puedes pasar tu email por favor?

[@JesusLopez-ll4hd]

Necesito ayuda, tengo 15 ComboBox Con numeros del 1 al 20 cada uno, pero necesito que cada ComboBox multiplique por cada numero que se encuentra dentro en cantidades diferentes y me de resultado en un TextBox. Cada ComboBox son precios diferentes y platillos diferentes. ¿Pueden ayudar?

[@ock2403]

crea una estructura (lista, array) con los datos de tu lista de precios de tal forma que los indices de esta estructura sean congruentes con el sufijo de los texbox y listo, accedes a la par por el indice.

[@quasicambio]

Saludos. Y cómo puedo mandar el resultado a una tabla?

[@adriandquinonez5789]

Y si fuera por resta, multiplicación y división como seria solo se reemplaza el más por el menos o como seria hay ?

[@danilopaz1788]

Hola , Dios te bendiga , yo estoy empezando un proyecto y necesito una macro par llevar el control de las horas trabajadas que sirva como para tres o cuatro personas , Día , fecha ,pausa para almorzar y hora de salida , total de horas , tarifa y total ha pagar , no tengo mucha experiencia , gracias déjame saber cualquier cosa gracias nuevamente

[@EduardoGarcia-lf1ig]

Ayuda :'v, en vez de que la suma total salga en un textview, como hacer para que salga en un textbox, help por favor :'(

[@luislavarte]

Excelente el vídeo. Pero como hacemos cuando lo valores son decimales. He tratado de esta manera pero me sigue sumando enteros Sub SumarTextBox() Dim i Dim Valor As Double Dim Valor1 As Double For i = 33 To 48 If VBA.IsNumeric(UserForm1.Controls("TextBox" & i).Text) Then Valor = CDbl(Val(UserForm1.Controls("TextBox" & i).Text)) Valor1 = CDbl(Val(Valor1)) + CDbl(Val(Valor)) Else End If Next i UserForm1.lblstcaja.Caption = Format(CDbl(Val(Valor1) * 1), "#,##0.0000") UserForm1.lblstbot.Caption = Format(CDbl(Val(Valor1) * 1) / CDbl(12 * 1), "#,##0.0000") End Sub Me podría indicar que estoy haciendo mal Muchas Gracias por su atención l

[@eldaveplayt]

'