contar registros visibles

[pablo ninguno]

buenas como estan, 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

[DiegoPC]

Hola, puedes hacerle esta modificación:

Function contar_unicos(rngSeleccion As Range)

    Dim collUnicos As New Collection
    Dim rngCell As Range


    On Error Resume Next
    For Each rngCell In rngSeleccion.SpecialCells(xlCellTypeVisible)
        collUnicos.Add rngCell, CStr(rngCell)
    Next rngCell
    On Error GoTo 0

    contar_unicos = collUnicos.Count

End Function

 

[Héctor Miguel]

hola, a ambos !

o puedes usar esta variante:

Function cuentaUnicosEnRangoFiltrado(rango As Range) As Long
' el nombre de la funcion es obvio ' _
  pasar como argumento el rango filtrado SIN el tiitulo ' _
  R&D: Héctor Miguel Orozco Díaz ' _
  una de las contadas situaciones en que el metodo Evaluate se puede usar en una UDF llamada desde celdas '
  Dim a As String, b As String
  a = rango(1).Address(0, 0): b = rango.Address(0, 0)
  cuentaUnicosEnRangoFiltrado = Evaluate( _
    "sum(if(frequency(if(subtotal(3,offset(" & a & ",row(" & b & ")-row(" & _
    a & "),)),match(" & b & "," & b & ",)),row(" & b & ")-row(" & a & ")+1),1))")
End Function

 

[pablo ninguno]

Hola como les va, desde ya gracias por su ayuda..

Me parece que estoy haciendo algo mal porque la sugerencia de Diego no me funciono, y la la sugerencia de Héctor no se como aplicarla ya que no entiendo mucho de macros.

Dejo un ejemplo de la macros para ver si me dicen que estoy haciendo mal.

Nuevamente muchas gracias

Saludos

contar-unicos (1).xlsm