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

1 respuesta

Respuesta
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.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas