Birbiri ile ilişkili Comboboxlara veri getirme.

[esnaf88]

Merhaba. Kolay gelsin.
Userform üzerine eklediğim Comboboxlar ile Sayfa1 de bulunan birbiri ile ilişkili verileri seçerek Textbox1 ve Textbox2 deki veriler ile birlikte, Sayfa2’ye kaydetmek istiyorum. Mesela; Marka ile ilgili cbmarka isimli Combobox ile Sayfa1’de B sütununda bulunan verilerden birini seçtiğimde, cburun isimli Combobox’a C sütununda bulunan ilgili veri gelsin. cburun isimli comboboxa gelen verilerden birini seçtiğimde ise cbfiyat isimli combobox'a hem cbmarka hemde cburun ile ilgili verilerin karşılığı olan fiyat verisi gelsin.
Yardımcı olacak arkadaşa şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Arşiv konuları faydalı olabilir..

Arama Sonuçları

 

[esnaf88]

Teşekkür ederim. İyi çalışmalar.

 

[esnaf88]

Korhan Hocam iyi akşamlar.
Arşiv konularını inceledim.
Bulabildiğim örneklerden acemice olacak şekilde aşağıdaki gibi bir kodlama yapabildim:


Private Sub UserForm_Initialize()
For x = 2 To Sheets("Sayfa2").Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Sheets("Sayfa2").Range("a2:a" & x), Sheets("Sayfa2").Cells(x, 1)) = 1 Then
ComboBox1.AddItem Sheets("Sayfa2").Cells(x, 1).Value
End If
Next
End Sub


Private Sub ComboBox1_Change()
ComboBox2.Clear
ComboBox3.Clear
ComboBox4.Clear
For a = 2 To Sheets("Sayfa2").Cells(65536, 2).End(xlUp).Row
If ComboBox1.Value = Sheets("Sayfa2").Cells(a, 1) Then ComboBox2.AddItem Sheets("Sayfa2").Cells(a, 2)

Next
End Sub

Private Sub ComboBox2_Change()
ComboBox3.Clear
ComboBox4.Clear

For a = 2 To Sheets("Sayfa2").Cells(65536, 3).End(xlUp).Row
If ComboBox1.Value = Sheets("Sayfa2").Cells(a, 1) And _
ComboBox2.Text = Sheets("Sayfa2").Cells(a, 2) Then ComboBox3.AddItem Sheets("Sayfa2").Cells(a, 3)
Next
End Sub

Private Sub ComboBox3_Change()
ComboBox4.Clear

For a = 2 To Sheets("Sayfa2").Cells(65536, 4).End(xlUp).Row
If ComboBox1.Value = Sheets("Sayfa2").Cells(a, 1) And _
ComboBox2.Text = Sheets("Sayfa2").Cells(a, 2) And _
ComboBox3.Text = Sheets("Sayfa2").Cells(a, 3) Then ComboBox4.AddItem Sheets("Sayfa2").Cells(a, 4)
Next

End Sub

 

[Korhan Ayhan]

Tebrikler..