[حل شده] کار با کمبو باکس

[Mehran46]

با سلام
من یک فرم طراحی کردم که یک کمبوباکس و یک تکست باکس در اون هست. این کمبوباکس به یک لیست از اسامی لینک شده که می توانم از طریق این کمبوباکس نام مورد نظر را انتخاب کنم

من می خوام وقتی موضوعی در کمبوباکس انتخاب شد ، در تکست باکس ، کد متناظر با اون نام درج شود . چیکار باید بکنم؟

[iranweld]

با سلام

فایل پیوست را بررسی بفرمایید.

Private Sub ComboBox1_Change()

TextBox1 = ""

EndRow = Cells(Rows.Count, "A").End(xlUp).Row

For i = 2 To EndRow

If Range("A" & i) = ComboBox1 Then

TextBox1 = Range("b" & i)

End If

Next

End Sub

Private Sub UserForm_Initialize()

ComboBox1.RowSource = Range("name1").Address

End Sub 

[Mehran46]

کاملا حل شد. بسیار ممنون از پاسخی که دادید.