Soru Combobox tan seçerek eklemek

[enboy81]

https://www.dosyaupload.com/ju4n hazırladığım dosya ekte combobox1 de seçilen veri ye göre combobox2 den veri değişerek nasıl alabiliriz? yardımcı olabilirmisiniz?

 

[enboy81]

Konuya yardımcı olabilecek kimse yok mu?

 

[çıtır]

ComboBox.RowSource yazdığınız başvuruları siliniz.
veri E sütununa diğer seçeneği yazınız veya kodları kendinize göre düzenleyiniz.Belki daha kısa kodlar yazılabilir.Benim yapabildiğim bu.

Private Sub ComboBox1_Change()
If ComboBox1.Value = "BUĞDAY" Then
tm = WorksheetFunction.CountA(Sheets("Veri").Range("B1:B20"))
ComboBox2.RowSource = "veri!B1:B" & tm
ElseIf ComboBox1.Value = "CEVİZ" Then
tm = WorksheetFunction.CountA(Sheets("Veri").Range("C1:C20"))
ComboBox2.RowSource = "veri!C1:C" & tm
ElseIf ComboBox1.Value = "ÇİLEK" Then
tm = WorksheetFunction.CountA(Sheets("Veri").Range("D1:D20"))
ComboBox2.RowSource = "veri!D1:D" & tm
Else
ComboBox2.RowSource = "veri!E1:E1"
End If
End Sub
Private Sub UserForm_Initialize()
sonkolon = Sheets("veri").Cells(1, 500).End(1).Column
ComboBox1.RowSource = "veri!a1: a5"
End Sub

 

[enboy81]

teşekkürler

 

[çıtır]

teşekkürler

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[enboy81]

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

Kendi projeme uyarladım çok güzel çalışıyor. Ellerinize sağlık çok çok teşekkür ederim.