sumar una columna en listbox segun criterio de otra columna

1 post / 0 nuevos
Jean Colmenares
Imagen de Jean Colmenares
Offline
última acción: Hace 1 mes 1 semana
alta: 26/11/2018 - 02:06
Puntos: 60
sumar una columna en listbox segun criterio de otra columna

Buenas tardes amigo, mi problema es el siguiente tengo una lista cargada en un listbox que iene de una hoja llamada ventas por producto donde tengo fechas, codigo y cantidad, mi pregunta es como puedo sumar las cantidades que tengan el mismo codigo despues de eliminar los repetidos y luego reflejarlo en una columna del ismo listbox? anexo el codigo que he recolectado que estoy usando

esto en primer lugar me carga el listbox en un rango de fecha y luego me elimina los codigos repetidos lo que me falta es hacer un resumen de las cantidades vendidas ese dia por produdto

Private Sub CommandButton2_Click()

 

Application.ScreenUpdating = False

Dim filaF As Long

Dim F

F = 0

cuenta_registros = 0

Dim Valor As Double

Dim Suma As Double

Dim ws As Double

ws = 0

With Me.Lista

    .ColumnCount = 3

    .ColumnWidths = "80pt; 190pt; 30pt"

End With

 

 

Lista.Clear

filaF = Hoja10.Range("A" & Rows.Count).End(xlUp).Row

 

'FILTRAMOS PRODUCTOS POR FECHAS

If Me.TextBox3.Value <> "" Then

   For Fi = 2 To filaF

      If Hoja10.Range("A" & Fi) = DateValue(Me.TextBox3.Value) Then

    Lista.AddItem

    Lista.List(F, 0) = Hoja10.Range("F" & Fi) 'codigo

    Lista.List(F, 1) = Hoja10.Range("G" & Fi) 'descripcion

    Lista.List(F, 2) = Hoja10.Range("H" & Fi) 'cantidad

    F = F + 1

  

      End If

   Next Fi

End If

'ELIMINAMOS DUPLICADOS

'Declaramos variables

Dim i As Long, j As Long

With Lista

For i = 0 To .ListCount - 1

For j = .ListCount - 1 To (i + 1) Step -1

If .List(j) = .List(i) Then .RemoveItem j

 

Next j

Next i

End With

 

End Sub

 

 

 

 

 

 

 

 

 

 

 

gracias por su ayuda

AdjuntoTamaño
File modulo_de_contingencia.xlsm103.72 KB