Lista en cuadro combinado

Menú / Datos / Filtro / Filtro avanzado, eligiendo 'Sólo
registros únicos' te dará una salida con los datos
unívocos de esa columna. Ten la precaución de poner un
título sobre el primer dato; si no, es posible que no
funcione del todo bien.

:-)

Hola amigos, alguien podría decirme como puedo hacer

para capturar en un

cuadro combinado los valores de 1 columna, atrapando

solamente los que no se

repiten.

Ejemplo:
Columna A
fila 1 Perro
fila 2 Gato
fila 3 Perro
fila 4 Gato
fila 5 Ratón
fila 6 Loro
fila 7 Perro
fila 8 Loro

Como se darán cuenta la columna contiene 8 datos, pero

solo cuatro (Perro,

Gato, Ratón, Loro) valores que se repiten en las demás

celdas.

La idea es que en un formulario insertar un cuadro

combinado y listar en

ellos solo esos campos..

Amigos si alguien sabe como se puede hacer, agradeceré

lo haga a la

brevedad... muchas gracias por sus ayuda

Ángel
Lima - Perú


.

Hola Víctor, yo me refiero a hacerlo a través de código... gracias por tu
atención

Se podrá!!!!!!!?????


"Víctor" escribió en el mensaje
news:19b5401c44d9a$b404c3d0$
Menú / Datos / Filtro / Filtro avanzado, eligiendo 'Sólo
registros únicos' te dará una salida con los datos
unívocos de esa columna. Ten la precaución de poner un
título sobre el primer dato; si no, es posible que no
funcione del todo bien.

:-)

Hola amigos, alguien podría decirme como puedo hacer

para capturar en un

cuadro combinado los valores de 1 columna, atrapando

solamente los que no se

repiten.

Ejemplo:
Columna A
fila 1 Perro
fila 2 Gato
fila 3 Perro
fila 4 Gato
fila 5 Ratón
fila 6 Loro
fila 7 Perro
fila 8 Loro

Como se darán cuenta la columna contiene 8 datos, pero

solo cuatro (Perro,

Gato, Ratón, Loro) valores que se repiten en las demás

celdas.

La idea es que en un formulario insertar un cuadro

combinado y listar en

ellos solo esos campos..

Amigos si alguien sabe como se puede hacer, agradeceré

lo haga a la

brevedad... muchas gracias por sus ayuda

Ángel
Lima - Perú


.

Ponle el nombre 'Lista' al rango A1:A8 y prueba con el siguiente código, el cual va en el módulo del formulario:

Private Sub UserForm_Initialize()
On Error GoTo captura
Dim n As Long
For n = 1 To Names("Lista").RefersToRange.Rows.Count
Me.ComboBox1.AddItem Evaluate("=INDEX(Lista,SMALL(IF(MATCH(Lista,Lista,0)=ROW(INDIRECT(" & """1:""" & "&COUNTA(Lista))),MATCH(Lista,Lista,0)," & """""" & ")," & n & "-ROW(Lista)+1))")
Next n

Exit Sub

captura:
If Err.Number = -2147352571 Then Exit Sub Else MsgBox Err.Number & " - " & Err.Description
End Sub

Se supone que el cuadro combinado se llama ComboBox1.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Angel" escribió en el mensaje news:%

Hola Víctor, yo me refiero a hacerlo a través de código... gracias por tu
atención

Se podrá!!!!!!!?????


"Víctor" escribió en el mensaje
news:19b5401c44d9a$b404c3d0$
Menú / Datos / Filtro / Filtro avanzado, eligiendo 'Sólo
registros únicos' te dará una salida con los datos
unívocos de esa columna. Ten la precaución de poner un
título sobre el primer dato; si no, es posible que no
funcione del todo bien.

:-)

>Hola amigos, alguien podría decirme como puedo hacer
para capturar en un
>cuadro combinado los valores de 1 columna, atrapando
solamente los que no se
>repiten.
>
>Ejemplo:
>Columna A
>fila 1 Perro
>fila 2 Gato
>fila 3 Perro
>fila 4 Gato
>fila 5 Ratón
>fila 6 Loro
>fila 7 Perro
>fila 8 Loro
>
>Como se darán cuenta la columna contiene 8 datos, pero
solo cuatro (Perro,
>Gato, Ratón, Loro) valores que se repiten en las demás
celdas.
>
>La idea es que en un formulario insertar un cuadro
combinado y listar en
>ellos solo esos campos..
>
>Amigos si alguien sabe como se puede hacer, agradeceré
lo haga a la
>brevedad... muchas gracias por sus ayuda
>
>Ángel
>Lima - Perú
>
>
>.
>

Hola Fernando, otra vez muchas gracias... y aprovecho
para hacerte una consulta... como hago para que busque
los datos "únicos" de una columna en la cual el nº de
filas que contienen los valores puede variar??

Muchas gracias,

Ángel
Lima - Perú

Ponle el nombre 'Lista' al rango A1:A8 y prueba con el

siguiente código, el cual va en el módulo del formulario:

Private Sub UserForm_Initialize()
On Error GoTo captura
Dim n As Long
For n = 1 To Names("Lista").RefersToRange.Rows.Count
Me.ComboBox1.AddItem Evaluate("=INDEX(Lista,SMALL

(IF(MATCH(Lista,Lista,0)=ROW(INDIRECT(" & """1:"""
& "&COUNTA(Lista))),MATCH(Lista,Lista,0)," & """"""
& ")," & n & "-ROW(Lista)+1))")

Next n

Exit Sub

captura:
If Err.Number = -2147352571 Then Exit Sub Else

MsgBox Err.Number & " - " & Err.Description

End Sub

Se supone que el cuadro combinado se llama ComboBox1.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Angel" escribió en el mensaje news:%

Hola Víctor, yo me refiero a hacerlo a través de

código... gracias por tu

atención

Se podrá!!!!!!!?????


"Víctor" escribió en

el mensaje

news:19b5401c44d9a$b404c3d0$
Menú / Datos / Filtro / Filtro avanzado,

eligiendo 'Sólo

registros únicos' te dará una salida con los datos
unívocos de esa columna. Ten la precaución de poner un
título sobre el primer dato; si no, es posible que no
funcione del todo bien.

:-)

>Hola amigos, alguien podría decirme como puedo hacer
para capturar en un
>cuadro combinado los valores de 1 columna, atrapando
solamente los que no se
>repiten.
>
>Ejemplo:
>Columna A
>fila 1 Perro
>fila 2 Gato
>fila 3 Perro
>fila 4 Gato
>fila 5 Ratón
>fila 6 Loro
>fila 7 Perro
>fila 8 Loro
>
>Como se darán cuenta la columna contiene 8 datos, pero
solo cuatro (Perro,
>Gato, Ratón, Loro) valores que se repiten en las demás
celdas.
>
>La idea es que en un formulario insertar un cuadro
combinado y listar en
>ellos solo esos campos..
>
>Amigos si alguien sabe como se puede hacer, agradeceré
lo haga a la
>brevedad... muchas gracias por sus ayuda
>
>Ángel
>Lima - Perú
>
>
>.
>

.

La forma más sencilla de hacerlo tal vez sea usar un rango dinámico. Para esto es necesario que los datos que deben poblar el cuadro combinado sean los únicos en la columna, y que no tengan celdas vacías entre medias.

Suponiendo que dichos datos empezaran en A1, tendrías que crear un rango con nombre (Insertar->Nombre->Definir), teclear como nombre 'Lista', y en "se refiere a:" poner:

ÞSREF(Hoja1!$A$1;0;0;CONTARA(Hoja1!$A:$A);1)

También tendrías que modificar el código del formulario:

Private Sub UserForm_Initialize()
On Error GoTo captura
Dim n As Long
For n = 1 To Range("Lista").Rows.Count
Me.ComboBox1.AddItem Evaluate("=INDEX(Lista,SMALL(IF(MATCH(Lista,Lista,0)=ROW(INDIRECT(" & """1:""" & "&COUNTA(Lista))),MATCH(Lista,Lista,0)," & """""" & ")," & n & "-ROW(Lista)+1))")
Next n

Exit Sub

captura:
If Err.Number = -2147352571 Then Exit Sub Else MsgBox Err.Number & " - " & Err.Description
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel


"Angel" escribió en el mensaje news:1a3d901c44e32$82f67de0$
Hola Fernando, otra vez muchas gracias... y aprovecho
para hacerte una consulta... como hago para que busque
los datos "únicos" de una columna en la cual el nº de
filas que contienen los valores puede variar??

Muchas gracias,

Ángel
Lima - Perú