Combobox değerinin karşılığını Textboxa yazdırmak

[KARTAL06]

Merhabalar öncelikle hayırlı seneler. Sorum şu comboboxta seçtiğim parça numarasının diğer bir sayfadaki a sutunundaki aynı parça no ve b sütunundaki parça adı bigisine ulaşmak ve texboxa bu bilgiyi aktarmak. Yani comboboxtaki seçili parça numarasını başka bir safadaki listede adını bulup textboxa yazdırmak.

 

[Orion1]

Dim k As Range
Set k = Sheets("Sayfa2").Range("A:A").Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then TextBox1.Text = k.Offset(0, 1).Value

 

[KARTAL06]

Teşekkürler

Dim k As Range
Set k = Sheets("Sayfa2").Range("A:A").Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then TextBox1.Text = k.Offset(0, 1).Value

Ancak pazartesi deneyebileceğim. Şu anda iş yerinden ayrılmak zorundayım.

 

[KARTAL06]

Tekrar Teşekkür ederim

Denedim Çalıştı. Emağinize sağlık.