Mostrar Datos Únicos con ListBox Función + Sumar.Si() VBA скачать в хорошем качестве

Mostrar Datos Únicos con ListBox Función + Sumar.Si() VBA

En este video mostraré como mostrar en un control ListBox los datos únicos de una lista con datos repetidos, con una variante donde incluiremos la suma de cada uno de los elementos de la lista sin duplicados con la función Sumar.Si() VBA. Todo esto por medio de Visual Basic for Applications (VBA) con variables y bucles y muchos mas. Código VBA Dim I As Integer Dim J As Integer Dim Uf As Long Dim Sx As Boolean Dim Suma As Double With Hoja1 Uf = .Range("A" & .Rows.Count).End(xlUp).Row Me.ListBox1.AddItem Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = Hoja1.Cells(2, 1) Suma = Application.WorksheetFunction.SumIf(.Range("A2:A" & Uf), Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0), .Range("B2:B" & Uf)) Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Suma For I = 2 To Uf Sx = False For J = 0 To Me.ListBox1.ListCount - 1 If .Cells(I, 1) = Me.ListBox1.List(J, 0) Then Sx = True End If Next J If Sx = False Then Me.ListBox1.AddItem Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = Hoja1.Cells(I, 1) Suma = Application.WorksheetFunction.SumIf(.Range("A2:A" & Uf), Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0), .Range("B2:B" & Uf)) Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Suma End If Next I End With Contacto : djgagarcia@gmail.com #Excel #microsoftexcel #vba #listbox #macrosvba