Ayuda con Listbox y Textbox

Hola, Rodrigo !

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???

Hola, Rodrigo !

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.


.

Hola !

... 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:

Hola, Rodrigo !

> 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.

mi buen amigo rodrigo...

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

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

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

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

saludos,
hector.