Búsqueda génerica
Me interesaría macro para buscar un dato desde un useform (textbox) los resultados de la búsqueda me los diera en un combobox, para luego poder seleccionar el que me interesa. Código en A1 buscar descripción A2. Lo que pretendo, es que al poner parte de la descripción (ejemplo bat, me llenara el combo con todos los resultados de bata, batería, batería kamuro, etc.) resultado en dos columnas=A1 código A2 descripción buscada. Gracias por vuestra ayuda
1 respuesta
Respuesta de vorkosigan
1
Prueba lo siguiente:
1. Crea un formulario (userform1), dentro del cual habrá un textbox (textbox1) y un combobox (combobox1). Pon también un commandbutton (commandbutton1).
2. En el evento click de commandbutton1 introduce:
dim columnaDatos as integer
dim fila as integer
columnaDatos=1 'columna A
fila=1
while cells(fila, columnadatos).value<>""
if instr(cells(fila, columnadatos).value, textbox1.text) then
combobox1.additem cells(fila,columnadatos).value
end if
wend
1. Crea un formulario (userform1), dentro del cual habrá un textbox (textbox1) y un combobox (combobox1). Pon también un commandbutton (commandbutton1).
2. En el evento click de commandbutton1 introduce:
dim columnaDatos as integer
dim fila as integer
columnaDatos=1 'columna A
fila=1
while cells(fila, columnadatos).value<>""
if instr(cells(fila, columnadatos).value, textbox1.text) then
combobox1.additem cells(fila,columnadatos).value
end if
wend
Lo he probado y no me produce ningún resultado, no encuentra ningún dato. El bucle no llega a su fin, es interminable
Efectivamente, hay un error. El código correcto es el siguiente:
dim columnaDatos as integer
dim fila as integer
columnaDatos=1 'columna A
fila=1
while cells(fila, columnadatos).value<>""
if instr(cells(fila, columnadatos).value, textbox1.text) then
combobox1.additem cells(fila,columnadatos).value
end if
fila=fila+1
wend
De esta forma sí se recorre toda la lista. Disculpa la omisión.
dim columnaDatos as integer
dim fila as integer
columnaDatos=1 'columna A
fila=1
while cells(fila, columnadatos).value<>""
if instr(cells(fila, columnadatos).value, textbox1.text) then
combobox1.additem cells(fila,columnadatos).value
end if
fila=fila+1
wend
De esta forma sí se recorre toda la lista. Disculpa la omisión.
