ComboBox bir kaç özellik

[zulfuernek]

userformda 5 adet combobox var her biri ilgili sayfadan (KAYIT) verileri alıyor. bu konuda birkaç sorum olacak

1) Userformlar tekrar eden verileri 1 er defa göstersin boş satırları göstermesin
2) Hangi userformda veri seçersem ona karşılık gelen verileri ilgili userformlarda göstersin (ÖRNEĞİN: emisyon comboboxunda 1. emisyonu seçersem Tutar seçiniz comboboxunda 1. emisyona karşılık gelen tutarları göstersin ona bağlı olarakta tertip comboboxunda ilk iki comboboxta seçilen verilere karşılık gelen tertipleri seçsin böyle devam etmeli. burdaki amaç sıralı şekilde değilde hangisinde seçim yaparsam diğer textboxlara onu uygulasın.)
3) seçilen değerlere ait verileri listboxda sırasıyla göstersin
4) comboxlar verileri alfabetik sıralı olarak göstersin

ilgili dosya ektedir

saygılarımla.

işin içinden bir türlü çıkamadım ((

 

[Ömer BARAN]

Merhaba.
Mevcut UserForm_Activate kodunu aşağıdakiyle değiştirerek deneyiniz.

Private Sub UserForm_Activate()
Set k = Sheets("KAYIT")
For cb = 1 To 4
    Controls("Combobox" & cb).Clear
Next
For sat = 2 To k.Cells(Rows.Count, 2).End(3).Row
    If WorksheetFunction.CountIf(k.Range(k.Cells(2, 2), k.Cells(sat, 2)), k.Cells(sat, 2)) = 1 Then _
        ComboBox1.AddItem k.Cells(sat, 2)
    If WorksheetFunction.CountIf(k.Range(k.Cells(2, 5), k.Cells(sat, 5)), k.Cells(sat, 5)) = 1 Then _
        ComboBox2.AddItem k.Cells(sat, 5)
    If WorksheetFunction.CountIf(k.Range(k.Cells(2, 6), k.Cells(sat, 6)), k.Cells(sat, 6)) = 1 Then _
        ComboBox3.AddItem k.Cells(sat, 6)
    If WorksheetFunction.CountIf(k.Range(k.Cells(2, 3), k.Cells(sat, 3)), k.Cells(sat, 3)) = 1 Then _
        ComboBox4.AddItem k.Cells(sat, 3)
    If WorksheetFunction.CountIf(k.Range(k.Cells(2, 4), k.Cells(sat, 4)), k.Cells(sat, 4)) = 1 Then _
        ComboBox5.AddItem k.Cells(sat, 4)
Next
End Sub

 

[zulfuernek]

@Ömer BARAN hocam 1. madde gerçeklemiş boş satırları göstermiyor ancak bi eksik şu var ki;

ben tedavül tipi seçtiğimde mesela tedavül edilmeyen dediğim zaman dikkat ederseniz sadece 2. emisyonda tedavül edilmeyen seri mevcut. ama combobox 1 bana bütün emisyon tiplerini gösteriyor. hangi comboboxta kriter seçilyse diğer comboboxtaki kriterleride ona göre ayarlasın.