combobox'ta koşullu listfillrange

[MOONROSE]

Merhaba,Benim ihtiyacım Combobox1 den veri seçtiğimde combobox2 diğer sheetdeki listeden o veriye ait olan satırların sipariş numarasını listelesin. Sorum ve örnek liste ekteki dosyada. Yardımcı olursanız çok sevinirim.

 

[cako]

Cevap dosyası ekte.
Combobox1 in properties penceresinden ListFillRange kısmını sildim. Sayfanızın kod sayfasına da aşağıdakileri ekledim.

Private Sub ComboBox1_Change()
ComboBox2.Clear
ComboBox3.Clear
For a = 5 To Worksheets("SIPARIS EMRI LISTESI").Range("D65536").End(xlUp).Row
    If Worksheets("SIPARIS EMRI LISTESI").Range("D" & a) = ComboBox1 Then
        ComboBox2.AddItem Worksheets("SIPARIS EMRI LISTESI").Range("C" & a)
        ComboBox3.AddItem Worksheets("SIPARIS EMRI LISTESI").Range("E" & a)
    End If
Next a
End Sub

Private Sub Worksheet_Activate()
For a = 5 To Worksheets("SIPARIS EMRI LISTESI").Range("D65536").End(xlUp).Row
    For i = 1 To ComboBox1.ListCount
        If Worksheets("SIPARIS EMRI LISTESI").Range("D" & a) = ComboBox1.List(i - 1) Then GoTo 10
    Next i
        ComboBox1.AddItem Worksheets("SIPARIS EMRI LISTESI").Range("D" & a)
10:
Next a
End Sub

 

[MOONROSE]

Sayın Cako,elinize ve aklınıza sağlık. Yapmak istediğim şeyi sayenizde sorunsuz yaptım.