السلام عليكم
الاخ الكريم / goodfas
بارك الله فيك اخي الكريم
واسعد كثيرا واشكر فيك حبك واصرارك علي التعلم ... واحترم ذلك كثيرا
وباذن الله قريبا نري احد روائعك ... مع العفريت الاكسيل
اولا: اخي الكريم لعمل المطلوب يجب ان تقوم بتغيير بعض اللمسات في الكود وهي كالتالي
يجب تغيير السطر
LR = sh12.[A2000].End(xlUp).Row
ليكون بالشكل التالي لتحديد مرجع البحث وهو العمود B ليصبح :
LR = sh12.[B2000].End(xlUp).Row
ثانيا : يجب عليك تحديد النطاق الصحيح للبحث والذي يعمل من خلاله الكود
ولذلك فيجب تغيير السطر التالي في الكود :
For Each cl In sh12.Range("A5:H" & LR)
ليكون بالشكل التالي لتحديد نطاق البحث ( كما هو في ملفك المرفق ) ليصبح :
For Each cl In sh12.Range("B6:J" & LR)
حيث تم تغيير A5 الي B6 وهو عمود البداية لديك وكذلك الصف رقم 6 في ملفك بدلا من الصف رقم 5 في الشرح في المثال
ثالثا : لقد قمت انت في ملفك باضافة تكست بوكس جديد TextBox10 فيجب عليك اضافة الكود له او بمعني آخر اضافته للكود ليعمل عليه الكود كما تريد
ولذلك فيجب عليك زيادة هذا السطر التالي لعمل ذلك
Me.TextBox10 = cl.Offset(0, 8)
*** وبعمل هذه الاضافات البسيطة سيعمل ملفك بشكل جيد لعمل الاستعلام من خلال الكومبوبكس ( باذن الله )
واليك ملفك بعد التعديل عليه كما سبق ذكره
واسعد كثيرا باي استفسار آخر ... ولا تترد لحظة واحدة في طلب العلم ..
ارجو ان يكون قد وفقني الله في توضيح هذه النقاط
جزاك الله خيرا
اكسيل ..طريقة عمل شاشة ادخال واستعلام وتعديل 4+.rar