combolist seçimi

[couldbe]

arkadaşlar ekdeki örnekde 10 tane combolist var ve hepsinde aynı ürünler var. ve bir combolistden bi ürün seçildiği zaman bu seçenek (ürün) diğer combolistlerden kalksın istiyom. Yani iki veya daha fazla listeden aynı ürün seçilemesin. Olabilirmi?

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin. Çözümde class module kullanılmıştır.

 

[couldbe]

elinize sağlık çok güzel olmuş çok teşekürler

 

[couldbe]

levent bey örnekte sağdaki combobox lar değerleri aynı sheet deki farklı sütundan alıyordu. aynı formülü onlara uygulamak istedim alttaki hatayı veriyo (sub script out of range)
clas modüle bunu ekledim

Private Sub cmbb_Click()
deg = Replace(cmbb.Name, "ürünlist", "")
For a = 11 To 15
If Val(deg) <> a Then
For b = 0 To ANA.Controls("ürünlist" & a).ListCount - 1
If ANA.Controls("ürünlist" & a).List(b) = cmbb Then
ANA.Controls("ürünlist" & a).RemoveItem (b)
Exit For
End If
Next
End If
Next
End Sub

sayfaya bunu
ReDim Preserve cmbb(5)
For a = 11 To 15
Set cmbb(a).cmbb = Controls("ürünlist" & a)
Next
Set s1 = Sheets("ÜRÜNLER")
For a = 2 To s1.[h65536].End(3).Row
For b = 11 To 15
Controls("ürünlist" & b).AddItem s1.Cells(a, "h")
Next: Next

 

[Levent Menteşoğlu]

Her grup için ayrı class module oluşturmanız gerekir. Diğer comboboxlar nereden veri alacaktır bunu belirtirseniz yardımcı olmaya çalışırım.