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

ComboBox con filtro

Ver el tema anterior Ver el tema siguiente Ir abajo

ComboBox con filtro

Mensaje por primpal el Vie Feb 25, 2011 2:05 pm

Buenas tardes.
De el maestro GAli copie el Codigo de un Combobox con funcionalidades y estoy intentando cambiar el codigo para acoplarlo a un proyecto.

El archivo original y ejemplo que adjunto dispone de un combobox insertado en la hoja que al tomar el foco es capaz de filtrar los datos con lo que vamos tecleando mostrando y filtrando todos("") o los que coinciden con lo tecleado.
He creado un userform con ComboBox y he intentado realizar lo mismo que hace el insertado en la hoja pero debido a mis limitaciones(escasos conocimientos en VB) no me ha sido posible conseguirlo. No filtra de la misma forma.

¿Es posible realizar lo mismo con ambos ComboBox ?

Agradeciendo la ayuda que podais prestarme.

Salu2.

primpal

Masculino Cantidad de envíos : 10
Edad : 56
Ciudad - Pais : Madrid - Esàña
Version de Excel : 2003
Fecha de inscripción : 19/11/2010

Volver arriba Ir abajo

Re: ComboBox con filtro

Mensaje por Tatayayan el Vie Feb 25, 2011 3:18 pm

Hola, haber si te sirve esto:
[Tienes que estar registrado y conectado para ver este vínculo]

No olvides dejar tu comentario allí.
avatar
Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos : 319
Ciudad - Pais : Chamical- La Rioja - ARG
Fecha de inscripción : 20/11/2008

Volver arriba Ir abajo

Re: ComboBox con filtro

Mensaje por primpal el Vie Feb 25, 2011 4:02 pm

Gracias Tatayayan revisare y comentare .


primpal

Masculino Cantidad de envíos : 10
Edad : 56
Ciudad - Pais : Madrid - Esàña
Version de Excel : 2003
Fecha de inscripción : 19/11/2010

Volver arriba Ir abajo

Re: ComboBox con filtro

Mensaje por GalileoGali el Sáb Feb 26, 2011 6:24 pm

primpal escribió:Gracias Gali, pero el codigo sigue comportandose igual.
Primeramente en la parte de tu codigo:

Private Sub UserForm_Initialize()
with me.Combobox
end with
ComboActualiza
End Sub

Me salto error y cambie por "with me.Combobox1" para que continuara y se sigue comportando exactamente igual que al principio.

Sera que no se puede con el ComboBox del userForm.
De cualquier manera muchas gracias por tu interes y atencion.

Saludos.


Mi nivel de distracción en el dia de hoy es tremendo, será tal vez porque estoy contestando en 4 foros simultáneamente?

A ver si ahora

Código:
Private Sub UserForm_Initialize()
With Me.ComboBox1
.AutoWordSelect = False
.MatchEntry = fmMatchEntryNone
.MatchRequired = False
End With

ComboActualiza
End Sub


(antes copie mal, este código estaba, pero copie algo inutil)
Perdon



Última edición por GalileoGali el Dom Feb 27, 2011 6:30 am, editado 1 vez

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

Masculino Cantidad de envíos : 1962
Edad : 61
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 con filtro

Mensaje por primpal el Dom Feb 27, 2011 4:07 am

Perfecto.

El codigo funciona exactamente igual para los dos comboBox.

Muchas gracias Gali.

primpal

Masculino Cantidad de envíos : 10
Edad : 56
Ciudad - Pais : Madrid - Esàña
Version de Excel : 2003
Fecha de inscripción : 19/11/2010

Volver arriba Ir abajo

Re: ComboBox con filtro

Mensaje por primpal el Jue Mar 03, 2011 4:28 am

Perdonar que os moleste de nuevo con este tema.
Como dije ambos Combos se comportan igual para la misma hoja en la que estan los datos(en mi ejemplo Hoja2).
He intentado que haga lo mismo el Userform desde otra Hoja(prueba) estando los datos en otra Hoja(Hoja2) y NO SOY CAPAZ!!! .

¿Podriais ayudarme?

Gracias de antemano.

Saludos.


Última edición por primpal el Jue Mar 03, 2011 4:29 am, editado 1 vez (Razón : añadir archivo.)

primpal

Masculino Cantidad de envíos : 10
Edad : 56
Ciudad - Pais : Madrid - Esàña
Version de Excel : 2003
Fecha de inscripción : 19/11/2010

Volver arriba Ir abajo

Re: ComboBox con filtro

Mensaje por GalileoGali el Jue Mar 03, 2011 7:39 am

Modifica esta Function

Código:
Function AgentesAlfa(aBuscar As String) As String
Dim lngPos As Long, lngCant As Long
If aBuscar = "" Then
AgentesAlfa = "'Hoja2'!" & Agentes 'Ojo, hay apóstrofos!!!
Código:
    Exit Function
End If
lngPos = IIf(IsError(Application.Match(aBuscar & "*", Hoja2.Range(Agentes), 0)), 1, _
Application.Match(aBuscar & "*", Hoja2.Range(Agentes), 0))
lngCant = Application.CountIf(Hoja2.Range(Agentes), aBuscar & "*")
If lngCant = 0 Then
    AgentesAlfa = ""
    Exit Function
End If
AgentesAlfa = "'Hoja2'!" & Hoja2.Range(Agentes).Offset(lngPos - 1, 0).Resize(lngCant, 1).Address
Código:
End Function

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

Masculino Cantidad de envíos : 1962
Edad : 61
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 con filtro

Mensaje por primpal el Jue Mar 03, 2011 8:13 am

Que facil y simple parece para los que dominais esto.

Muchas gracias Maestro ... Me estaba volviendo loco y no daba con la solución.

Repito Gracias.

primpal

Masculino Cantidad de envíos : 10
Edad : 56
Ciudad - Pais : Madrid - Esàña
Version de Excel : 2003
Fecha de inscripción : 19/11/2010

Volver arriba Ir abajo

Re: ComboBox con filtro

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.