¿Cómo autocompletar al escribir en una lista desplegable de Excel?

Para una lista desplegable de validación de datos con muchos elementos, es necesario desplazarse hacia arriba y hacia abajo en la lista para encontrar el que necesita o escribir correctamente toda la palabra en el cuadro de lista. ¿Existe alguna manera de hacer que la lista desplegable se autocomplete al escribir los caracteres correspondientes? Esto ayudaría a las personas a trabajar de manera más eficiente en hojas de cálculo con listas desplegables en las celdas. Este tutorial proporciona dos métodos para ayudarte a lograrlo.

Hacer que las listas desplegables se autocompleten con código VBA
Hacer que las listas desplegables se autocompleten fácilmente en 2 segundos
Más tutoriales para listas desplegables...

Hacer que las listas desplegables se autocompleten con código VBA

Por favor, siga los siguientes pasos para hacer que una lista desplegable se autocomplete después de escribir las letras correspondientes en la celda.

Primero, necesita insertar un cuadro combinado en la hoja de trabajo y cambiar sus propiedades.

1. Abra la hoja de trabajo que contiene las celdas de la lista desplegable que desea que se autocompleten.
2. Antes de insertar un cuadro combinado, debe agregar la pestaña Desarrollador a la cinta de Excel. Si la pestaña Desarrollador ya está visible en su cinta, vaya al paso 3. De lo contrario, haga lo siguiente para mostrar la pestaña Desarrollador en la cinta: Haga clic en "Archivo" > "Opciones" para abrir la ventana "Opciones". En esta ventana "Opciones de Excel", haga clic en "Personalizar cinta" en el panel izquierdo, marque la casilla "Desarrollador" y luego haga clic en el botón "Aceptar". Consulte la captura de pantalla:
   
3. Haga clic en "Desarrollador" > "Insertar" > "Cuadro combinado (Control ActiveX)".
   
4. Dibuje un cuadro combinado en la hoja de trabajo actual. Haga clic derecho sobre él y seleccione "Propiedades" en el menú contextual.
   
5. En el cuadro de diálogo "Propiedades", reemplace el texto original en el campo "(Nombre)" por "TempCombo."
   
6. Desactive el "Modo Diseño" haciendo clic en "Desarrollador" > "Modo Diseño".

Luego, aplique el siguiente código VBA

1. Haga clic derecho en la pestaña de la hoja actual y haga clic en "Ver código" en el menú contextual. Consulte la captura de pantalla:
   
2. En la ventana "Microsoft Visual Basic for Applications" que se abre, copie y pegue el siguiente código VBA en la ventana de Código de la hoja de trabajo.
   Código VBA: Autocompletar al escribir en una lista desplegable

   Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   'Update by Extendoffice: 2020/01/16
       Dim xCombox As OLEObject
       Dim xStr As String
       Dim xWs As Worksheet
       Dim xArr
       
       Set xWs = Application.ActiveSheet
       On Error Resume Next
       Set xCombox = xWs.OLEObjects("TempCombo")
       With xCombox
           .ListFillRange = ""
           .LinkedCell = ""
           .Visible = False
       End With
       If Target.Validation.Type = 3 Then
           Target.Validation.InCellDropdown = False
           Cancel = True
           xStr = Target.Validation.Formula1
           xStr = Right(xStr, Len(xStr) - 1)
           If xStr = "" Then Exit Sub
           With xCombox
               .Visible = True
               .Left = Target.Left
               .Top = Target.Top
               .Width = Target.Width + 5
               .Height = Target.Height + 5
               .ListFillRange = xStr
               If .ListFillRange = "" Then
                   xArr = Split(xStr, ",")
                   Me.TempCombo.List = xArr
               End If
               .LinkedCell = Target.Address
           End With
           xCombox.Activate
           Me.TempCombo.DropDown
       End If
   End Sub
   Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
       Select Case KeyCode
           Case 9
               Application.ActiveCell.Offset(0, 1).Activate
           Case 13
               Application.ActiveCell.Offset(1, 0).Activate
       End Select
   End Sub

   
3. Presione simultáneamente las teclas "Alt + Q" para cerrar la ventana Microsoft Visual Basic for Applications.

A partir de ahora, al hacer clic en una celda de lista desplegable, la lista desplegable aparecerá automáticamente. Puede comenzar a escribir la letra para que el elemento correspondiente se complete automáticamente en la celda seleccionada. Consulte la captura de pantalla:

Hacer que la lista desplegable se autocomplete fácilmente en 2 segundos

Para la mayoría de los usuarios de Excel, el método VBA anterior es difícil de dominar. Pero con la función "Lista desplegable buscable" de Kutools para Excel, puede habilitar fácilmente el autocompletado para listas desplegables de validación de datos en un rango especificado en solo 2 segundos. Además, esta función está disponible para todas las versiones de Excel.

1. Para habilitar el autocompletado en sus listas desplegables, primero seleccione el rango con los desplegables. Luego, navegue hasta la pestaña "Kutools", elija "Lista desplegable" > "Hacer que la lista desplegable sea buscable, Auto-popup."
2. En el cuadro de diálogo "Hacer que la lista desplegable sea buscable", haga clic en el botón "Aceptar" para guardar la configuración.

Resultado

Una vez completada la configuración, al hacer clic en una celda de lista desplegable dentro del rango especificado, aparecerá un cuadro de lista. Al ingresar caracteres, tan pronto como un elemento coincida exactamente, toda la palabra se resaltará inmediatamente en el cuadro de lista y se podrá completar en la celda de la lista desplegable simplemente presionando la tecla Enter.

Artículos relacionados: