fill listbox and combobox

[sal21]

i have this sheet and form...(use the form in wbook)
how to fill the combobox with data in column K of sheet, and when i select one item in combobox fill the list box with related value in L, M and O...
Example:
I select from cmbobox=CORPORATE
Fill the list box with:
13/11/2005 31/12/2006 20/10/2006
11/11/2005 31/12/2006 20/10/2006
here the file:
http://www.mytempdir.com/1005159

 

[agihcam]

Hi -
I have this dic object code from one of my spreadsheet coming from Jindon ( Thanks to Jindon ), just modified a little to suit your needs. This code will display only the unique items in combobox.
add these codes from userform activate event;

'populate combobox
Dim i As Long
Dim a As Object, w()
Set a = CreateObject("scripting.dictionary")
For i = 2 To Sheets("STATISTICA").Range("k" & Rows.Count).End(xlUp).Row
    With Sheets("STATISTICA")
       If Not IsEmpty(.Cells(i, "k").Value) Then
            If Not a.exists(.Cells(i, "k").Value) Then
                ReDim w(0)
                    a.Add .Cells(i, "k").Value, w(0)
                    w(0) = .Cells(i, "k").Value
                    Me.ComboBox1.AddItem w(0)
            End If
        End If
    End With
Next

to display values on listbox depending on combobox selection, double click combobox1 and paste these codes from combobox change event;

Dim i As Long, f As String
Dim c As Object
i = Sheets("STATISTICA").Range("k" & Rows.Count).End(xlUp).Row
With Sheets("STATISTICA").Range("k2:k" & i)
    Set c = .Find(Me.ComboBox1.Text, , , xlWhole)
        If Not c Is Nothing Then
        f = c.Address
        Do
            Me.ListBox1.AddItem c.Offset(, 1).Value & vbTab & vbTab & c.Offset(, 2).Value & vbTab & vbTab & c.Offset(, 4).Value
        Set c = .FindNext(c)
        Loop Until f = c.Address
        End If
End With

hope it helps.