combobobxtan textlere

[xxihsidxx]

iyi çalışmalar
ekli dosyada combobox c,e,g sütunlarından boşlukları göstermeden verileri alıyor.comboboxa bağlı olarak textlere veri yüklemek istiyorum ama olmuyor.
c sütunundaki verilere bağlı olarak alınan veriler doğru ama e ve g sütunundaki verilere gelince !!! orayı beceremiyorum işte.yardım edecek arkadaşlara teşekkür ederim.

 

[Levent Menteşoğlu]

Comboboxa aşağıdaki kodu kopyalayın.

Private Sub ComboBox1_Change()
sat = [c1:g65536].Find(ComboBox1).Row
sut = [c1:g65536].Find(ComboBox1).Column + 1
TextBox1 = Cells(sat, "a")
TextBox2 = Cells(sat, "b")
TextBox3 = Cells(sat, sut)
End Sub

 

[xxihsidxx]

sayın leventm çok teşekkür ederim.