combobox kategorileme hk.

Katılım
24 Mart 2008
Mesajlar
468
Excel Vers. ve Dili
2007TR - 2010TR
Merhaba forumda arama yaptım ancak dosyalar silindiğinden örneklere bakamadım.

Sorunum şu;

A ve B sütununda değerlerim var. A sütununda malzemelerin markası B sütununda modelleri bulunuyor. istediğim A değerleri combobox2 de göstermek combobox2 de seçtiğim değere göre de B sütunundakileri combobox 3 te göstermek. Yani Marka seçtikten sonra o markaya ait modellerin görünmesi.

Umarım yardım eden olu. İyi Çalışmalar.
 

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,607
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Merhaba,
Böyle bir şey mi?
 

Ekli dosyalar

Katılım
24 Mart 2008
Mesajlar
468
Excel Vers. ve Dili
2007TR - 2010TR
dEdE çok teşekkür ederim istediğim bu ancak userform var örnek dosyanın içinde ona göre uyarlayabilirimiyiz acaba ?
 

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,607
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Merhaba,
Mevcut kodları silip;UserFormun kod bölümüne aşağıdakileri eklemeniz yeterli

Kod:
Private Sub UserForm_Initialize()
Set s1 = Sheets("Sayfa1")
ComboBox2.Clear
For i = 2 To s1.[A65536].End(3).Row
If s1.Cells(i, 1).Value = "" Then GoTo Atla
If WorksheetFunction.CountIf(Range(s1.Cells(1, 1), s1.Cells(i - 1, 1)), s1.Cells(i, 1)) <= 0 Then
ComboBox2.AddItem s1.Cells(i, 1)
End If
Atla:
Next
End Sub

Private Sub ComboBox2_Change()
ComboBox3.Clear
    For i = 2 To [B65536].End(3).Row
        If Cells(i, 1).Value = ComboBox2.Value Then ComboBox3.AddItem Sheets("Sayfa1").Cells(i, 2)
    Next
End Sub
 

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,607
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Rica ederim.
İyi çalışmalar.
 
Üst