Macro para saber cuantas veces se repite un item
Podrian ayudarme con esto
Quiero saber cuantas veces se repite un item en un rango de fecha
Uso esta macro
Private Sub filtrar_click()
Dim fec1 As Date, fec2 As Date
Dim Fil As Integer
Dim fila As Integer
Application.ScreenUpdating = False
Me.ListBox1.Clear
Me.ListBox2.Clear
Fil = 0
fila = 0
fec1 = DTPicker1
fec2 = DTPicker2
'fec1 = TextBox1
'fec2 = TextBox2
j = 2 'siempre sera la col 2
For i = 3 To Hoja12.Range("A" & Rows.Count).End(xlUp).Row
If Hoja12.Cells(i, j) >= fec1 And Hoja12.Cells(i, j) <= fec2 Then
Me.ListBox1.AddItem Hoja12.Cells(i, 1)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Hoja12.Cells(i, 2)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Hoja12.Cells(i, 3)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Hoja12.Cells(i, 4)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Hoja12.Cells(i, 5)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Hoja12.Cells(i, 6)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = Hoja12.Cells(i, 7)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 7) = Hoja12.Cells(i, 
Fil = Fil + 1
End If
Next
Label38 = Fil
end sub
El item a buscar esta en
Me. ListBox1. AddItem Hoja12.Cells(i, 1)
En el rango de fecha seleccionado pueden aparecer 150 items pero algunos son repetidos
Quiero un resumen de lo filtrado que me diga cuantas veces esta el mismo item.
