أ / محمد صالح

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

وفقكم الله لكل خير أستاذ خالد بمقارنة الملف الأصلي والملف الموجود في مشاركتكم وجد الآتي: * تم تغيير الدالة التي تجلب رقم الهارد ديسك بدالة أخرى من المفترض أنها تجلب رقم الماذر بورد ولذلك الخلل بهذه الدالة وليس في البرنامج إذا صححت الدالة التي تجلب رقم الماذر بورد الموجودة ضمن دالة getcode سيعمل معك جيدا راجع الملف الأصلي ستجد الكود مختلف ويجلب رقم الهارد ديسك ************* * كما أنه يوجد تغيير في حدث عند التحميل في نموذج التسجيل register بطريقة تخل بعمل البرنامج *************** للمرة الأخيرة يجب اتباع التعليمات الواردة في الفيديو حتى لا تحصل على أخطاء ******************** هذا هو رابط الملف الأصلي بدون أي تعديلات لمن لم يعرف مكان تحميله

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

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

أي ملف تقصد أخي الفاضل؟؟!!

ما رقم الخطأ الذي يظهر؟

عليكم السلام ورحمة الله وبركاته لعلك بخير أخي الكريم رجاء قراءة قواعد المشاركة في المنتدى حتى تستطيع الاستفادة بأقصى صورة ممكنة ومنها مثلا أن يكون عنوان الموضوع يدل على مضمونه فهل عنوان الموضوع السلام عليكم يدل على المضمون والذي هو حماية الشيت وعدم تحديد الخلايا المحمية ************** لعمل المطلوب اتبع الآتي حدد الخلايا المسموح الكتابة داخلها قم بإلغاء حماية هذه الخلايا وذلك بضغط CTRL+1 بعد التحديد ثم ستظهر نافذة اكتب كلمة المرور ثم احذف علامة الصح من الاختيار الأول ثم موافق ولا تنساني من صالح دعائك

ممكن تستبدل Sheets("Salim") ب Activesheet

هل النص لا يستجيب لتنسيقه مرة أخرى؟ وإعادة تغيير لون النص الذي صار أبيض

الشكر لله نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

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

بسم الله شكرا للأستاذ علي محمد على جهوده ولكن إذا سمح الأستاذ صاحب الموضوع يفضل وضع عنوان يدل على المطلوب وليس إلى أهل الخبرة أو العباقرة أو ما إلى ذلك ضع نفسك مكان المتصفح للمنتدى هل تفهم مضمون الموضوع إذا كان بمثل هذا العنوان؟؟!! وأعتقد أنك تريد معرفة اسم المحافظة من خلال الرقم القومي بالمعادلات فأنصحك بمتابعة هذا الفيديو به الحل بالكود وبالمعادلات وفقكم الله لك ما يحب ويرضى

نعم الخلق مكافأة من أسدى إليك معروفا ولو بكلمة جزاك الله خيرا شكرا لك على هذه اللفتة الطيبة نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

هل عانيت من مشكلة بعد الكود الموجود فى مشاركتي السابقة؟! المشاركة بها الحل النهائي واختصار الكود أم أن تعليقك السابق لا يخص الكلام عن المشاركات السابقة عليه

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

الفيديو يوجد به ملفان واحد لنسخة الأوفيس 32 بت وآخر لنسخة 64 بت !!!!!!!!!!!!!! 🤔

بعد إذن حبيبنا بن علية طالما مسار الحفظ في نفس مسار الملف يمكن اختصار الكود إلى ذلك Sub save_pdf() Sheets("Sheet1").Select Dim filename As String filename = ActiveWorkbook.Path & "\PDF\" & Range("g6") & ".pdf" Sheets("Sheet1").Range("a1:i26").ExportAsFixedFormat Type:=xlTypePDF, filename:=filename, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub وفقنا الله جميعا لكل ما يحبه ويرضاه

الخطأ في اسم الحقل في النموذج الثاني عدل سطر الفتح إلى هذا DoCmd.OpenForm "airfare form", , , "[SR-No Leave]=" & SR_No_Leave لاحظ الشرطة بين SR-No لم تكن موجودة وفقنا الله جميعا لكل خير

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

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

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

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

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

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

لإيجاد الزيادة ضع هذه المعادلة في B5 =if(b4>b3,b4-b3,"") واسحب المعادلة يسارا للتطبيق على الإناث واستعمل هذه لإيجاد العجز في B6 =if(b3>b4,b3-b4,"") وانصحك بمتابعة دورة أساسيات إكسل وفقنا الله جميعا لكل ما يحب ويرضى