استفاده از vlookup در vba

[mokaram]

با سلام
من یه فرم دارم که اطلاعات را تو یه شیت میریزم دو تا باکس دارم که کد مشتری و نام مشتری هست میخوام با vlookup کاری کنم که کد مشتری را که تو تکست باکس 2 میزنم تو تکست باکس 3 نام مشتری بیاد ولی هر میکنم ارور میده.

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.Text = Application.WorksheetFunction.VLookup(TextBox2.Text, Sheet3.Range("a2:b1000"), 2, 0)
End Sub 

(تمامی کدها و نام مشتری ها در شیت 3 موجود است.کد در شیت a و نام مشتری در شیت b)
آیا فرمول مشکل داره؟
جواب نمیده

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[~M*E*H*D*I~]

سلام
باید قبل از کد اضافه کنی on error resume next تا خطا نگیره[hr]
اگه حل نشد ی اضافه کردن اون کد برو تو قسمت tools/option بعد تو تب general قسمت error trapping گزینه سوم رو انتخاب کن

[Javid Mokhtari]

با سلام
من یه فرم دارم که اطلاعات را تو یه شیت میریزم دو تا باکس دارم که کد مشتری و نام مشتری هست میخوام با vlookup کاری کنم که کد مشتری را که تو تکست باکس 2 میزنم تو تکست باکس 3 نام مشتری بیاد ولی هر میکنم ارور میده.

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.Text = Application.WorksheetFunction.VLookup(TextBox2.Text, Sheet3.Range("a2:b1000"), 2, 0)
End Sub 

(تمامی کدها و نام مشتری ها در شیت 3 موجود است.کد در شیت a و نام مشتری در شیت b)
آیا فرمول مشکل داره؟
جواب نمیده

با سلام.
کد رو به شکل زیر بنویسید ببینید جواب میده:

TextBox3.Text = Application.WorksheetFunction.VLookup(TextBox2.Tex t, Sheet3.Range("a2:b1000").Value, 2, 0

[mokaram]

متاسفانه هیچ کدوم جواب نداد
on error resume next را که اضافه کردم دیگه ارور نداد ولی هیچ عملی انجام نشد
ولی تو روش دوم انجام نشدارور هم داد تلفیق هر دو هم جواب نداد

[~M*E*H*D*I~]

فایلو پیوست کن ببینیم مشکل چیه

[Javid Mokhtari]

متاسفانه هیچ کدوم جواب نداد
on error resume next را که اضافه کردم دیگه ارور نداد ولی هیچ عملی انجام نشد
ولی تو روش دوم انجام نشدارور هم داد تلفیق هر دو هم جواب نداد

آری،باید فایل رو بذارید تا مشکل رو بررسی کنیم...

[mokaram]

اینم قسمتی از فایل نمونه
ممنون از لطف اساتید

فایل نمونه

[Javid Mokhtari]

برای متن:
[align=left]

On Error Resume Next
TextBox3.Text = Application.WorksheetFunction.VLookup(TextBox2.Text, Sheet3.Range("a2:b4").Value, 2, False) 

[/align]
برای عدد:
[align=left]

On Error Resume Next
TextBox3.Text = Application.WorksheetFunction.VLookup(Val(TextBox2.Text), Sheet3.Range("a2:b4").Value, 2, False) 

[/align]

[mokaram]

ممنون جاوید جان
متشکر

[Nima]

برای متن:
[align=left]

On Error Resume Next
TextBox3.Text = Application.WorksheetFunction.VLookup(TextBox2.Text, Sheet3.Range("a2:b4").Value, 2, False) 

[/align]
برای عدد:
[align=left]

On Error Resume Next
TextBox3.Text = Application.WorksheetFunction.VLookup(Val(TextBox2.Text), Sheet3.Range("a2:b4").Value, 2, False) 

جاوید جان سلام

من وقتی از این کد استفاده می کنم ارور 1004 :
(unable to get VLookup property of the WorksheetFunction class)
میده به نظر میرسه که نمیتونه تابع vlookup رو تو فرم اجرا کنه راه حلش چیه؟

با تشکر
[/align]