Ayuda con Listbox y Textbox

Hola, Rodrigo !

Mostrar la cita

1.- Una ... listbox.
2.- Un textbox para ... el nombre
... mientras ... caracteres en el textbox ... una seleccion de la coincidencia en la listbox
... no puedo usar combobox ... requiero que ... esten desplegados los nombres
... necesito que no pierda el setfocus el textbox ... que me vaya dando la coincidencia en el listbox.

podrias utilizar [p.e.] una macro 'auxiliar' para el evento '_Change' del textbox
[suponiendo que se llaman 'TextBox1' y 'ListBox1']
en el modulo de codigo del formulario ==Private Sub TextBox1_Change()
If Len(TextBox1) > 0 _
Then BuscarEnLista LCase(TextBox1) _
Else ListBox1.ListIndex = -1
End Sub
Private Sub BuscarEnLista(ByVal Buscado As String)
Dim Elem As Integer, Coincide As Integer
With ListBox1
For Elem = 0 To .ListCount - 1
If LCase(Left(.List(Elem), Len(Buscado))) = Buscado Then
Coincide = Elem + 1
Exit For
End If
Next
If Coincide > 0 Then .ListIndex = Coincide - 1 Else .ListIndex = -1
End With
End Sub

saludos,
Héctor.

Saludos Hector;

Me gustaría saber si conoces de algun buen web site
acerca de Macros en Excel???




Mostrar la cita

Hola, Rodrigo !

Mostrar la cita

1.- Una ... listbox.
2.- Un textbox para ... el nombre
... mientras ... caracteres en el textbox ... una

seleccion de la coincidencia en la listbox
Mostrar la cita

Mostrar la cita

... no puedo usar combobox ... requiero que ... esten

desplegados los nombres
Mostrar la cita

Mostrar la cita

... necesito que no pierda el setfocus el textbox ...

que me vaya dando la coincidencia en el listbox.
Mostrar la cita

podrias utilizar [p.e.] una macro 'auxiliar' para el

evento '_Change' del textbox
Mostrar la cita

[suponiendo que se llaman 'TextBox1' y 'ListBox1']
en el modulo de codigo del formulario ==>Private Sub TextBox1_Change()
If Len(TextBox1) > 0 _
Then BuscarEnLista LCase(TextBox1) _
Else ListBox1.ListIndex = -1
End Sub
Private Sub BuscarEnLista(ByVal Buscado As String)
Dim Elem As Integer, Coincide As Integer
With ListBox1
For Elem = 0 To .ListCount - 1
If LCase(Left(.List(Elem), Len(Buscado))) =

Buscado Then
Mostrar la cita

Coincide = Elem + 1
Exit For
End If
Next
If Coincide > 0 Then .ListIndex = Coincide - 1

Else .ListIndex = -1
Mostrar la cita

End With
End Sub

saludos,
Héctor.


.

Hola !

Mostrar la cita

... algun buen web site acerca de Macros en Excel???

==> ¿recomendarte un sitio web 'por encima de otros'? ... uuuhhm ... ¡ NOP !!!
[creo que] no existe un sitio 'mejor' que los demas :((
todo 'depende' de 'que estas buscando' y de la 'forma como se expone' en cada sitio :))
podrias empezar por la siguiente direccion:
http://www.mvps.org/dmcritchie/excel/excel.htm
[encontraras enlaces a una infinidad de sitios utiles; ejemplos, funciones, graficas, tutoriales, codigo, etc.]
con un poco de tiempo te iras enterando de otra 'infinidad' de sitios alternos.

Saludos,
Héctor

Mi estimado Hector Miguel, es usted como diramos en mexico un chingon!!! o
sea muy muy bueno!!!, muchas gracias Hector funciona a la perfeccion, ahora
nada mas dejame estudiarlo bien!! Saludos y de nuevo mil gracias.


_____________________________
Rodrigo Bustos
_____________________________

"Héctor Miguel" escribió en el mensaje
news:
Mostrar la cita

Hola, Rodrigo !

> 1.- Una ... listbox.
> 2.- Un textbox para ... el nombre
> ... mientras ... caracteres en el textbox ... una seleccion de la

coincidencia en la listbox
Mostrar la cita

> ... no puedo usar combobox ... requiero que ... esten desplegados los

nombres
Mostrar la cita

> ... necesito que no pierda el setfocus el textbox ... que me vaya dando

la coincidencia en el listbox.
Mostrar la cita

podrias utilizar [p.e.] una macro 'auxiliar' para el evento '_Change' del

textbox
Mostrar la cita

[suponiendo que se llaman 'TextBox1' y 'ListBox1']
en el modulo de codigo del formulario ==> Private Sub TextBox1_Change()
If Len(TextBox1) > 0 _
Then BuscarEnLista LCase(TextBox1) _
Else ListBox1.ListIndex = -1
End Sub
Private Sub BuscarEnLista(ByVal Buscado As String)
Dim Elem As Integer, Coincide As Integer
With ListBox1
For Elem = 0 To .ListCount - 1
If LCase(Left(.List(Elem), Len(Buscado))) = Buscado Then
Coincide = Elem + 1
Exit For
End If
Next
If Coincide > 0 Then .ListIndex = Coincide - 1 Else .ListIndex = -1
End With
End Sub

saludos,
Héctor.

mi buen amigo rodrigo...

Mostrar la cita

... como diramos en mexico [...]

pues 'enterate' de que... ¡ soy de mexico !!!
mas 'concretamente'... de zapopan [la 'sucursal del cielo'] :))

Mostrar la cita

... funciona a la perfeccion ... dejame estudiarlo bien!!

gusto de haber sido de utilidad y... gracias a ti [por el 'feed-back']

saludos,
hector.