Macro contar registros únicos visibles
Quisiera saber si alguien me puede ayudar a modificar esta macro que cuenta los registros únicos totales, pero lo que necesito ahora que solo cuente los registros únicos visibles ya que tengo que usar filtros.
Desde ya muchas gracias
Function contar_unicos(rngSeleccion As Range)
Dim collUnicos As New Collection
Dim rngCell As Range
On Error Resume Next
For Each rngCell In rngSeleccion
collUnicos.Add rngCell, CStr(rngCell)
Next rngCell
On Error GoTo 0
contar_unicos = collUnicos.Count
End Function
1 respuesta
Respuesta de Dante Amor
1
Prueba la siguiente:
Function contar_unicos(rngSeleccion As Range) Dim collUnicos As New Collection Dim rngCell As Range On Error Resume Next For Each rngCell In rngSeleccion If rngCell.EntireRow.Hidden = False Then collUnicos.Add rngCell, CStr(rngCell) End If Next rngCell On Error GoTo 0 contar_unicos = collUnicos.Count End Function
