Textbox'a Combobox referansına göre sheetten değer alma

[mlakdag]

Sayın Forum Üyeleri,

Ekli Dosya'da da anlatmaya çalıştığım gibi; combobox değerini aldığı hücrenin sağındaki hücre değerini textboxa nasıl aktarabileceğim konusunda yardımlarınızı rica etmekteyim.

Saygılarımla.

 

[Levent Menteşoğlu]

Combox2'ye aşağıdaki kodu yazarak deneyiniz.
[vb:1:5ddce51e04]Private Sub ComboBox2_Change()
sut = Sheets("sayfa1").Rows(1).Find(ComboBox1.Value).Column
sat = Sheets("sayfa1").Columns(sut).Find(ComboBox2.Value).Row
TextBox1 = Cells(sat, sut + 1).Value
End Sub
[/vb:1:5ddce51e04]