Realizar consolidado de clientes con sanciones en excel
Para Dante Amor
Buenas tardes amigo dante tengo deseo de seguir mejorando la macro con su ayuda.
Deseo hacer un resumen como te muestro en imagen de los clientes.
Por ejemplo
Carlos vizcarra has sido multado 5 veces
Primera multa 100
Segunda multa 10
Tercera multa 60
Cuarta multa 40
Quinta multa 100
total en multa == 310 esto es lo que necesito en mi formulario
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo el código para el formulario:
Private Sub UserForm_Activate()
'Por.Dante Amor
Set h2 = Sheets("Multas")
h2.Cells.EntireColumn.AutoFit
ListBox1.ColumnCount = 3
col = Int(h2.Range("C1").Width) + 1 & ";" & _
Int(h2.Range("D1").Width) + 1 & ";" & _
Int(h2.Range("E1").Width)
ListBox1.ColumnWidths = col
For i = 3 To h2.Range("A" & Rows.Count).End(xlUp).Row
agregar h2, i, h2.Cells(i, "C")
Next
End Sub
'
Sub agregar(h2, fila, dato)
'Por.Dante Amor
For i = 0 To ListBox1.ListCount - 1
If StrComp(ListBox1.List(i), dato, vbTextCompare) = 0 Then
ListBox1.List(i, 2) = Val(ListBox1.List(i, 2)) + h2.Cells(fila, "E")
Exit Sub
End If
Next
ListBox1. AddItem dato
ListBox1. List(ListBox1.ListCount - 1, 1) = h2. Cells(fila, "D")
ListBox1. List(ListBox1.ListCount - 1, 2) = h2. Cells(fila, "E")
End SubSa ludos
