Hello,
I have created a userform with a combobox with a dropdown list.
I am currently having trouble creating a combobox which performs searches as I type into it.
For example if I type John then it will automatically searches anything that has John Mendoza, Jonh Luis Martinez and Michael John Lewis.
Can someone to please modify the code below for me to able to search as I type in the combobox?
So far, My code in userform1 (frmInputs) is this:
Const header = "C5,a"
Const mySheet = "Sheet1"
Private Sub CommandButton1_Click()
If UBound(headerArr) Mod 2 <> 1 Then MsgBox "Error in Cell Address & Header pair"
For a = 0 To (UBound(headerArr) - 1) / 2
Range(headerArr(a * 2)).Offset(0, 1) = InputBox(headerArr(a * 2 + 1), "Field Entry")
Next
End Sub
Private Sub cmdOK_Click()
headerArr = Split(header, ",")
Set sht = Worksheets(mySheet)
For a = 0 To (UBound(headerArr) - 1) / 2
sht.Range(headerArr(a * 2)) = Controls("TextBox" & (a + 1))
Next
Thank you in advance!
I have created a userform with a combobox with a dropdown list.
I am currently having trouble creating a combobox which performs searches as I type into it.
For example if I type John then it will automatically searches anything that has John Mendoza, Jonh Luis Martinez and Michael John Lewis.
Can someone to please modify the code below for me to able to search as I type in the combobox?
So far, My code in userform1 (frmInputs) is this:
Const header = "C5,a"
Const mySheet = "Sheet1"
Private Sub CommandButton1_Click()
If UBound(headerArr) Mod 2 <> 1 Then MsgBox "Error in Cell Address & Header pair"
For a = 0 To (UBound(headerArr) - 1) / 2
Range(headerArr(a * 2)).Offset(0, 1) = InputBox(headerArr(a * 2 + 1), "Field Entry")
Next
End Sub
Private Sub cmdOK_Click()
headerArr = Split(header, ",")
Set sht = Worksheets(mySheet)
For a = 0 To (UBound(headerArr) - 1) / 2
sht.Range(headerArr(a * 2)) = Controls("TextBox" & (a + 1))
Next
Thank you in advance!