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

NimishK

Well-known Member
Joined
Sep 4, 2015
Messages
688
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 :banghead:

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

Code:
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
 
Last edited:

Excel Facts

Which Excel functions can ignore hidden rows?
The SUBTOTAL and AGGREGATE functions ignore hidden rows. AGGREGATE can also exclude error cells and more.

Forum statistics

Threads
1,224,822
Messages
6,181,165
Members
453,021
Latest member
Justyna P

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top