Macro para sumar contenido de celdas en listbox
Tengo esta macro
items = Hoja12.Range("A" & Rows.Count).End(xlUp).Row
For i = 3 To items
If LCase(Hoja12.Cells(i, 1).Value) Like "*" & LCase(Me.ComboBox1.Value) & "*" Then
Me.ListBox1.AddItem Hoja12.Cells(i, 2)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Hoja12.Cells(i, 3)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Hoja12.Cells(i, 4)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Hoja12.Cells(i, 5)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Hoja12.Cells(i, 6)
End If
Next i
Y necesito que me sume las cantidad de la columna 5 (columna que dice cantidad en el usserform) en la fila que esta en negrita y me lo muestre en un label (label20) en el user form, que cada vez que haga un filtro me de el total de esa columna y lo ponga en el label abajo.
1 Respuesta
H o l a:
Ta paso la rutina actualizada
items = Hoja12.Range("A" & Rows.Count).End(xlUp).Row
For i = 3 To items
If LCase(Hoja12.Cells(i, 1).Value) Like "*" & LCase(Me.ComboBox1.Value) & "*" Then
Me.ListBox1.AddItem Hoja12.Cells(i, 2)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Hoja12.Cells(i, 3)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Hoja12.Cells(i, 4)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Hoja12.Cells(i, 5)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Hoja12.Cells(i, 6)
End If
Next i
'/////////////////////////////////////////////////////////////////
For i = 0 To ListBox1.ListCount - 1
tot = tot + Val(ListBox1.List(i, 3))
Next i
Label20 = totRecuerda valorar para finalizar saludos!
¡Gracias! perfecto
saludos
Valora para finalizar como "Excelente" o "Votar"
