Solo despliega la lista pero no me da la opción de buscar coincidencia de la palabra agregada
Entonces quieres ir capturando letras en el combobox y que te vaya mostrando las coincidencas.
Si es así, realiza lo siguiente:
1. Pon TODO el siguiente código en los eventos del combobox
Option Explicit
'
Dim cargando As Boolean
Dim h2 As Worksheet
'
Private Sub ComboBox1_Change()
'Por.Dante Amor
Dim col As String
Dim dato As Variant
Dim i As Long
'
Application.ScreenUpdating = False
If cargando = True Then Exit Sub
Set h2 = Sheets("DATOS-PROG")
col = "B"
cargando = True
dato = ComboBox1.Value
ComboBox1.Clear
For i = 2 To h2.Range(col & Rows.Count).End(xlUp).Row
If UCase(h2.Cells(i, col)) Like UCase(dato) & "*" Then
ComboBox1.AddItem h2.Cells(i, col)
End If
Next
ComboBox1 = dato
'
'Se activa una celda para que aparezca el combo completo
Range("Z1000"). Activate
ComboBox1. Activate
ComboBox1. DropDown
'
Application.ScreenUpdating = True
cargando = False
Range("C4").Value = ComboBox1.Value
End Sub
2. Cambia en el código "C4" por la celda en donde quieres poner el dato seleccionado en el combo.
3. Actualiza las propiedades del combo según la siguiente imagen. (LinkedCell y ListFillRange, deben estar vacías)
4. Empieza a escribir en el combo, en automático te mostrará las coincidencias.
5. Selecciona el dato que necesitas, el dato se pasará a la hoja.
Me avisas cualquier duda. Si tienes problemas para adaptar el código, me puedes enviar tu archivo para adaptarlo.
Mi correo: [email protected]