Hi all,

I have a long list of part numbers in the format - '01821-00406'. I was
wondering if it is possible to have a text box on a form where the user
could enter a few digits of a part number then return a list of part
numbers containing the search string?

Thanks for any help!!

Joe @ work


--
gti_jobert
------------------------------------------------------------------------
gti_jobert's Profile: http://www.excelforum.com/member.php...o&userid=30634
View this thread: http://www.excelforum.com/showthread...hreadid=512651

Would this work, have wrote the code but cant test it yet as form is not
built;


Code:
--------------------

i = 1
Do
If InStr(1, Cells(i, 1).Value, txtSearchString.Text) = True Then
'display numbers in datagrid
End If
i = i + 1
Loop Until Cells(i, 1).Value = ""

--------------------


--
gti_jobert
------------------------------------------------------------------------
gti_jobert's Profile: http://www.excelforum.com/member.php...o&userid=30634
View this thread: http://www.excelforum.com/showthread...hreadid=512651

Try something like this which will place list in a combobox:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Part = TextBox1.Value
ComboBox1.Clear
For Each cell In Worksheets("Sheet1").Range("A1:A100") <=== change
If cell Like Part & "*" Then
ComboBox1.AddItem cell.Value
End If
Next cell
End Sub

"gti_jobert" wrote:


Hi all,

I have a long list of part numbers in the format - '01821-00406'. I was
wondering if it is possible to have a text box on a form where the user
could enter a few digits of a part number then return a list of part
numbers containing the search string?

Thanks for any help!!

Joe @ work


--
gti_jobert
------------------------------------------------------------------------
gti_jobert's Profile: http://www.excelforum.com/member.php...o&userid=30634
View this thread: http://www.excelforum.com/showthread...hreadid=512651

I've done it now, but for all those that want to know....this is how i
can be achieved;


Code
-------------------

Private Sub cmsSearch_Click()

Dim i%

ActiveWorkbook.Sheets("RelationalData").Activate
Range("A1").Select

i = 3
Do
If InStr(1, Cells(i, 7).Value, txtSearch.Text, vbTextCompare) < 0 Then
With lstResult
.AddItem Cells(i, 7).Value
End With
End If
i = i + 1
Loop Until Cells(i, 7).Value = ""

End Sub

-------------------

--
gti_jober
-----------------------------------------------------------------------
gti_jobert's Profile: http://www.excelforum.com/member.php...fo&userid=3063
View this thread: http://www.excelforum.com/showthread.php?threadid=51265