سلام دوستان توی شیت 1 و ستون a حدود 200 رکورد دارم که شماره خودرو هستند و به ازای هر کد خودرویی که در شیت 1 هست یک شیت همنام با کد خودرو ایجاد شده خب توی فرمم یک تکس باکس گذاشتم که اگر هر کد خودرویی وارد کرد اگر وجود داشت اون شیت مورد نظر انتخاب بشه اگر نبود پیغام بده این خودرو در لیست نیست ولی نمیدونم اشکال کدی که نوشتم چیه که قبول نمیکنه یهنی در هر دو صورت شرط میگه خودرو در لیست وجود ندارد
اینم لینک دانلود فایلمه که آپلود کردم (بعد کلیک چند ثانیه طول میکشه و اتومات دانلود میشه فایلم) نمیدونم چرا مدیرای عزیز فکری برای این مشکل آپ کردن فایل ها اینجا نمیکنن
کد:
Dim c As Range For Each c In Sheet1.Range("a1:a198").Value If TextBox1.Text = c.Value Then Sheets(TextBox1.Text).Select Else MsgBox "Çíä ÇÊæÈæÓ ÏÑ áíÓÊ æÌæÏ äÏÇÑÏ" Exit Sub End If Next
کامنت