نجوم المشاركات

السلام عليكم جرب هذا Sub Macro1() With Range(Range("A5"), Range("A5").End(xlDown)).Resize(, 9).Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlMedium End With End Sub تحياتي

كل عام وكل أسرة وأعضاء المنتدى الكرام بألف خير وسعادة دائمة وعيد أضحى سعيد عليكم جميعا أسأل الله العلى العظيم أن يبلغكم جميعا حج هذا العام والعام القادم إنشاء الله

كلامك صحيح استاذ أزهر ولكني احب ان اتبع ما اجده في مرفق الذي يضعه صاحب الموضوع لربما يكون له حاجة في ذلك فاقوم بعمل اللازم على حسب هذا المرفق شكرا لك وتقبل تحياتي

السلام عليكم استبدل السطر With Range(Range("A5"), Range("A5").End(xlDown)).Resize(, 9).Borders(xlEdgeBottom) بهذا السطر With Cells(Cells(Rows.Count, "i").End(xlUp).Row, "a").Resize(1, 9).Borders(xlEdgeBottom) تحياتي

استاذى الفاضل / جمال عبدالسميع - امبراطور المعادلة جزاك الله كل خير وزادك الله علما وتوفيقا المعادلة العادية جميلة وتؤدى الغرض بكفاءة عالية ولكن يوجد ملاحظة بسيطة عند تنفيذها وهى عند كتابة الاسم فى القائمة الاولى بدون ترك مسافة فى بداية الاسم وكتابة الاسم فى القائمة الثانية و ترك مسافة قبل كتابة الاسم فى القائمة الثانية تعطى لا مع ان الاسمين متشابهين تماما والفرق هو ان الاسم فى القائمة الاولى مكتوب بدون ترك مسافة فى اول الاسم وفى القائمة الثانية تم ترك مسافة فى بداية الاسم بدون قصد . ولكن ياحبيبى تسلم الايادى وربنا يخليك لنا يارب وعمل رائع وعلى فكرة ملحوظتك وهى الاخذ فى الاعتبار حالة الحروف هى فى الاعتبار جزاك الله كل خير وربنا يكرمك يارب

الأستاذ / تامر طه السلام عليكم ورحمة الله وبركاته إليك الملف به المطلوب. New Microsoft Office Excel Worksheet3.rar

المرفق التالي Data3_1.rar

أستاذ أزهر ما رأيك في التعديل التالي ( تم تعديل الجز الخاص بعرض السجلات التي تبدأ بحرف بواسطة : علي المصري ) في المرفقات فرز التقرير.rar

تفضل اخي الكريم تفقيط بالجنيه والقرش تفقيط بالجنيه المصري.rar

برنامج بيانات مدرسين شاملة ( الاسم - المدرسة -تاريخ التعيين - الكود- الرقم القومى- الوظيفة - تاريخ الميلاد - رقم التليفون )

دقايق وإن شاء الله أرفق لك واحدة كنت أستخدمها منذ عدة سنوات بس أدور عليها لأنى غيرت الكمبيوتر أكتر من مرة ويارب ألاقيها

شاهد المرفق، Transfer_and_Protect_and_Unhide.rar