نجوم المشاركات

وممكن فى خلية فارغة نستخدم تلك المعادلة ونشير للخلية التي بها الرقم أو الكلمات او الجمل المراد تنظيفها - مكان الــــ B3 ونسحب المعادلة لأسفل CLEAN(TRIM(B3))=

وعليكم السلام ورحمه الله وبركاته استخدام الدالة trim في علاج هذه المشكلة ونكتب في خلية فارغة =trim(d2) ونقوم بتطبيق الدالة على هذه الحالة

تهنئة خالصة من فلسطين الى الاخ العزيز @عبد اللطيف سلوم فى الاردن الشقيق بمناسبة خطوبة ابنه اشرف وبالرفاه والبنين يا ختيار

هههههههه الحين استخدم البحث بالاسم لاضافة جديد تكتب بسيطه بالهاء وليست بسيطة عند كتابة رسائل لا يدقق بالهمزه لكثرة المحادثات خَلِّ الذُنُوبَ صَغِيرَها، وَكَبِيرَهَا؛ ذَاكَ التُّقَى! وَاصْنَعْ كَمَاشٍ فَوْقَ أرْضِ الشَّوْكِ يَحْذَرُ مَا يَرَى؛ لَا تَحْقِرَنَّ صَغِيرَةً إِنَّ الْجِبَالَ مِنَ الْحَصَى!

فقدة التركيز بسيطه لم يتغير المعنى ( ظ ، ض ) في الكلمة لمعرفة التنسيق واشكركم على التعقيب

للاسف والعفوا والمسامحة الى الآن لم افهم ماذا يستفاد من هذه المشاركة و تطبيق وذلك لعدم التوضيح فقد تم تنزيله ولكن لم افهم فائدته

غير السطر Path = CurrentProject.Path & "\MyBk\" الى Path= "C:\Users\myuser\Documents\MyBk\" او الى Path= "C:\Users\myuser\Documents\MyBk" لا حظ يجب تغيير myuser الى اسم المستخدم عندك في وندوز

منظم : من التنظيم وهو الترتيب منضم : من الانضمام وهو الارتباط للتصحيح : تكتب : غير منضم .. و منضم ..... وليس منظم

غير بهذين السطرين فقط كما هو موضح Public Function crBkp() As Boolean Path = CurrentProject.Path & "\MyBk\" target = Path & nm & Format(Now(), "dd-mm-yyyy h m s") & ".accdb" End Function

تفضل أخي . قاعدة البيانات-2.mdb

وجزاكم مثله استاذ @يوسف عطا امين يارب العالمين وإياكم والحمد لله الذي بنعمته تتم الصالحات

وعليكم السلام-لابد ان تكون المعادلة هكذا =IF(AND(H7="الرابع",G7="نصف العام"),L7,IF(AND(H7="الخامس",G7="نصف العام"),L9)) ss.xlsx

سبب المشكله نسخه الاوفيس عندك ٦٤ بت يمكنك الاستفاده من هذا الموقع For code to run in 64-bit versions of Microsoft Office, all Declare statements must include the PtrSafe keyword, and all data types in the Declare statement (parameters and return values) that need to store 64-bit quantities must be updated to use LongLong for 64-bit integrals or LongPtr for pointers and handles. ودى الترجمه لتشغيل التعليمات البرمجية في إصدارات 64 بت من Microsoft Office ، يجب أن تتضمن جميع عبارات Declare الكلمة الأساسية PtrSafe ، ويجب تحديث جميع أنواع البيانات في بيان Declare (المعلمات وقيم الإرجاع) التي تحتاج إلى تخزين كميات 64 بت لاستخدام LongLong لتكاملات 64 بت أو LongPtr للمؤشرات والمقابض.

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

ههههههههههه انت قدها وقدود بشمهندسنا العزيز ثم اننى لا اطمع سوى فى دعوه تنفعنا يوم لاينفع مال ولا بنون وهذه مشاركتى معك فى نفس الاستعلام مباشره test22_3.accdb

إضافة أخيرة للموضوع جمع بين تنسيق جمع السنين "0000-0000" واستخدام القائمة بدلا من الاستعلام أو الجدول. هذه الإضافة للموضوع وليس لصاحب الموضوع 🙂 MissingYears_05.rar

بسم الله الرحمن الرحيم احبابنا في الله ادعو الله ان تكونوا بخير وبعد : هذا ملف به اكواد جمعتها وهذبتها لتكون مرجعا لمن اراد كودا من اكواد الترحيل او الاستدعاءات *** ففيه كود استدعاء بيانات صفحه لصفحه اخرى بشرط والشرط موجود في الخليه C1 في هذه الصفحه === *** وفيه كود استدعاء اعمده معينه بدون شرط ==== وفيه كود استدعاء اعمده معينه بشرط داخل الكود === وفيه كود استدعاء اعمده معينه بشرطين من خارج الكود === وفيه كود استدعاء بيانات اعمده معينه بشرطين موجودين داخل الكود وكل كود في صفحه واسطره مشروحه حتى يسهل فهمها وتطويعها لملفاتكم جزاكم الله خيرا إدعوا لكل من كانت له بصمه في هذا العمل بالخير المرجع في الاستدعاءات والترحيل.rar

جرب الكود التالي ليعمل مع أي خلية نشطة Sheets("Sheet1").Range("" & Mid(ActiveCell.Address, 2, 1) & "" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Select

أخي الحبيب جرب الكود التالي هذا للعمود A يمكنك تغيير العمود كما تريد Range("A" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Select