Koşullu combobox

[topcuexcel]

Merhabalar,
Eklediğim dosyada bir USERFORM ve üzerinde de 2combobox var .
İlk combobox MAMUL ADI
İkinci combobox MAK.KODU

Mamul adını seçtiğim zaman excel sayfa 1 deki listeden seçili mamul hangi
makinelerde yapılabiliyorsa (listeye bakıldığında anlaşılacağı üzere hangi makinelerde yapılabiliyorsa ilgili hücrelerde sayılar var (1 adet ürün için gereken zaman(sn)) sadece o sayılara karşılık gelen makine kodlarını combobox2 de liste olarak açılsın.

not: listemin orijinal halinde 250den fazla Mamul adı ve 40ın üzerinde de makine kodu var.

yardımcı olursanız sevinirim...

 

[leumruk]

Merhaba,
Aşağıdaki kodu userformunuza kopyalayın. Sütun numarasını kendinize uyarlayın.

Cells(Bul.Row, 7)

7 yerine kaç sütununuz varsa onu yazın. Kod sayısal değerleri algılayarak çalışıyor. Hücrelerinizde sayısal değer dışında değer kullanacaksanız kodda düzenleme gerekecektir.(Sn kısmından söz ediyorum.)

Private Sub ComboBox1_Change()
Set Bul = Range("a2:a" & Rows.Count).Find(ComboBox1.Text, LookIn:=xlValues, lookat:=xlWhole)
If Not Bul Is Nothing Then
If WorksheetFunction.Count(Range(Cells(Bul.Row, 2), Cells(Bul.Row, 7))) > 0 Then
For Each Satir In Range(Cells(Bul.Row, 2), Cells(Bul.Row, 7)).SpecialCells(xlCellTypeConstants, 1)
ComboBox2.AddItem Cells(1, Satir.Column)
Next
End If
End If
End Sub

 

[topcuexcel]

Teşekkürler..
Sayıdan başka bir şey olmayacak bu kod benim işimi görür.. çalışıyor ama bir sorun var önceki seçimleride üzerine ekleye ekleye gidiyor (seçimi değiştirdiğimde öncekinin makine kodlarıda listede kalıyor)

 

[topcuexcel]

Kusura bakmayın makronuzu eklemeden yanlış dosyayı göndermişim.
Bu sorunu çözmek için uğraştım ama olmuyor.
Buna da yardım edebilir misiniz ?

 

[leumruk]

Merhaba,
Ufak bir ayrıntıyı gözden kaçırmışım. Kırmızı satır yeni eklenen satır.

Private Sub ComboBox1_Change()
Set Bul = Range("a2:a" & Rows.Count).Find(ComboBox1.Text, LookIn:=xlValues, lookat:=xlWhole)
If Not Bul Is Nothing Then
If WorksheetFunction.Count(Range(Cells(Bul.Row, 2), Cells(Bul.Row, 7))) > 0 Then
[COLOR="DarkRed"]ComboBox2.Clear[/COLOR]
For Each satir In Range(Cells(Bul.Row, 2), Cells(Bul.Row, 7)).SpecialCells(xlCellTypeConstants, 1)
ComboBox2.AddItem Cells(1, satir.Column)
Next
If ComboBox1.Value = Change Then
ComboBox2.AddItem Cells(1, satir.Column)
End If
End If
End If
End Sub

 

[topcuexcel]

Çok Teşekkür ederim...

Sizden son bir ricam olacak

Dosyayı ekledim,
İlk comboboxa ("MAMUL ADI"na) filtre yapmak istiyorum.
Tabloya ekledim. > Mamul adının yanında boylar ve gruplar var. Userformda ilgili comboboxtan seçtiğim grup ve boya göre ilgili Mamul adları liste şeklinde Combobox1 de açılabilir mi?

 

[leumruk]

Merhaba,
Aşağıdaki kodu userformunuza ekleyin. Userform_initialize'deki combobox1'e veri alan satırı kaldırın.

Private Sub ComboBox4_Change()
ComboBox1.Clear
Set Aralik = Range("c2:c" & [c65536].End(3).Row)
    Set Bul = Aralik.Find(ComboBox4.Text, LookIn:=xlValues, LookAt:=xlWhole)
    If Not Bul Is Nothing Then
        Adres = Bul.Address
        Do
        If Cells(Bul.Row, "b") = ComboBox3.Text Then
        ComboBox1.AddItem Cells(Bul.Row, 1)
        End If
        Set Bul = Aralik.FindNext(Bul)
        Loop While Not Bul Is Nothing And Bul.Address <> Adres
    End If
End Sub

 

[topcuexcel]

Leumruk yardımların için sağol...
Çok teşekkür ederim...