كل الانشطه

شكرا لك اخي 192.168.100.1 192.168.1.1

بارك الله فيك Tutuapp 9Apps

السلام عليكم ترحيل البيانات من ورقة حجز المعلومات الى ورقة Feuil1 Employees5.xlsx

عندي سؤال آخر عند استخدام عمود التاريخ للتحقق هل يقرأه كتنسيف dd/mm/yyyy أم كرقم؟ لأن المتغير عرفناه كرقم تاريخ وليس كتنسيق تاريخ

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

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

تمام ................ بارك الله فيك

السلام عليكم جرب التعديل التالي Sub sav_PDFall() Dim i As Integer Dim folderPath As String Dim mainSheet As Worksheet Dim tempWorkbook As Workbook Dim firstRun As Boolean Set mainSheet = ThisWorkbook.ActiveSheet folderPath = ThisWorkbook.Path & "\ملاحظةالثانوية 2026" firstRun = True If Dir(folderPath, vbDirectory) = "" Then MkDir folderPath End If Application.ScreenUpdating = False For i = 1 To mainSheet.Range("j3").Value mainSheet.Range("j2") = i If firstRun Then mainSheet.Copy Set tempWorkbook = ActiveWorkbook firstRun = False Else mainSheet.Copy After:=tempWorkbook.Sheets(tempWorkbook.Sheets.Count) End If Next i tempWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=folderPath & "\كشف_جامع_" & mainSheet.Cells(2, 4).Text & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True tempWorkbook.Close SaveChanges:=False Application.ScreenUpdating = True End Sub

وعليكم السلام ورحمة الله وبركاته المشكلة الأساسية في الكود تكمن في طريقة التعامل مع تنسيق التاريخ. في VBA، عندما نستخدم SumIfs مع التواريخ، يفضل تمرير التاريخ كقيمة رقمية (Long) اذا كانت الكميات ارقام صثحيحة و Double بدلاً من Long تحسباً لوجود كسور في الكميات (إذا كانت الكمية تحتوي على فواصل عشرية ) ، لأن تحويله إلى نص (String) مثل "MM/dd/yyyy" قد يتسبب في عدم تطابق البيانات إذا كان إعداد التاريخ في الجهاز مختلفاً. جرب التعديل بالملف المرفق SUMIFS_VBA.xlsm

تعديل كود الطباعة بحيث يتم تجميع الملفات في ملف واحد داخل الفولدر Test.xlsm

بارك الله فيك أخي العزيز منتصر فقد استطعت أن أعدل على ملفك الأول وأجلب النتائج وهو يعمل بكفاءة وسأجرب تعديلك الأخير مرة أخرى جبر خاطرك وأسعد أوقاتك

استاذ بارك الله فيك شكرا استاذنا الفاضل أتمنى لك التوفيق والنجاح

خالص الشكر على الابداع والتميز

السلام عليكم عندما أريد أن أجمع المبلغ بين فترتين من تاريخ إلى تاريخ لا يضبط معي؟ عن طريق المعادلات مضبوط 100% لكن المشكلة عندما أستخدم VBA لا يضبط؟ هل من مساعدة وجزاكم الله خير SUMIFS_VBA.xlsm

سلمت يمينك استاذنا الغالي .. وشكراً جزيلاً لسعة صدرك 🌹🌹

نعم صحيح وبمعنى ادق حسب الحاجة .. اي حقل نريد عرضه فمثلا بعض الحقول في الجداول الثلاث لم يتم ادراجها في الاستعلام

بمعنى انه عند اضافة اي حقل جديد للجداول سواء الرئيسية ام الثانوية فأنه يجب تضمينه بالاستعلام ليتم عرض بياناته دون تعديل اي معادلة صحيح ما فهمته استاذنا العزيز

وهنا تعديل احسن وأقوى . Jo_ExportToExcel-2.rar

تفضل استاذ @بلال اليامين طلبك .... وحتي يتحقق طلبك اهم شئ 3 حقول لازم تملأهم سواء وانت بضيف جديد بأكسل أو بالجدول الاساسي (Fondation و prénom وNom) .... وانت بضيف بأكسل لا تكرر رقم التسجيل (id_pers) . تم اضافة كمبوبكس من خلاله بتصدر جسب الاسم المركب من (الاسم واللقب والمؤسسة) بعدما تصدر اذهب بجوار القاعدة بتحصل مجلد (Mon_Excel) وبه ملف اكسل باسم حسب الكمبوبكس . افتح ملف الاكسل عدل به ماتشاء واضف جديد ... وبكود الاستيراد لازم تحدد بالكمبوبكس الاسم المركب . ولاتنسى فتح مشاركة جديدة لارفق لك الهدية. اكنب بها اين الهدية يا خليفة . اليك المرفق ووافني بالرد . Bilal_Yamen_Export_Import_Excel-1.rar

مكتبة كافة الادوات المساعدة والمميزة والكواد والمشاريع 2026-2027 Ms_hanan : https://sites.google.com/view/mas-projectss/home لضم بعض الاعمال وتنزيل المباشر الكل مفتوح المصدر ******************************************************************************************************** توسيــــع واستكمال 1- اضافة اعدادة النسخة الاحتياطية مع التشغيل وتحديد عدد النسخ مع اخذ نسخة بشريط التقدم التأكد من الانتهاء ثم الاغلاق مع عرض النسخ والحذف الكل + استبدال النسخة في التحديث فقط قواعد المشروع - فتحديث استكمال 2- اضافة قائمةالاعدادة تفاعلية عند التهئية جديد بتحديث استكمال 😇 ... تابعوا الفيديو للتوضيح https://drive.google.com/file/d/1ldmRGtBe8PRNNUvWCxH4XXSbPyZxkHkR/view?usp=drive_link

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

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

لماذا لم تعدل تمت الاجابة عندي ولبس عندك بالمشاركة من هنـــــــــــــــــــــا ؟

استاذ بارك الله فيك جزاك الله خير استاد هل تسطيع امام كل سطر تصدير الاكسيل لكل موظف مثل ملف الاكسل سطر واحد ...... واسم ملف الاكسل(بلال_يامن_ابتدائية ساحلي العربي)

استاذ @jo_2010 لو حابب ثبات صف الاسماء عند النزول لاسفل بملف الاكسل كما بالعرض . اليك المرفق . Jo_ExportToExcel-1.rar