Combobox dan süzülen verileri listbox1 e almak

[udentr2002]

Merhaba arkadaşlar,
Ekli dosyada, form açıldığında, combobox1'de ay seçilince sayfada o ay adını süzüyor. Süzme işlemini yaptıktan sonra, YPLN adlı sayfada süzülen aya karşılık gelen "L" stünunda "Müstahzar Adı" adlı kolon ve "M" Sütunundaki firma adı yazan verileri mükerrer olmadan listbox1'e nasıl aktarabilirim?
Şimdiden ilgilenen tüm arkadaşlarıma teşekkür ederim.
Saygılarımla

 

[Korhan Ayhan]

Deneyiniz.

Private Sub ComboBox1_Change()
Label2 = ComboBox1 & " " & "AYI İÇİN ÜRETİLECEK ÜRÜNLERİN LİSTESİ"
ListBox1.Clear
ListBox1.ColumnCount = 2
Son = Sheets("YPLN").Cells(Rows.Count, 1).End(3).Row
Veri = Sheets("YPLN").Range("A3:M" & Son).Value
Set Dizi = New Collection
On Error Resume Next
For X = 1 To UBound(Veri)
    If Veri(X, 1) = ComboBox1.Value Then
        Aranan = Veri(X, 12) & Veri(X, 13)
        Dizi.Add Aranan, CStr(Aranan)
        ListBox1.AddItem
        ListBox1.List(Satir, 0) = Veri(X, 12)
        ListBox1.List(Satir, 1) = Veri(X, 13)
        Satir = Satir + 1
    End If
Next
End Sub

 

[udentr2002]

Deneyiniz.

Private Sub ComboBox1_Change()
Label2 = ComboBox1 & " " & "AYI İÇİN ÜRETİLECEK ÜRÜNLERİN LİSTESİ"
ListBox1.Clear
ListBox1.ColumnCount = 2
Son = Sheets("YPLN").Cells(Rows.Count, 1).End(3).Row
Veri = Sheets("YPLN").Range("A3:M" & Son).Value
Set Dizi = New Collection
On Error Resume Next
For X = 1 To UBound(Veri)
    If Veri(X, 1) = ComboBox1.Value Then
        Aranan = Veri(X, 12) & Veri(X, 13)
        Dizi.Add Aranan, CStr(Aranan)
        ListBox1.AddItem
        ListBox1.List(Satir, 0) = Veri(X, 12)
        ListBox1.List(Satir, 1) = Veri(X, 13)
        Satir = Satir + 1
    End If
Next
End Sub

Hocam çok teşekkürler Ellerinize emeğinize sağlık.