Textbox y listbox!
Hola que tal!
Tengo un problemita en macros con excel, esto haciendo un proyecto en el cual hago modificaciones, imprime, agrega y busca en la búsqueda necesito que lo haga por ID de usuario y por NOMBRE en el nombre tengo un textbox y un listbox y necesito que al momento de poner un nombre en el textbox, este jale todos los nombres de excel parecidos a este y en el listbox aparezcan todos los nombre parecidos al que yo puse y de allí escoger el que yo necesito y lo mande al textbox para que solo de buscar y me aparezcan todo sus datos en mi pantalla
ejemplo:
Si pongo en el textbox "pedro"
En listbox me tienen que aparecer todos los nombres que contengan el nombre de pedro
"pedro garcía"
"juan pedro perez"
Y así y de todos estos solo seleccionar el que yo quiera y lo mande completo a mi textbox y haga la búsqueda
gracias!
Tengo un problemita en macros con excel, esto haciendo un proyecto en el cual hago modificaciones, imprime, agrega y busca en la búsqueda necesito que lo haga por ID de usuario y por NOMBRE en el nombre tengo un textbox y un listbox y necesito que al momento de poner un nombre en el textbox, este jale todos los nombres de excel parecidos a este y en el listbox aparezcan todos los nombre parecidos al que yo puse y de allí escoger el que yo necesito y lo mande al textbox para que solo de buscar y me aparezcan todo sus datos en mi pantalla
ejemplo:
Si pongo en el textbox "pedro"
En listbox me tienen que aparecer todos los nombres que contengan el nombre de pedro
"pedro garcía"
"juan pedro perez"
Y así y de todos estos solo seleccionar el que yo quiera y lo mande completo a mi textbox y haga la búsqueda
gracias!
1 Respuesta
Respuesta
1
Te paso la idea porque no es sencillo de hacer por acá
una vez que obtenés el textbox (pedro)
Seleccionas solo lo visible
Lo asignás a un objeto range
Llenas el listbox con este rango
sería algo mas o menos así (asumiendo que el nombre está en la primer columna de la seleccion
varCondicion = "=*" & Textbox1.Text & "*"
Selection.AutoFilter Field:=1, Criteria1:=varCondicion
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
set varRango = Selection.SpecialCells(xlCellTypeVisible)
For each varNombre in varRango
listbox.Add varNombre.Value
Next varNombre
Saludos y espero que puedas sacar la idea
gfellay
una vez que obtenés el textbox (pedro)
Seleccionas solo lo visible
Lo asignás a un objeto range
Llenas el listbox con este rango
sería algo mas o menos así (asumiendo que el nombre está en la primer columna de la seleccion
varCondicion = "=*" & Textbox1.Text & "*"
Selection.AutoFilter Field:=1, Criteria1:=varCondicion
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
set varRango = Selection.SpecialCells(xlCellTypeVisible)
For each varNombre in varRango
listbox.Add varNombre.Value
Next varNombre
Saludos y espero que puedas sacar la idea
gfellay