.Find to ComboBox (VBA Code Only)

I have a list of values in Column A that are sometimes the same, but their corresponded data in Column B will be different. In these instances I want the values in Column B to be entered into a Combo/ListBox for user selection of the appropriate value.

I have attached the spreadsheet, but I have not written the code because I am not sure how to yet.

If you want transfer column "B" to a combobox/listbox, you can do it like so:

Dim vArray As Variant
With Worksheets(1)
    vArray = .Range("B2:B" & .Cells(.Rows.Count).End(xlUp).Row)
    ComboBox1.List = vArray
End With

Rename: Worksheets

Well I want to combine it with code similar to this

Set lookupsht = ActiveWorkbook.Sheets("Contiguous")
match_count = Application.WorksheetFunction.CountIfs(lookupsht.Range("A1:B38"), body_part(1), lookupsht.Range("B1:B38"), body_part(2))
If match_count > 0 Then contiguous = True

so that when the .Find/.FindNext for Column A has mutiple results the value in Column B that corresponds to Column A is in a list...

For what it is worth, I understand VBA much better than I understand Excel & Excel Formulas, so your example is lost on me.

Let me see if I can explain this better...

I have two comlumns of data. Column A and Column B. Each has (for example 10 rows). Column A has 7 values but 10 rows as 1 value is repeated 4 times. Column B has 10 unique values in each row. So I need to use .Find/.FindNext on Column A to populate a ListBox of the Values of Column B only where the value in Column A is repeated.

...A B
1 A Alpha
2 B Beta
3 C Gamma
4 C Delta
5 D Epsilon
6 E Zeta
7 C Theta
8 C Pi
9 F Mu
10 G Omega

So where the .Find sees C it populates the ListBox with Gamma, Delta, Theta, Pi

Unless I'm missing something, your example spreadsheet is already sorted in that order.

So is the problem that your spreadsheet will not always be sorted by column A?

Or is the problem that you need to know how to add two columns to a combobox/listbox?

Or both?

The sort of Column A is irrelevant.

I just want a Combo/List Box using values from Column B if the corresponding value in Column A has more than 1 instance.

maybe something like

Dim r As Range, s As String, adr As String
s = "FEMUR"

With Range("A2", Cells(Rows.Count, 1).End(xlUp))
    Set r = .Find(What:=s, LookAt:=xlWhole)
    If Not r Is Nothing Then
        adr = r.Address
        Do
            listbox1.AddItem r(1, 2).Value '''''''''''
            Set r = .FindNext(r)
        Loop While r.Address <> adr
    End If
End With

Nilem,

Created userform with listbox1.

where do I put the code?

In the form module.
Usually create two listboxes: the first is filled with unique values ​​from column A in the form initialization procedure, and the second listbox is populated in the change the first listbox procedure.

Here you go.

I tried putting in the form. I couldn't get it to work. Would you mind uploading an example?

lloydgodin, attach your example with the form and I'll try to write code for you.

Press Alt+F8, run the 'test' macro. In the appeared form you can see the values ​​corresponding to the 'FEMUR'.

works like a charm. thanks.

This is more what I was trying to do. Although the variant S, I can't get from module 1 into the userform... it's not populating the list now.
yes I know it'll be case specific, its not that...

try it (see attachment)