معرفة الصف الأخير وإنشاء نطاقات ديناميكية غير ثابتة باستخدام الأكواد

[عز أبو أنس]

بارك الله فيك أخي الحبيب

[KHMB]

السلام عليكم ورحمة الله

الاخ ياسر

نعم صحيح طلع معي مثل اخي حسام

لما ادخل Sheet1 وارجع لـ Search واضعط في خلية A6 يظهر ال Userform1 اللي هو البحث ضع أي حرف مثلا م لاتظر أي نتائج

 

الموضوع في 5 نوقمبر 2014

[ياسر خليل أبو البراء]

أخي أبا الحسن والحسين

إذا أمكن ترفق الملف الذي تقصده أو رقم المشاركة لأن الموضوع قديم ومش فاكر المشكلة ..

[احمد عبد الناصر]

السلام عليكم

 

اسعد الله صباحكم 

 

بعد اذن استاذي ياسر 

 

الزر في sheet1 بيشغل الامر ده 

    LastRow1 = Columns("A").Find("الفصل الأول", SearchDirection:=xlPrevious, LookIn:=xlValues, LookAt:=xlWhole).Row

فبيعيد برمجة FIND بانها تبحث عن الكلمة كلها و فقط (LookAt:=xlWhole) يعني تبحث عن محمد لازم يكون الاسم محمد فقط مش محمد محسن مثلا .

 

فممكن يتعدل الجزء ده في البحث التابع للفورم , السطر ده 

         Set A = Range(.Cells(1, 1), .Cells(.Rows.Count, .Columns.Count)).Find(M, LookAt:=xlPart)

فيعيد البرمجة بتاعت FIND تاني بحيث تبحث بمعلومية جزء من الكلمة (LookAt:=xlPart)

 

تحياتي

[KHMB]

السلام عليكم ورحمة الله

اخي حبيب الكل ابو البراء حفظك الله

نفس المشاركة اللي رفعها اخونا الغالي حسام (الصقر الذهبي) رقم المشاركة 22

[ياسر خليل أبو البراء]

أبا الحسن والحسين هل جربت الحل المقدم من قبل الأستاذ الكبير احمد عبد الناصر ؟؟

[KHMB]

السلام عليكم ورحمة الله

شكرا اخي الفاضل ياسر

استخدمت التعديل  الخاص بالاخ احمد ناصر وعمل معي الفورم مهما تنقلت بين جميع الشيتات

جزاك الله خير