How To Autocomplete When Typing Drop Down List Or create Drop Down List ...

In this video you will learn How to auto complete when typing in excel drop down list. or How to create drop down list with auto complete option in excel VBA Code: Private Sub Worksheet_SelectionChange(ByVal Target As Range) 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("DropListTemp") 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.DropListTemp.List = xArr End If .LinkedCell = Target.Address End With xCombox.Activate Me.DropListTemp.DropDown End If End Sub Private Sub DropListTemp_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 After that you have to save file with .xlsm extension.