Unbale to get value in TextBox from Column B when Numeric values are searched.....

[NimishK]

Anyone

My numeric code no values are in colA and its respective text values in Col B

I am unable to get respective Text or String values from Col B. in Text box through ComboboxList.Click Event when clicked and searched for the numeric values of column A through ComboBox_Change

But if i interchange the Worksheet columns of String or Text values of column B to column A and Numeric values of Column from A to B and then the below code works perfectly
I don't understand Why the below code code can't execute the search for Numeric Values in comBobox

Pl do let me know where exactly i need to incorporate the change so that desired result is acheived

Private Sub UserForm_Initialize()
 ComboBox1.List = Worksheets("Sheet1").Range("A2").CurrentRegion.Offset(1, 0).Value
End Sub

Private Sub ComboBox1_Change()
Dim i As Long
    With Me.ComboBox1
        If Not IsArrow Then .List = Worksheets("Sheet1").Range("A2").CurrentRegion.Offset(1, 0).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 = Worksheets("Sheet1").Range("A2").CurrentRegion.Offset(1, 0).Value
End sub

Private Sub ComboBox1_Click()
Dim idx As Long
idx = ComboBox1.ListIndex
 If idx <> -1 Then
        TextBox1.Value = Worksheets("Sheet1").Range("B" & idx + 2).Value
    End If
End Sub

NimishK