(Excel VBA) How to Show AutoComplete Feature of a ComboBox as a DropDown List
<p>I would like the following code to add values to a combobox, then when the user inputs characters into the combobox, the dropdown feature of the combobox will show only those items which contain those characters, similarly to the way the Google Search Bar works.</p>

<p><a href="https://i.stack.imgur.com/LB0RC.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/LB0RC.png" alt="Google Search Bar"></a><br>
<sub>(source: <a href="http://intersites.com/resources/uploads/suite_131/google_bar.png" rel="nofollow noreferrer">intersites.com</a>)</sub>  </p>

<p>Code Edit:</p>

<pre><code>Option Explicit
Option Compare Text

Public LC As Long
Public Count As Integer
Dim ComboArray() As String

'Initializes the userform, and saves values from database into an array
Private Sub UserForm_Initialize()
LC = Cells(1, Columns.Count).End(xlToLeft).Column

ReDim ComboArray(1 To LC)

For Count = 1 To LC
    ComboArray(Count) = Cells(1, Count).Value
Next Count
End Sub

'Prevents changes if the down key is pressed?
Private Sub ComboBox_SiteName_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Application.ScreenUpdating = False
End Sub

'Adds values to combobox if they contain the string input by user
Private Sub ComboBox1_Change()
Dim pos As Integer
Dim i As Integer

ComboBox1.Clear

For Count = 1 To LC
    pos = InStr(1, ComboArray(Count), ComboBox1.Value)
    If pos &lt;&gt; 0 Then
        With ComboBox1
            .AddItem Cells(1, Count)
        End With
    End If
Next Count
End Sub
</code></pre>