Formula o Macro para filtrar

hola, Sofia !

__ 1 __

Necesito obtener de una lista de 500 nombres de personas repetidos, obtener el dato unico
es decir si hay 20 que se llaman Pepe pues solo enlistar el dato de Pepe
y si hay 3 Jose Luis enlistar solo una vez Jose Luis
para yo saber de los 500 registros de nombres cuantas nombres hay en realidad

__ 2 __

pero esto lo necesito dinamico por eso requiero una formula o marco
para que cada vez que actialice la lista de 500 y tenga que agragar mas
se agregue el dato unico si es que es diferente a los ya enlistados, alguien me puede ayudar?

1) para el listado de nombres (ya existente) utiliza los filtros avanzados / unicos / copiar a otro lugar

2) para esta segunda parte no es claro si...
- quieres seguir incrementando el listado de nombres de ~ 500 (incluyendo mas repetidos)
- quieres evitar la introduccion de nombres repetidos
- o solo quieres "automatizar" el proceso de los filtros avanzados
tambien seria conveniente si comentas como es la "entrada" de los datos (manual, copy/paste, macros, ...)
y cual es el rango (usado y disponible en columnas a la derecha) de tu hoja

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector

Hola Héctor,

Gracias por responder,

Perdón por no poderme explicar para que me entendieras, pero como tu
atinadamente me preguntas que de la lista que me pones que es lo que quiero y
bueno lo que quiero es automatizar el proceso de los filtros avanzados, que
exactamente lo que hace el filtro avanzado con regresar los datos unicos de
una lista con copiarlos no me es suficiente necesito que se actualice cada
vez que incremento nuevos datos de manera manual al la lista en donde estoy
ralizando el filtro avanzado
Sofia


"Héctor Miguel" escribió:

hola, Sofia !

__ 1 __
> Necesito obtener de una lista de 500 nombres de personas repetidos, obtener el dato unico
> es decir si hay 20 que se llaman Pepe pues solo enlistar el dato de Pepe
> y si hay 3 Jose Luis enlistar solo una vez Jose Luis
> para yo saber de los 500 registros de nombres cuantas nombres hay en realidad
__ 2 __
> pero esto lo necesito dinamico por eso requiero una formula o marco
> para que cada vez que actialice la lista de 500 y tenga que agragar mas
> se agregue el dato unico si es que es diferente a los ya enlistados, alguien me puede ayudar?

1) para el listado de nombres (ya existente) utiliza los filtros avanzados / unicos / copiar a otro lugar

2) para esta segunda parte no es claro si...
- quieres seguir incrementando el listado de nombres de ~ 500 (incluyendo mas repetidos)
- quieres evitar la introduccion de nombres repetidos
- o solo quieres "automatizar" el proceso de los filtros avanzados
tambien seria conveniente si comentas como es la "entrada" de los datos (manual, copy/paste, macros, ...)
y cual es el rango (usado y disponible en columnas a la derecha) de tu hoja

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector

hola, Sofia !

... de la lista que me pones que es lo que quiero y bueno lo que quiero es automatizar el proceso de los filtros avanzados
que exactamente lo que hace el filtro avanzado con regresar los datos unicos de una lista con copiarlos no me es suficiente
necesito que se actualice cada vez que incremento nuevos datos de manera manual a la lista en donde estoy ralizando el filtro avanzado

con eso de andar "adivinando" donde tienes los datos, el filtro y ese tipo de cosas (no creas que se acierta mucho que digamos)
si suponemos que el listado (completo y con repetidos) esta en la columna A (fila 1 con los titulos)
y que tienes "disponible" la columna D para el extracto de los unicos por filtros avanzados -???-

copia/pega las siguientes instrucciones en el modulo de codigo de la hoja de que se trate -?-
y... si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Columns("a:a")) Is Nothing Then Exit Sub
Dim uFila As Long, Listado As String, _
Unicos As Integer, Registros As Integer, Lista As String
uFila = [a65536].End(xlUp).Row
Listado = "a2:a" & uFila
Unicos = Evaluate("sum(1/countif(" & Listado & "," & Listado & "))")
Registros = Evaluate("counta(d:d)-1")
If Unicos <> Registros Then _
Range("a1:a" & uFila).AdvancedFilter xlFilterCopy, , Range("d1"), 1
End Sub

__ la consulta anterior __

__ 1 __
> Necesito obtener de una lista de 500 nombres de personas repetidos, obtener el dato unico
> es decir si hay 20 que se llaman Pepe pues solo enlistar el dato de Pepe
> y si hay 3 Jose Luis enlistar solo una vez Jose Luis
> para yo saber de los 500 registros de nombres cuantas nombres hay en realidad
__ 2 __
> pero esto lo necesito dinamico por eso requiero una formula o marco
> para que cada vez que actialice la lista de 500 y tenga que agragar mas
> se agregue el dato unico si es que es diferente a los ya enlistados, alguien me puede ayudar?

1) para el listado de nombres (ya existente) utiliza los filtros avanzados / unicos / copiar a otro lugar

2) para esta segunda parte no es claro si...
- quieres seguir incrementando el listado de nombres de ~ 500 (incluyendo mas repetidos)
- quieres evitar la introduccion de nombres repetidos
- o solo quieres "automatizar" el proceso de los filtros avanzados
tambien seria conveniente si comentas como es la "entrada" de los datos (manual, copy/paste, macros, ...)
y cual es el rango (usado y disponible en columnas a la derecha) de tu hoja