Consulta

utiliza filtro avanzado (tiene una opcion para sólo registros unicos)


"Pancho" escribió en el mensaje
news:

Tengo una columna con diferentes valores, los cuales se repiten N
cantidad de veces.
Necesito a partir de esta columna recuperar los valores de forma unica
en un listado (o un arreglo) para hacer filtros mediante macros.

Un ejemplo de posibles valores es lo siguiente...

por ejemplo

si perro esta 7 veces, que me rescate 1 perro
si gato esta 1 veces, que me devuelva 1 gato
si pato esta 15 veces, que me devuelva 1 pato

alguien sabe una funcion para hacer esto o un codigo que me saque los
valores unicos

gracias

Hola Pancho
Seguro que los expertos tienen soluciones mejores,
Con los datos que tu has mandado yo he hecho un macro para ver lo que
ponía y sale esto
Primero selecciono un rango
Despues voy a Filtro->filtro avanzado
Activo Solo registros unicos
y le doy a copiar en otro lugar.

Seguro que le puedes sacar provecho


Range("B2:B15").Select
Range("B2:B15").AdvancedFilter Action:=xlFilterCopy,_
CopyToRange:=Range( _
"D2"), Unique:=True


Saludos,
Javier B.
Pancho escribió:

Tengo una columna con diferentes valores, los cuales se repiten N
cantidad de veces.
Necesito a partir de esta columna recuperar los valores de forma unica
en un listado (o un arreglo) para hacer filtros mediante macros.

Un ejemplo de posibles valores es lo siguiente...

por ejemplo

si perro esta 7 veces, que me rescate 1 perro
si gato esta 1 veces, que me devuelva 1 gato
si pato esta 15 veces, que me devuelva 1 pato

alguien sabe una funcion para hacer esto o un codigo que me saque los
valores unicos

gracias

Hola

en la siguiente dierccion puedes encontrar un ejemplo de extraer los valores
de forma unica

http://www.contextures.com/ExtractUnique.zip

en esta otra hay alguno mas por si te pueden interesar

http://www.contextures.com/excelfiles.html

si lo prefieres mediante macros prueba esto otro

Sub Unicos()
'Codigo John Walkenbach
Dim NoDupes As New Collection
Dim Item As Variant
dim celda as range, mirango as range

mirango=range("A2:A50")
'modifica el rango segun tus necesidades
On Error Resume Next
for each celda in MiRango
NoDupes.Add celda.Value, CStr(celda.Value)
next celda
'escribe los unicos en la ventana inmediato
For Each Item In NoDupes
debug.print item
Next Item
end sub

un saludo
juan

"Pancho" escribió en el mensaje
news:

Tengo una columna con diferentes valores, los cuales se repiten N
cantidad de veces.
Necesito a partir de esta columna recuperar los valores de forma unica
en un listado (o un arreglo) para hacer filtros mediante macros.

Un ejemplo de posibles valores es lo siguiente...

por ejemplo

si perro esta 7 veces, que me rescate 1 perro
si gato esta 1 veces, que me devuelva 1 gato
si pato esta 15 veces, que me devuelva 1 pato

alguien sabe una funcion para hacer esto o un codigo que me saque los
valores unicos

gracias

Gracias

tengo una última consulta
.

Si quiero que los datos se extraigan de una hoja distinta
¿como debo poner las instrucciones?

gracias