[حل شده] انتقال اطلاعات از سلولهای یک شیت به روی فرم

[ak55]

با سلام
در یک شیت دو ستون دارم اولی کد دومی نام و نام خانوادگی
در فرم هم یک تکس بکس و یک لیبل حالا میخوام با وارد کردن کد در تکس بکس نام فرد در لیبل نمایش داده بشه
ممنون اکه کد بزارید برام

[iranweld]

با سلام

فایل پیوست را بررسی کنید

Private Sub CommandButton1_Click()

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

For I = 2 To endRow

If Range("A" & I) = Val(TextBox1) Then

LABEL1.Caption = Range("B" & I)

Exit For

Else

LABEL1.Caption = "----------"

End If

Next

End Sub