Como sacar todos los registros de un valor común.

Disculpar, porque al final no me sé explicar,
Lo que busco en realidad, son los registros, pero solo aquellos que sean
diferentes, sobre un valor común, como si hicieramos un autofiltro, que no me
va a dar todos los valores, sino solo todos los valores que sean diferentes
entre ellos.
p.e.:
"hoja2"
A B
1_Verde Salado
2_Azul Dulce
3_Verde Soso
4_Verde Amargo
5_Verde Salado
6_Rojo Picante
7_Verde Salado
8_Verde Soso
Que me pudiera dar en "hoja1" a partir de la celda "A1", los valores de
"Verde":
A
1_Salado
2_Soso
3_Amargo

Gracias de nuevo y disculpar mi falta de facilidad a la hora de exponer.

Un Saludo.

JC
"JC" wrote:

Hola y gracias anticipadas, por vuestra ayuda:

Necesito (si existe y se pudiera hacer), una macro para poder extraer en
"hoja1" a partir de una celda determinada, todos los registros en la "hoja2"
de la columna "B", que tengan un valor común en la columna "A".
p.e.:
"hoja2"
A B
1_Verde Salado
2_Azul Dulce
3_Verde Amargo
4_Rojo Picante
5_Verde Soso
Que me pudiera dar en "hoja1" a partir de la celda "A1", los valores de
"Verde":
A
1_Salado
2_Amargo
3_Soso
Soy fatal explicando las cosas, pero me consta que vosotros teneis la mejor
de las comprensiones.
Esperando no abusar de vuestra paciencia y ganas de ayudar, recibid un
agradecido saludo.
JC

hola, JC !

si suponemos que solo se trata de las columnas A:B de "hoja2"...
y que en la fila 1 estan los titulos (p.e. Color y Sabor)

1) deja en blanco la celda C1
2) en la celda C2, usa la siguiente formula: ¢="verde"
3) en la hoja1, pon el mismo titulo de la columna B de la hoja2 (p.e. Sabor)
4) copia/pega y ejecuta la siguiente macro desde un modulo de codigo "normal"...

Sub Filtro_condicionado()
With Worksheets("hoja2")
.Range("a:b").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=.Range("c1:c2"), _
CopyToRange:=Worksheets("hoja1").Range("a1"), _
Unique:=True
End With
End Sub

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

__ la consulta original __

Lo que busco en realidad, son los registros, pero solo aquellos que sean diferentes, sobre un valor comun
como si hicieramos un autofiltro, que no me va a dar todos los valores, sino solo todos los valores que sean diferentes entre ellos.
p.e.:
"hoja2"
A B
1_Verde Salado
2_Azul Dulce
3_Verde Soso
4_Verde Amargo
5_Verde Salado
6_Rojo Picante
7_Verde Salado
8_Verde Soso
Que me pudiera dar en "hoja1" a partir de la celda "A1", los valores de "Verde":
A
1_Salado
2_Soso
3_Amargo

Gracias infinitas Héctor Miguel:

Tu solución ha sido perfecta y la verdad es, que me has sacado de un bloqueo
importante.

No tengo palabras para Personas tan generosas con su conocimiento como Tú.

Recibe un fuerte abrazo desde Madrid.

JC


"Héctor Miguel" wrote:

hola, JC !

si suponemos que solo se trata de las columnas A:B de "hoja2"...
y que en la fila 1 estan los titulos (p.e. Color y Sabor)

1) deja en blanco la celda C1
2) en la celda C2, usa la siguiente formula: ¢="verde"
3) en la hoja1, pon el mismo titulo de la columna B de la hoja2 (p.e. Sabor)
4) copia/pega y ejecuta la siguiente macro desde un modulo de codigo "normal"...

Sub Filtro_condicionado()
With Worksheets("hoja2")
.Range("a:b").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=.Range("c1:c2"), _
CopyToRange:=Worksheets("hoja1").Range("a1"), _
Unique:=True
End With
End Sub

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

__ la consulta original __
> Lo que busco en realidad, son los registros, pero solo aquellos que sean diferentes, sobre un valor comun
> como si hicieramos un autofiltro, que no me va a dar todos los valores, sino solo todos los valores que sean diferentes entre ellos.
> p.e.:
> "hoja2"
> A B
> 1_Verde Salado
> 2_Azul Dulce
> 3_Verde Soso
> 4_Verde Amargo
> 5_Verde Salado
> 6_Rojo Picante
> 7_Verde Salado
> 8_Verde Soso
> Que me pudiera dar en "hoja1" a partir de la celda "A1", los valores de "Verde":
> A
> 1_Salado
> 2_Soso
> 3_Amargo