سلام دوستان توی شیت 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
اینم لینک دانلود فایلمه که آپلود کردم (بعد کلیک چند ثانیه طول میکشه و اتومات دانلود میشه فایلم) نمیدونم چرا مدیرای عزیز فکری برای این مشکل آپ کردن فایل ها اینجا نمیکنن
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)