No se despliega listado y flecha en combobox
tengo un buscador con combobox y la lista desplegable no se muestra , solo la primera seleccion y las flechas aparecen comprimidas.... como mostrar todo el resultado del filtro..?????
1 respuesta
Respuesta de Dante Amor
2
No entiendo exactamente por qué no se despliega, pero puedes solucionarlo de esta forma:
Después de cargar los datos en el combo, selecciona una celda, después activa el combo y utiliza la propiedad DropDown para desplegar la lista del combo. Te anexo mi ejemplo:
Dim cargando
Private Sub ComboBox1_Change()
'Por.Dante Amor
Application.ScreenUpdating = False
If cargando = True Then Exit Sub
Set h2 = Sheets("hoja2")
col = "A"
cargando = True
dato = ComboBox1
ComboBox1.Clear
For i = 2 To h2.Range(col & Rows.Count).End(xlUp).Row
If Left(UCase(h2.Cells(i, col)), Len(dato)) = UCase(dato) Then
ComboBox1.AddItem h2.Cells(i, col), 0
j = j + 1
End If
Next
ComboBox1 = dato
'
'En esta parte se activa la lista
Range("D5"). Activate
ComboBox1. Activate
ComboBox1. DropDown
'
Application.ScreenUpdating = True
cargando = False
End SubEl detalle es que se observa un parpadeo en la pantalla.
Saludos. Dante Amor
Recuerda valorar la respuesta.
