Ayuda para modificar macro que sume valores de columnas de un listbox en varios textbox
Hey que tal expertos!
Aquí de nuevo, solicitando su ayuda para modificar esta macro pues tengo la necesidad de aumentar más cuadros de texto para mostrar el total de otras columnas del mismo listbox.
Los textbox que necesito agregar son:
textbox10 = suma total de la columna 8
textbox 14= suma total de la columna 13
Anexo parte de la macro que necesito modificar:
toti = 0
col = 16
If ListBox1.ListCount = 0 Then Exit Sub
For i = 1 To ListBox1.ListCount - 1
toti = toti + ListBox1.List(i, 6)
Next i
TextBox8 = FormatCurrency(toti)
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Private Sub CommandButton1_Click() tot10 = 0 tot14 = 0 If ListBox1.ListCount = 0 Then Exit Sub For i = 0 To ListBox1.ListCount - 1 tot10 = tot10 + ListBox1.List(i, 7) tot14 = tot14 + ListBox1.List(i, 12) Next i TextBox10 = FormatCurrency(tot10) TextBox14 = FormatCurrency(tot14) End Sub
Saludos.Dante Amor
Recuerda valorar la respuesta.
