Değişimi combobox'a yansıtmak

[EKREM1661]

Saygıdeğer Arkadaşlar..! Aşağıdaki örnekte daha iyi anlaşılacağı üzere,
Sayfa üzerine konan iki adet combobox'dan her hangi birinde seçim yapılınca, karşılığı bulunan veri, diğer combobox kutusunun içine düşmesi lazım..

 

[veyselemre]

Private Sub ComboBox1_Change()
    ComboBox2.ListIndex = ComboBox1.ListIndex
    With Sheets("Sayfa2")
        Sheets("Sayfa1").Cells(7, "B").Value = .Cells(ComboBox1.ListIndex + 1, 2).Value
    End With
End Sub

Private Sub ComboBox2_Change()
    ComboBox1.ListIndex = ComboBox2.ListIndex
    With Sheets("Sayfa2")
        Sheets("Sayfa1").Cells(7, "D").Value = .Cells(ComboBox2.ListIndex + 1, 3).Value
    End With
End Sub

 

[EKREM1661]

Sayın veyselemre..! çok teşekkür ediyorum..hayırlı çalışmalar..