Utilizar un ComboBox como lista de búsqueda en Excel

Carmen says:

Buenos días, Sergio. Queria solicitar si es posible tu ayuda nuevamente en los siguiente: Tengo un combobox “clientes” que se alimenta de una hoja que trae informacion de una bd en mysql, lo que quiero hacer es que cuando seleccione un cliente aparezca en un segundo combobox los pacientes asociados a ese cliente que se encuentra en una hoja
que tiene 2 columas una con el nombre del cliente y la otra con el nombre del paciente. Es decir que el cliente se repite tantas veces como pacientes esten asociado a el. El problema que tengo es que solo me devuelve un paciente y no necesariamente el correcto. Adicionalmente, tengo una tercera hoja donde coloque un boton para mostrar el formulario con los combobox y me gustaria que al presionar aceptar en la celda que tenia activa se colocaran unos datos segun la seleccion.A continuación coloco el codigo que tengo:
———————————————————————————————————————–
————————————————————————————————————————
Private Sub btnAceptar_Click()
ActiveCell.Value = cmbClientes.Value
End Sub

Private Sub cbCerrar_Click()
frmBuscar.Hide
End Sub

Private Sub cmbClientes_Change()
Dim rango As Range
Dim valor_buscado As String
Dim resultado As String

cmbPacientes.Clear
valor_buscado = cmbClientes.Value

Sheets(“BD_Pacientes”).Select
ult = Cells(Rows.Count, 1).End(xlUp).Row
Set rango = Sheets(“BD_Pacientes”).Range(“D:E”)

resultado_temp = “”
i = 0
Do Until i < ult And resultado “” And Not (IsEmpty(resultado))
i = i + 1
resultado = Application.VLookup(valor_buscado, rango, 2)
If Not (IsEmpty(resultado)) And resultado resultado_temp Then
cmbPacientes.AddItem resultado
End If
resultado_temp = resultado
Loop

End Sub

Private Sub UserForm_Activate()
cmbClientes.RowSource = “Clientes”
cmbClientes.SetFocus
End Sub

—————————————————————————————————————————–
—————————————————————————————————————————–

JORGE PALACIOS says:

Saludos Sergio, quiero preguntarte en relación al combobox, lo que pasa es que mi bd o llamada hoja donde tengo la informacion me toco colocarle una fila de titulos para poder manipular una tabla dinamica. esto me ocasiona que si tenia un combobox para ingresar productos el primer producto que me sale es el nombre que le di a los titulos de las columnas, si lo ordeno se me pierde mi titulo. eso tambien me afecta al momento de ver los datos por listbox para llamarlos a txt, me sale los titulos de las columnas. lo requerido es que estos titulos queden estaticos y no se mezclen al momento de ordenar las filas, y que no se muestren si los llamo por listbox o combobox.

agradezco tu atencion y tiempo prestado. asi como tu ayuda

JORGE PALACIOS says:

Otra cosa sergio

quiero preguntarte si puedo hacer que no salgan los espacios en blanco al momento de visualizar
las filas en el listbox, lo que pasa es que en RowSource lo coloco en “A1:E1000” por logica para
que me cargue mas informacion, pero las filas llenas van hasta “A1:E359” asi no me muestra
las filas vacias, pero si ingreso otro registro lo deja cargar en la bd pero no lo refleja en el
listbox

Private Sub UserForm_Initialize()

Sheets(“CLIENTES”).Select
ListBox1.ColumnCount = 5
ListBox1.ColumnWidths = “290 pt;100 pt;200 pt;120 pt;200 pt”
ListBox1.RowSource = “A1:E1000”

End Sub

lo que pasa es que en la columna (A) que concatena varias columnas ejemplo (b,c,d),
la formula va dentro de la columna y bien se corrigio para queno la lea como si estuviese llena,
pero resulta que cuando ordeno los datos,
me toma como si las filas que tienen la funcion estuviese llenas y me envia toda
la informacion al final de las celdas vacías.

JORGE PALACIOS says:

Saludos Sergio

dices

Te recomiendo que revises las propiedades de los controles. Tanto el listbox como el combobox tienen una propiedad que se llama ColumnHeads para especificar que tu lista tiene títulos.

al colocar la propiedad en true me sale como titulo las columnas (columna a, columna b) y lo que deberia salir es como estan nombradas las columnas (descripcion, producto)

es que te cuento mis tablas estaban bien hasta que me toco agregar un titulo para poderlas manipular por tablas dinamicas, como resultado

al visualizar el formulario que me modifica datos por listbox no bloquea los titulos los muestra como un registro o fila igual que los datos

y al agregar los productos a la factura por un formulario que tiene un combobox es lo mismo me muestra el titulo como un producto mas.

lo que necesito hacer es que no se refleje o por lo menos que no se dejen manipular como los demas datos

Manuel S. says:

Sergio, se ve que tienen bastante experiencia en esto! querá ver si me puede ayudar en lo siguiente. Tengo creado un Combobox en una hoja que selecciona tipos de producto, cambia los datos de una tabla pivote oculta y por lo tanto las referencias del reporte. En mi office funciona a la perfección tengo 2010; sin embargo, no así en Office previos, qué puedo hacer para compartir este archivo y que pueda ser visto y editado el combobox y su macro por otros usuarios con Office previos?

ya intenté guardarlo como versión Office 97 – 2003 y nada…

Saludos,

Viridianito says:

¡Qué tal!
Realmente no he visto mucho tu Post,
puesto que no tengo dudas sobre el manejo del Excel en VB
(no lo necesito, por el momento),
pero por lo completo que lo he notado,
tal vez lo necesite algún día.
Aunque tengo una duda con respecto a los ComboBox…
Tengo un ComboBox con Algunos Items
(nombres de personas),
y quiero hacer una función de AutoCompletar,
He buscado y lo he coseguido,
pero, por ejemplo.
si quiero buscar a una persona,
pero no conozco el nombre, ¿qué busco?
El apellido, claro,
pero Suponiendo que tengo los Items:
JOSE LOPEZ
JOSE MONTERO
Si, por ejemplo,
empiezo a escribir montero,
no me selecciona “JOSE MONTERO”,
Sólo funciona para los primeros carácteres.
¿Cómo podría solucionar este “problema”?

Chicharo Quintero says:

Hola, estoy haciendo un formato para impresión de recibos en excel, ya tengo todo resuelto, lo único que no he sabido hacer es un formulario para buscar por apellido o nombre en otra hoja de mi libro (hoja2) y que el resultado de la busqueda se inserte en determinada celda de mi formato de recibo (hoja1).

El formulario de busqueda he logrado hacerlo, pero no he sabido como insertarlo como dato en la celda de mi hoja1.

De antemano gracias por tu ayuda, saludos.