عبدالله بشير عبدالله

جرب هذا المرفق وهو من كنوز المنتدى للسيد عبدالله باقشير البرقيات.xls

وعليكم السلام ورحمة الله وبركاته فكرة رائعة وعملية هدية مقبولة وان شاء الله في ميزان حسناتك كل العام وانت بخير

وعليكم السلام رحمة الله وبركاته وكل عام وأنتم بخير Application.ScreenUpdating = True MsgBox "تم الإنتهاء من طباعة جميع المستندات هل تريد الخروج من البرنامج مع الحفظ", vbOKOnly, "ok" ActiveWorkbook.Save End Sub

هذا الكود يحول الى وورد ولكن يتعين عليك تعديل اعددات الصفحة في الوورد من حيث الصفحة افقية او راسية وغيره Sub wordexport() Set Word = CreateObject("Word.Application") Word.Documents.Add Word.Visible = True Range("E1:Q1010").Copy Word.Selection.PasteExcelTable False, False, False Application.CutCopyMode = False End Sub

بل يعمل 2545 حفطك الله

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

وعليكم السلام ورحمة الله وبركاته لو ارفقت ملفا كان اجدى وانفع في بداية الكود ActiveSheet.Unprotect Password:="123" وفي نهاية الكود ActiveSheet.Protect Password:="123" جيث 123 هي كلمة مرور الحماية

السلام عليكم تم تقسيم الكود ويعمل بزر واحد الزر اسمه بحث تحياتي NEW 1.rar

وعليكم السلام ورحمة الله وبركاته لا اعلم سبب وجود زرين للترخيل وزرين للاضافة باكواد مختلفة ربما يكون لها اهمية في ملفك الرئيسي اكتب بياناتك ثم ترخيل وهكذا اذا لم يكن هذا طلبك ارفق ملفك الرئيسي ختى تتضح الفكرة listbox (3).xlsm

حسب فهمي لطلبك ... جرب المرفق نسبة التغير.xlsx

طبقت لك على شهادة التكوين فقط وكنت آمل ان تكمل باقي الشهادات على نفس النمط تقريبا على كل جال اليك الملف فيه طلبك ان شاء الله برنامج انجاز الشهادات - اكواد الترحيل والتنقل بين النماذج (11).xlsm

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

ربما هذا الدرس به الافادة وضع صورة متحركة على الشيت واليوزرفورم gif ساجدة العزاوي https://www.youtube.com/watch?v=hZDEhMMuQHw

وعليكم السلام ورحمة الله وبركاته استبدل الكود بهذا Private Sub CommandButton10_Click() Sheets("شهادة تكوين").Select Cells(16, 2).Value = TextBox1.Value Cells(15, 2).Value = TextBox2.Value Cells(15, 6).Value = TextBox3.Value Cells(17, 5).Value = TextBox4.Value Cells(18, 3).Value = TextBox5.Value Cells(19, 2).Value = TextBox6.Value Cells(19, 5).Value = TextBox7.Value Cells(20, 2).Value = TextBox8.Value Cells(20, 7).Value = TextBox12.Value End Sub استبدل UserForm1.Show Unload Me بــ Unload Me UserForm1.Show تفس الطلب الاول برنامج انجاز الشهادات - اكواد الترحيل والتنقل بين النماذج.xlsm

وعليكم السلام ورحمة الله وبركاته طريقة التحويل داخل الاكواد تجد VBA.Calendar= vbCalHijri قم بتغيرها الى VBA.Calendar= vbCalGreg والله اعلم الملف بعد التعديل Daily (1).xlsm

ثوابت بامكانك تغييرها حسب طلبك بداية اكواد الفورم 1- تغيير تنسيقات إظهار التاريخ في الفورم في الثابت DtF 2- تغيير عٌرض مربعات الادخال في الثابت iWgt1 بالنسبة لصفحة الطباعة اعتقد ان الكود يقوم بانشاء ورقة للطباعة مؤقتة ثم يقوم بحذفها بغد الطباعة والله اعلم ارفقت مع الملف شيت به شرح الفورم وهو بقلم صاحب الفورم باقشير وهذا كل ما اعلمه عن الفورم yousef.xlsb

تصحيج للكود المصنف1.xlsm

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

بالنسبة للفورم كما اشرت سابقا انه للعلامة عبدالله باقشير والفورم له اكثر من اصدار اخرها الاصدار الرابع وبه اظهار الصور التكست بوكس مرن كلما اضفت عمود في الصفجة مع تحديد النظاق يقوم الفورم بفتح تكت بوكس جديد كما في الصورة, لعمل قائمة منسدلة وذلك عن طريق ادراج تعليق في الخلية بالنسبة للتوسيط تم تعديله رابط الموضوع الرئيسي الاصدار الثالت والرابع ,عند تجمبل الملف تجد شرحا لاستحذام الفورم https://www.officena.net/ib/topic/52300-امثلة-على-طباعة-السجل-من-فورم-ادخال-وتعديل-وبحث/ https://www.officena.net/ib/topic/52482-الاصدار-الرابع-فورم-اضافة-وبحث-وتعديل-مرن-مع-استعراض-الصور-تحكم-كامل-بالصورة/ اتمنى اني قدمت ما يفيد yousef.xlsb

وعليكم السلام ورحمة الله وبركاته الحفظ في D يمكنك تغيره في الكود backup.xlsm

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

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

استاذ ماجد رائع ما تفيدنا به وجزاك الله كل خير

عزيزى احمد بدون ملف لن تجد تجاوب .ارفق ملفك وبه الكود ليقوم الاعضاء بحل المشكة

شكرا اخي هاني غلى افادتكم وجزاك الله كل خير