Search with special letter on combobox dropdown list

[maabadi]

Hi
I want when I don't now exact name, and type for example "b*0" then show result by
"b20, b-20, b-120, b-30 cms-c and ..."

thanks

 

[YasserKhalil]

May be

Private Sub ComboBox1_Change()    Dim i As Long
    With Me.ComboBox1
        If Not IsArrow Then .List = Range("A1:A1000").Value
        If .ListIndex = -1 And Len(.Text) Then
            For i = .ListCount - 1 To 0 Step -1
                If InStr(1, .List(i), .Text, 1) = 0 Then .RemoveItem i
            Next i
            .DropDown
        End If
    End With
End Sub


Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    IsArrow = KeyCode = vbKeyUp Or KeyCode = vbKeyDown
    If KeyCode = vbKeyReturn Then Me.ComboBox1.List = Range("A1:A1000").Value
End Sub


Private Sub UserForm_Initialize()
    With Me.ComboBox1
        .RowSource = ""
        .List = Range("A1:A1000").Value
    End With
End Sub

 

[maabadi]

Thanks YaserKhalil
its good but when I run code it show error: Variable not found
and it show IsArrow.

I think it must be define as Integer
I defined but it show error again whit this vlookup code (red Color) that I have in userform code:

Private Sub ComboBox2_Change()
     Dim Isarrow As Integer
     Dim i As Long
     Dim ws As Worksheet
    Set ws = Worksheets("Sheet2")
   [COLOR=#ff0000] Me.TextBox1.Value = Evaluate("VLOOKUP(""" & Me.ComboBox2 & """,Sheet2!B:C,2,FALSE)")[/COLOR]
    With Me.ComboBox2
        If Not Isarrow Then .List = Range("B2:B600").Value
        If .ListIndex = -1 And Len(.Text) Then
            For i = .ListCount - 1 To 0 Step -1
                If InStr(1, .List(i), .Text, 1) = 0 Then .RemoveItem i
            Next i
            .DropDown
        End If
    End With
End Sub