Combobox değerinin yandaki hücre değerini texboxa gelmesi

[yener11]

Merhaba

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "AO!D2: D750"
End Sub

Bu kod ile ComboBox1 de "AO" SAYFASINDAKİ D SÜTUNU VERİLERİNİ LİSTELETİYORUM.KULLANICI BURDAN SEÇİM YAPTIĞINDA TEXBOXA YİNE AYNI SAYFADAKİ KULLANICININ SEÇİMİ D18 HÜCRESİNE DENK GELİYOR İSE TEXBOXADA BİR YANDAKİ HÜCRE OLAN E:18 HÜCRESİNDEKİ DEĞERİN GELMESİNİ NASIL SAĞLARIM.

ŞİMDİDEN TEŞEKKÜR EDERİM...

 

[Excelmy]

Sayın yener11

Kodlarınız ;

Private Sub ComboBox1_Change()
TextBox1.Value = Sheets("AO").Range("E" & ComboBox1.ListIndex + 2)
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "AO!D2:D" & Sheets("AO").Cells(65536, "D").End(xlUp).Row
End Sub

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Private Sub ComboBox1_Change()
    TextBox1 = Sheets("AO").Range("E" & ComboBox1.ListIndex + 2)
End Sub

 

[yener11]

Teşekkür Ederim çalıştı.Elinize Emeğinize Sağlık.