ComboBox dan TextBox a veri aktarma

[Hebyıl]

Selam, formu araştırdım ama bulamadığımdan buraya yazdım,
Sayfa1 (a) sütünlarında ki verileri ComboBox a getirip herhangi birini seçtiğimde karşılığı olan (c) sütünundaki bilginin Textbox a nasıl getirebilirim,
şimdiden vereceğiniz bilgiden dolayı teşekkürler, hayırlı çalışmalar.

 

[Ömer BARAN]

Merhaba.

Örnek belge olmadan cevap yazmak doğru değil ancak aşağıdaki gibi olabilir.

Aşağıdaki kod'u Combobox1_Change kodunun içerisine yapıştırın.

Sorun yaşarsanız, cevabımın altındaki açıklamalar doğrultusunda hazırlayacağınız bir örnek belge ekleyiniz.
.
.

[FONT="Arial Narrow"]TextBox1 = Cells(ComboBox1.ListIndex + 2, "C")
[/FONT]

 

[fireman64]

Alternatif olsun.

Private Sub ComboBox1_Change()
ComboBox1.ColumnCount = 3
TextBox1.Value = ComboBox1.Column(2)
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sayfa1!a1:c" & [Sayfa1!c65536].End(3).Row
End Sub

 

[Hebyıl]

tşkler hocam, formülü uyarladım, ancak şöyle bir hata veriyor
'worksheetFucntion sınıfının Match özelliği alınamıyor'
Belgeyi ekledim

 

[Hebyıl]

fireman64 hocam,
formülü uyguladım oldu ancak, ComboBox un içerisinde hem Sayfa1 deki a sütünundaki hemde c sütünundaki bilgiler birlikte geldi belge ekte

 

[Ömer BARAN]

Önceki cevabımı güncelledim.
Sayfayı yenileyerek kontrol ediniz.
.

 

[fireman64]

Bu kodu deneyin

Private Sub ComboBox1_Change()
ComboBox1.ColumnCount = 3
ComboBox1.ColumnWidths = "50;0;0"
TextBox1.Value = ComboBox1.Column(2)
End Sub

 

[Orion1]

fireman64 hocam,
formülü uyguladım oldu ancak, ComboBox un içerisinde hem Sayfa1 deki a sütünundaki hemde c sütünundaki bilgiler birlikte geldi belge ekte

initialize olayındaki kodlar aşağıdaki gibi olmalı.A sütununu görürsünüz.

Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 3
ComboBox1.ColumnWidths = "100;0;0"
ComboBox1.RowSource = "Sayfa1!a1:c" & [Sayfa1!a65536].End(3).Row
End Sub

 

[Hebyıl]

Bu kodu deneyin

Private Sub ComboBox1_Change()
ComboBox1.ColumnCount = 3
ComboBox1.ColumnWidths = "50;0;0"
TextBox1.Value = ComboBox1.Column(2)
End Sub

Hocam,
"TextBox1.Value = ComboBox1.Column(2)"
hata veriyor

 

[Hebyıl]

Sağolun konu halledildi