Combobox'a listesini değişken yapma.

[yasirgoktas]

Merhabalar,

Yaptığım bir excellde userformda birkaç combobox var. bir comboboxta seçtiğim değere göre diğer combobox içindeki listenin de seçtiğim veriye göre değişmesini istiyorum.
Vlookup ile yapmaya çalıştım ama başaramadım.
yardımcı olabilir misiniz lütfen?

örneğin:
Veri sayfamda: ilk satırı: Meyvalar, Sebzeler, Etler, Tahıllar var. ilk comboboxım Gıda türü olsun.
ikinci comboboxım gıda tipi olsun. mesala ilkinde meyva seçtiğimde ikincisinini içine Elma, Armut, Muz vs. girsin. Semze seçersem mesela domates, Biber, Patlıcan vs girsin.

umarım anlatabilmişimdir.

 

[muygun]

Merhaba;
Örneğiniz olmadığı için uyguladığım örnekteki kodları kendi dosyanıza uyarlayın.
Eki inceleyin.
İyi çalışmalar.

Link:

İndir yasirgoktas combobox1 göre combobox2

Dosyayı indir yasirgoktas combobox1 göre combobox2

dosya.co

 

[yasirgoktas]

Hocam çok teşekkürler. Tam istediğim gibi olmuş. emeğinize sağlık.

 

[muygun]

Merhaba;
Özel mesaja istinaden;

Kodları:

Private Sub ComboBox1_Change()
Set s1 = ThisWorkbook.Worksheets("Veri")
s1.Cells(1, 2) = ComboBox1
s1.Range("b2:b65536").ClearContents
For i = 3 To s1.Cells(1, 256).End(xlToLeft).Column
If s1.Cells(1, i) = s1.Cells(1, 2) Then
For k = 2 To s1.Cells(65536, i).End(xlUp).Row
sonsatir = s1.Range("b65536").End(xlUp).Row + 1
s1.Cells(sonsatir, "b") = s1.Cells(k, i)
Next k
End If
Next i
ComboBox2.RowSource = "Veri!b2:b" & Sheets("Veri").Cells(65536, "b").End(xlUp).Row
If ComboBox2.ListCount > 0 Then ComboBox2.ListIndex = 0
End Sub

Şeklinde düzenlerseniz Userform'u istediğiniz sayfada çalıştırırsınız.
İyi çalışmalar.

 

[yasirgoktas]

Çok teşekkürler tekraradan