هشام شلبى

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

السلام عليكم اخى احمد كيف الحال عمل جميل وتنسيقات جميلة اضفت لك اضافة بسيطة تستحقها فى صفحة الراسب الى اللقاء فنحن اصدقاء من زمان جدا واكيد انك لا تتذكرنى _______________________.rar

السلام عليكم اخى الغالى فى اى مشاركة للاخ ابو تامر ستجد الادوات الذذكية انصحك بالاطلاع عليها ففيها كل ما تسأل عنه من نسخ اكواد وخلافه

السلام عليكم الغالى خبور بفضل من الله ثم منك توصلت هذا العام الى طباعة شهادات مدرستى وشيت الراسبين بالدوائر على ماكينة بلوتر كبيرة بالحجم الطبيعى للشيت وما ان طبعت الشيت الاول الا وظهر عيب خطير وهو ان الدوائر غير ظاهرة الا بخط خفيف جدا وشكلها بيضاوى وليس دائرة 0 فعملت الاتى 1) جعلت ارتفاع الصفوف فى كل شيت الراسب 30 تقريبا 2) جعلت Line.Weight = 1.25 الى Line.Weight = 3.25 3) حددت مدى الطلبة الراسبين ثم رايت كليك - ثم تنسيق خلايا - ثم محاذاة - ثم توسيط - وسط وبعدها ظهر الشيت باجمل ما يكون ولا تتخيل مهما وصفت لك جمال الشيت بعد هذا التعديل هذا لابد وان تاخذه فى الاعتبار لانى اعلمك لا تجعل فى اعمالك مجال للاخطاء

السلام عليكم اعمال العباقرة هنا ممتدة الى مالا نهاية تفضل __________________.rar

السلام عليكم اضافة للكود لو كنت احلم لما استطعت تحقيقها بارك الله فيك

السلام عليكم اخى ايسم كيف حالك استطعت بالفعل ترحيل الراسب الى ما كنت ابغى ولكن ظهرت لى مشكلة اخرى ساحدثك عنها فيما بعد والكود فى الراسب سيكون على الشكل الاتى [codef Cells(i, 43) = ("ÑÇÓÈ") Then N = Cells(i, R).Column With Sheets("ÑÇÓÈ").Columns(N).Rows(1000).End(xlUp) .Offset(2, 0) = Cells(i, R) End With]

بالاضافة الى ذلك قف على الخلية المستهدفة ثم رايت كليك - تنسيق خلايا - محاذاة - علم على التفاف النص

قدرا هو اختصار لثانى وثالت ورابع اسمى ساغيره ان شاء الله عفوا اخى قصى

فى المرفق كود ترحيل الى صفحة الناجح واراسب اريد فى صفحة الناجح واراسب ان يكون الصف رقم 8 فارغ ويبدأ الترحيل من اول الصف رقم 9 1.rar

مشكور بارك الله فيك

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

حفظك ربى اخى وحبيبى وصديقى الغالى ابو تامر هدية قيمة 0 ادام الله عليك نعمة الصحة وحفظك من كل شر

تفضل اخى الغالى _____________________________.rar

بسم الله تبارك الله كود يدر س بارك الله لك وفيك

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

اخى العالى احمد يعقوب اخى الغالى samnaj00 تمام وزى الفل ولكن لاحظا المسلسل فى ورقتى الناجح والراسب غير مضبوط برجاء التعديل

طبعا ممكن ولازم وضرورى عندك حق بس بمجرد الانتهاء من العمل اعدك اخى الغالى بعرض الموضوع كله

الف شكر اخى الغالى والى اللقاء قى ثواب واجر عند الله

السلام عليكم فى المرفق كود ترحيل من شيت التجهيز الى شيت الناجح واراسب ولكن فى صفحة الناجح والراسب لا يكون الرقم المسلسل مضبوط اريد التعديل على الكود او بطريقة ما ضبط هذا المسلسل او حتى يتم الترحيل فى شيت الناجح والراسب من اول العمود b ثم نضع معادلة الترقيم التلقائى فى العمود a فى شيت الناجح والراسب او باى طريقة اخرى وشكرا _______.rar

اشكرك اخى الغالى على ذوقك وزاد الله من علمك

اشكرك اخى الغالى وفى انتظارك

اخى العالى ارجو ان لا اكون اثقلت عليك بطلباتى

اخى الغالى اتمنى ان تكون رايت المشاركة رقم 8

كانت مشاركتى ومشاركتك فى وقت واحد اخشى انك لا تراها فرفقت مرة اخرى اريد عمل نفس ما فعلت فى شيت الصف الثانى على الصف الاول