Search an Excel Database and display results w/ pictures.

Hello,

I have very little experience with programming, as a matter of fact the code in the sample file is the extent of my knowledge. I want to use Excel because not everyone in the plant has access to Access, but everyone has Excel.

The idea is to allow searching for parts based on 2 different part numbers, category, drawer, manufacturer, or description (any or all).

My first problem is how to make excel search using a userform and find multiple results, not just stopping after it finds the first match. For instance if you only searched for a category it should find all results that match that category.

(I'll try to anticipate a question here: the part numbers should be unique but may not be, so using the part number as a key will not work.)

The second thing is I would like to know how to populate these results in a listbox and and have the selected part show the matching picture. (This maybe more clear after seeing the spreadsheet).

And finally, is there any way to make the comboboxes on the search userform populate themselves off of the list of data.

I apologize if any of these questions have been answered already but frankly I've been searching google for the past week and haven't found anything, (This may attest to my search skills as well, ha ha ha), and I really just want this to be finished.

Any and all help much appreciated!

-L

Sorry had an upload error with the file, should be OK now.

Wow, thanks Rylo!

OK first, for the combo box

Yours worked great, but when I tried to transfer it over to the original worksheet I don't get an error but the comboboxes are empty, any thoughts?

Private Sub cmbCategory()
  Dim DataSH As Worksheet, dicCat
  Set DataSH = Sheets("Data")
  Set dicCat = CreateObject("Scripting.dictionary")
  
  On Error Resume Next
  For i = 2 To DataSH.Cells(Rows.Count, 1).End(xlUp).Row
    If Not dicCat.exists(DataSH, Cells(i, 4).Value) Then dicCat.Add DataSH.Cells(i, 4).Value, DataSH.Cells(i, 4).Value
  Next i
  On Error GoTo 0

  Category.List = dicCat.items

End Sub


Private Sub cmbDrawer()
  Dim DataSH As Worksheet, dicDra
  Set DataSH = Sheets("Data")
  Set dicDra = CreateObject("Scripting.dictionary")
  
  On Error Resume Next
  For i = 2 To DataSH.Cells(Rows.Count, 1).End(xlUp).Row
    If Not dicDra.exists(DataSH, Cells(i, 5).Value) Then dicDra.Add DataSH.Cells(i, 5).Value, DataSH.Cells(i, 5).Value
  Next i
  On Error GoTo 0
  
  Drawer.List = dicDra.items

End Sub


Private Sub cmbManufacturer()
  Dim DataSH As Worksheet, dicMan
  Set DataSH = Sheets("Data")
  Set dicMan = CreateObject("Scripting.dictionary")
  
  On Error Resume Next
  For i = 2 To DataSH.Cells(Rows.Count, 1).End(xlUp).Row
    If Not dicMan.exists(DataSH, Cells(i, 7).Value) Then dicMan.Add DataSH.Cells(i, 7).Value, DataSH.Cells(i, 7).Value
  Next i
  On Error GoTo 0
  
  Manufacturer.List = dicMan.items

End Sub