أبوعيد

تفضل أخي إضافة صفو ف بالاكواد والتنسيق4.rar

تفضل مشكلة تغير اليبل2.rar

تعم تم تحميل الملف ولكن لا أعرف كيف اعمل عندما أحمل الفورم واضغط زر إضافة يظهر لي خطأ ولا يتم الأضافه

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

وعليكم السلام أهلا بك أهي في هذا المنتدى الرجاء إرقاق الملف للعمل عليه

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

تم العمل على الهوية فقط ولكن يوجد بالملف تنسيقات شرطية كثيرة تعيق التنسيق الشرطي المطلوب تفضل الهوية + الجواز1.rar

تفضل رسم بياني.rar

تفضل 3.rar

من خلال متابعة الموضوع توصلت إلى أنه يمكن عمل استدعاء لأكثر من 20 مندوب والطريقة : أن نجعل ملفات التكس لكل مندوب مرقمة بأرقام تسلسلية بدلا من ahmad.txt or ali.txt ستكون الملفات هكذا 1.txt و 2.txt و 3.txt وهكذا إلى آخر عدد من المندوبين ثم من ملف ابراهيم استطيع عمل حلقة تكرارية تبدا من 1 إلى آخر ملف ويتم بضغطة واحدة إحضار جميع الملفات هذه هي الفكرة

الرجاء وضع أرقام في الجدول (كمثال) وإعادة تحميل الملف مرة أخرى حتى يسهل الوصول للحل

غيّر السنة في الخلية A2 ولاحظ ماذا يجري تفضل تواريخ متوالية ثابتة1.rar

تفضل 2.rar

تفضل أخي إضافة صفو ف بالاكواد والتنسيق3.rar

جاري النظر في المشكلة

تفضل إضافة صفو ف بالاكواد والتنسيق2.rar

السلام عليكم شكرا أخي الزباري بصراحة موضوع ممتاااااز جدااااا بارك الله فيك , فعلا حاجة غريبة وملف سحري !!!! لي سؤال : هل انت الأن شغال على هذه الفكرة ؟ يعنى هل تستخدمها في مجال عملك ؟ تقبل تحياتي

تستطيع معرفة الايام التي غاب أو تأخر فيها الطالب تابع الصورة ربما تجد فيها جواب لسؤالك

جرب هذا إضافة صفو ف بالاكواد والتنسيق1.rar

حياك الله لأنني معلم فقد فهمت الموضوع , وأرجو أن ينال إعجابك في انتظار ملاحظاتك تفضل طيب الفال1.rar

تفضل

السلام عليكم أخي العزيز الرجاء إرفاق ملف فيه مثال على ما تريده مع الشرح حتى تتضح الفكرة أكثر تحياتي

تم تطوير الكود ليناسب طلبك Sub Kh_Insert_Rows() Dim r, s, x, c r = ActiveCell.Row s = InputBox("ÃÏÎá ÚÏÏ ÇáÕÝæÝ ÇáãÑÇÏ ÃÖÇÝÊåÇ", "ÅÖÇÝÉ ÇáÕÝæÝ", 1) If r < 4 Then Exit Sub Application.ScreenUpdating = False For x = 1 To s Range("A" & r).Resize(1, 7).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Next Range("A" & r - 1).AutoFill Destination:=Range("A" & r - 1).Resize(s + 1, 1), Type:=xlFillDefault Range("D" & r - 1).Resize(1, 4).AutoFill Destination:=Range("D" & r - 1).Resize(s + 1, 4), Type:=xlFillDefault c = Range("A3").End(xlDown).Row Range("A3").FormulaR1C1 = "=MAX(R2C:R[-1]C)+1" Range("A3").AutoFill Destination:=Range("A3:A" & c) Range("A3:A" & c) = Range("A3:A" & c).Value Application.ScreenUpdating = True End Sub إضافة الصفوف سيكون من بداية الصف الرابع وما بعده يعني لن تستطيع إضافة صقوق في الصف الثالث تحياتي إضافة صفوف.rar

الكود هو Sub Kh_Insert_Rows() Dim r r = ActiveCell.Row Range("A" & r).Resize(1, 7).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End Sub حاول أن تضع هذا الكود داخل زر (إضافة صفوف جديدة ) وتمسح الكود السابق ثم بعد ذالك حدد أي خلية وشغل الكود سيتم إضافة صفوف مكان الخلية المحددة إذا لم تنجح العملية معاك راسلني على الأي ميل الظاهر تحت اسمي حتى ارسل لك الملف كاملا تحياتي

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