[حل شده] چگونگی عدم ورود اطلاعات خارج از لیست بویسیله ماکرو نویسی

[mandegar88]

با عرض سلام خدمت دوستان عزیز . مشکلی داشتم که امیدوارم بتونم از کمک شما استفاده کنم. بنده فرمی رو محیط ماکرو اکسل طراحی کردم که در اون بعد از وارد کردن کد یک کالا توسط کاربر ، نام کالا از لیستی فراخوانی میشی ، مشکل اینه که در صورت ورود کدی خارج از لیست مورد نظر فرم با ارور مواجه میشه . برای جلوگیری از ورود کد کالا خارج از لیست چه دستوری رو باید وارد کنم.
این هم کدیه که نوشته شده :

Private Sub CommandButton3_Click()
num = Application.WorksheetFunction.CountA(Range("a:a")) + 1
If TextBox2.Text <> Empty Then
Sheets("sheet1").Cells(num, 2).Value = TextBox2.Value
TextBox3.Value = Sheets("sheet1").Cells(num, 3).Value
Else
MsgBox "کدکالا را مشخص نمایید "
End If
TextBox1.SetFocus
End Sub

[Ali Parsaei]

سلام،
بايد يا از کمبوبکس استفاده کنيد که فقط بتوان از ليست مورد نظر کد را فراخوان کرد و يا به يک نحوي جلوي ورود کد خارج ليست را گرفت، با مشخصاتي که فرستاديد خيلي مسئله مفهوم نيست، يک فايل خام نمونه مي توانيد بفرستيد؟

[mandegar88]

باسلام و تشکر بابت پاسخگویی شما فایل رو به پیوست ارسال کردم با کلیک بر روی نام کالا اگر کد کالای وارد شده درون لیست موجود( list )نباشد با ارور مواجه میشویم

[Ali Parsaei]

يک مقدار فرمتان ايراد ساختاري دارد،
با اين وجود من يک بررسي کلي کردم، اگر خط پنجم کد خود را اينطور تغيير دهيد علي الحساب ديگر کد متوقف نخواهد شد، نهايت اينکه مقدار خطاي داخل سل را در قسمت نام کالا نشان مي دهد و مي فهميد که کد اشتباه است، البته اين کار اصولي نيست:

TextBox3.Text = Sheets("sheet1").Cells(num, 3).Text 

يک مقدار فرمتان را هم تغيير دادم، فايل ضميمه را ببينيد، البته چون دستکاري اش کرده ام خيلي قسمتها احتمالا" کار نخواهد کرد، ولي منظورم فقط اين بود که ببينيد اين طور هم مي شود کار کرد:

[mandegar88]

سپاس فراوان از محبت شما