حماده سعد الله

ممكن ملف الشرح يا أستاذ مجدي

عمل رائع يا أستاذ مجدي يا ريت تكمل جميلك بالملف اللي تم عليه الشرح

شكرا أستاذ شريف لاهتمامك وسأحاول تنفيذ الكود

الأستاذ المحترمali mohamed ali شكرا لسرعة ردك واهتمامك ولكن ما أقصده عو أنني أريد طباعة صفحة شيت بها مثلا 100 صف و أريد أن يكون بكل صفحة طباعة 26 صف فقط دون زيادة أو نقصان فهل هذا ممكن عن طريق الكود حتي لا أحتاج إلي ضبط كل صفحة مرارا وتكرارا وخاصة عند زيادة أو نقصان حجم الخط أو ارتفاع الصف

هل يمكن عمل كود لتحديد عدد الصفوف بصفحة الطباعة بمعني جعل عدد الصفوف 20 صف مثلا بالصفحة الواحدة عند الطباعة وشكرا مقدما أحبابي في الله

الأخ الأستاذ أبو عيد هل يمكنك التعديل علي هذا العمل الرائع بحيث عند قفل الملف لا يظهر الا sheet1 الفارغ حتي وان كان هناك شيتات أخري لا تظهر عند الغلق بتاريخ وشكرا

يا شباب أعتقد طلبي مش صعب قوي أنا عاوز التعديل علي صفحة الشهادة فقط بحيث تتفق مع الشيت اللي أرفقته وفي الشيت المطلوب المجموع فقط لكل ماده أرجوكم

(وقل اعملوا فسيرى الله عملكم ورسوله والمؤمنون)

up

هل هناك من يرغب في مساعدتي في تعديل شيت الدرجات المرفق مكان الشيت الموجود ببرنامج الشهادات المرفق شكرا

أستاذ بن علية حاجي عذرا لقد أخطأت في ارفاق الملف وشكرا لحضرتك في سرعة الرد برنامج شهادات المرحلة الأبتدائية2.rar

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

الأستاذ العبقري أبو تامرما أروع هذا العمل جعله الله في ميزان حسناتك أطمع في كرمك في أن تقوم بعمل تعديل لهذا العمل الجميل ليتناسب مع شيت درجات المعهد الثانوي الأزهري ولك مني ومن أسرة المعهد الشكر الجزيل شيت الدرجات.rar

شوف كدا أخي هذا ما فهمته منك نموذج التعديل2.rar

أحبائي في الله قد أكون أخطأت في التعبير عن سؤالي ولكن ما أقصده أن هذا الملف الذي أرفقته ناتج عملية نسخ هله من ملف أخر من خلال كود وما أتمناه أن يكون التج بدون معادلات أو أكواد أتمني من الله أن أكون استطعت توصيل طلبي هذه المرة والموديول من أحد خبراء المنتدي Sub COPY_TO_FILE_ONLY() Dim xPath As String Dim SH As Worksheet xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False ' الشيت الاول Set SH = Sheets("كشف 2 ج أدبي مستجد") With SH .Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xls", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False End With ' الشيت الثاني Set SH = Sheets("كشف المناداة أدبي مستجد") Application.ScreenUpdating = False Application.DisplayAlerts = False With SH .Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xls", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False End With ' الشيت الثالث Set SH = Sheets("كشف 2 ج أدبي معيد") With SH .Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xls", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False End With ' الشيت الرابع Set SH = Sheets("كشف المناداه أدبي معيد") With SH .Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xls", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False End With ' الشيت الخامس Set SH = Sheets("كشف 2 ج أدبي من الخارج") Application.ScreenUpdating = False Application.DisplayAlerts = False With SH .Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xls", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False End With ' الشيت السادس Set SH = Sheets("كشف مناداه أدبي من الخارج") With SH .Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xls", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False End With Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

السلام عليكم ورحمة الله وبركاته أحبائي في الله أريد أن أعرف ماهي كيفية قطع الإرتباطات بملف مرتبط بملف آخر علما بأن رسالة قطع الارتباط لا تظهر rttyt.rar

بارك الله فيك أخي الحبيب الأستاذ / حمادة عمر وشكرا جزيلا علي هذا المجهود في هذا العمل الرائع

أخي الحبيب الأستاذ حماده عمر لقد اطلعت علي عمل الأستاذ القدير ياسر وهو عمل رائع فعلا لكن ينقصه أيضا أن يكون النسخ بنظام 97/2003 وليس فيه تحد يد للشيتات بل ينسخ جميع الشيتات والأستاذ ياسر أثقلت عليه في موضوعات أخري فأستحي منه فأمرك لله تحاول توفقلي بين العملين الرائعين دول وجزاك الله خيرا علي كل عمل تقوم به

أخي الحبيب الأستاذ حماده عمر هل يمكنني أن أطلب من حضرتك أن تزيد علي هذا العمل الرائع عند النسخ يقوم بنسخ كل شيت مستقل بنفسه نظام 97/2003وأن يكون كل شيت باسمه ولك عظيم الشكر والتقدير

العلامة الكبير أبو البراء شكرا جزيلا أصبح الحفظ بصيغة Exel 97 /2003workbook ولكن ليس في فولدر مستقل كما أن الورقة المنسوخة بنفس اسم الورقة المنسوخ منها داخل العمل ولكن ما أريده أن يصبح الاسم الخارجي للعمل الناتج بنفس الاسم الداخلي للورقة أرجوأن أكون استطعت توصيل ما أقصده كما أرجوا ألا أكون أثقلت علي حضرتك وأدعوا الله أن يجعل تعبك وجهدك هذا في ميزان حسناتك

العلامة الكبير أبو البراء كل عام وحضرتك بألف خير وكل أسرة هذا المنتدي المحترم أرجو من كرمك أن تعدل من هذا الكود لتكون الورقة المنسوخة بنفس اسم الورقة المنسوخ منها ويكون الحفظ بصيغة Exel 97 /2003workbook وأن تكون في ملف مستقل أرجو ألا أكون أثقلت علي حضرتك

الكود لم يحقق المطلوب أخي وأستاذي

عزيزي أبو البراء لا يوجد بالرابط ماطلبته أرجو من حضرتك مساعدتي

مازالت المشكلة قائمة أرجوا المساعدة في التوصل لحل