............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

ComboBox que muestre unicos (no repetidos)

Ver el tema anterior Ver el tema siguiente Ir abajo

ComboBox que muestre unicos (no repetidos)

Mensaje por Roberto2010 el Jue Nov 17, 2011 7:31 pm

Buenas días!! cuánto tiempo!
Otra vez aquí solicitando vuestra ayuda.
Les adjunto un userform que contiene un textbox y un combobox.
Segun el dato que ingrese en el textbox, me muestra sus correlatos en el combobox,
es decir como si fuera la funcion BuscarV.
Hasta ahí todo bien, pero me gustaria que el combobox muestre solo valores unicos ya que a veces
los datos encontrados en el combo se repiten.
Adjunto ejemplo simplificado
Muchas gracias amigos.
Archivos
ComboBox - Mostrar unicos.xls No tienes los permisos para descargar los archivos.(39 KB) Descargado 129 veces
avatar
Roberto2010

Masculino Cantidad de envíos : 76
Edad : 41
Ciudad - Pais : ARGENTINA
Version de Excel : 2003-2007
Fecha de inscripción : 03/09/2010

Volver arriba Ir abajo

Re: ComboBox que muestre unicos (no repetidos)

Mensaje por GalileoGali el Jue Nov 17, 2011 9:05 pm

a ver esto
Código:
Function AgregarItems(Cmb As ComboBox, Hoja As String, Cond As String, ColCond As Integer, ColDato As Integer)
    Dim collec As New Collection
    Sheets(Hoja).Activate
    Range("A2").Activate
   
    On Error Resume Next

    Do While ActiveCell.Value > ""
        If ActiveCell.Offset(0, ColCond).Value = Cond Then
        collec.Add ActiveCell.Offset(0, ColDato).Text, ActiveCell.Offset(0, ColDato).Text
        If Err.Number = 0 Then Cmb.AddItem ActiveCell.Offset(0, ColDato).Value
        End If
        ActiveCell.Offset(1, 0).Activate
    Loop
    On Error GoTo 0
End Function

Aclaro que hay varios tramos del código con los que disiento, pero me limité, al tema objeto de consulta

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: ComboBox que muestre unicos (no repetidos)

Mensaje por Roberto2010 el Jue Nov 17, 2011 9:26 pm

Gracias,
sin embargo me muestra un solo valor,
es decir, para el caso de 'aaaa' hay como respuesta un: 1, 1 y 3
y yo deseo que muestre 1 y 3.
se podría hacer algun retoque GalileoGali ?
el codigo que expuse no lo cree yo y tampoco lo comprendo cavalmente
así que para el caso cualquier modificación es bienvenida.
avatar
Roberto2010

Masculino Cantidad de envíos : 76
Edad : 41
Ciudad - Pais : ARGENTINA
Version de Excel : 2003-2007
Fecha de inscripción : 03/09/2010

Volver arriba Ir abajo

Re: ComboBox que muestre unicos (no repetidos)

Mensaje por GalileoGali el Jue Nov 17, 2011 10:23 pm

Código:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cmb2.Clear
    Cmb2.Value = ""
        Call AgregarItems(Cmb2, "Hoja1", TextBox1.Text, 0, 1)

End Sub

Código:
Function AgregarItems(Cmb As ComboBox, Hoja As String, Cond As String, ColCond As Integer, ColDato As Integer)
    Dim collec As New Collection
    Sheets(Hoja).Activate
    Range("A2").Activate
   
  On Error Resume Next

    Do While ActiveCell.Value > ""
        If ActiveCell.Offset(0, ColCond) = Cond Then
        Err.Clear
        collec.Add CStr(ActiveCell.Offset(0, ColDato)), CStr(ActiveCell.Offset(0, ColDato))
        If Err.Number = 0 Then Cmb.AddItem ActiveCell.Offset(0, ColDato)
        End If
       
        ActiveCell.Offset(1, 0).Activate
    Loop
    On Error GoTo 0
End Function

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: ComboBox que muestre unicos (no repetidos)

Mensaje por Roberto2010 el Jue Nov 17, 2011 10:33 pm

Funciona !
Gracias Master Gali !
avatar
Roberto2010

Masculino Cantidad de envíos : 76
Edad : 41
Ciudad - Pais : ARGENTINA
Version de Excel : 2003-2007
Fecha de inscripción : 03/09/2010

Volver arriba Ir abajo

Re: ComboBox que muestre unicos (no repetidos)

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.