combobox1 seçilene göre combobox2 getir

[netvolxxx]

merhaba arkadaşlar şöyle bir olayım var kod tarafında nasıl yazabilirim örnek sayfada a alanında ürün adları yazıyor a2 ile a6 arası
a2 ürün adının karşılığı b2 c2 d2 e2 diye gidiyor

benim yapmak istediğim şu combobox1 a alanındakiler geldi ürün adlar hangisini seçersem karşılığı combobox2 de gelsin

a4 seçtim karşılığı b4 c4 e4 diye gidiyor

örnek dosya yükledim

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Private Sub UserForm_Initialize()
ComboBox1.List = Sayfa1.Range("A2:A6").Value
End Sub

Private Sub ComboBox1_Change()
s = Sayfa1.Range("A:A").Find(ComboBox1, , , 1).Row
ComboBox2.List = Application.Transpose(Range(Sayfa1.Cells(s, 2), Sayfa1.Cells(s, Columns.Count).End(1)).Value)
End Sub

 

[netvolxxx]

Merhaba,
Deneyiniz...

Private Sub UserForm_Initialize()
ComboBox1.List = Sayfa1.Range("A2:A6").Value
End Sub

Private Sub ComboBox1_Change()
s = Sayfa1.Range("A:A").Find(ComboBox1).Row
ComboBox2.List = Application.Transpose(Range(Sayfa1.Cells(s, 2), Sayfa1.Cells(s, Columns.Count).End(1)).Value)
End Sub

teşekkür ederim ömerbey istediğim buydu sağolun sorunsuz çalışıyor...

 

[ÖmerBey]

Rica ederim,
Birbirini içeren veriler olması ihtimaline karşın kodda küçük bir değişiklik yaptım, bilginiz olsun.
İyi çalışmalar...