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

وانت بالف خير تفضل اخي العزيز filter1.rar

وهذا تعديل مع الكود تبعك .... اختر ما شئت ... ومع العايدين Dim db As DAO.Database Dim rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("Clients") If Me.txtnomclien <> "" Then If rrr(Me.txtnomclien) = False Then rs.AddNew rs!nomComplet = Me.txtnomclien rs!Societé = Me.txtsociete rs!Adresse = Me.txtadresse rs("Tel") = Me.txttel rs!Email = Me.txtemail rs!Ville = Me.txtville rs.Update rs.Close Set rs = Nothing DoCmd.Close acForm, Me.Name 'DoCmd.Requery Else MsgBox "ce client existe deja", vbInformation Me.txtnomclien.SetFocus End If Else MsgBox "remplir le champ nom de client", vbCritical End If

جرب هذا الكود مع تعديل مسار وجود قاعدة الجداول Dim dbCurrent As DAO.Database Dim recCategories As Recordset Set dbCurrent = OpenDatabase("C:\Users\ACER\Desktop" & "\Nouveau Microsoft Access Base de données.accdb", False) Set recCategories = dbCurrent.OpenRecordset("select * from Clients") With recCategories .AddNew !nomComplet = Me.txtnomclien '!Time = Time .Update End With recCategories.Close dbCurrent.Close Set dbCurrent = Nothing

بعد اذنك أخي واستاذي ابو فريد .... هذه طريقة أخرى 11 (1).mdb

الملف ليس فيه افكار لاقتباسها وانما هي جداول واستعلامات فقط فكيف تطبق الفكرة على برامجك ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ليس في الملف بيانات حساسة لذلك نترك الامر للمشرفين

Warning = MsgBox("أنت الآن على وشك حذف السجل الحالي فهل أنت واثق من رغبتك في الحذف", vbYesNo + vbQuestion, "تحذير") If Warning = vbYes Then DoCmd.SetWarnings (False) ضع الكود السابق هنا DoCmd.SetWarnings (True) Else DoCmd.CancelEvent End If

وعليكم السلام لحساب عدد الشيك استخدم هذا الكود =Sum(IIf([غياب]=-1;1;0)) وغياب هو اسم الحقل عندك لحذف السجلات المختارة استخدم هذا الكود CurrentDb.Execute "DELETE * FROM L WHERE [غياب] = true" Me.Requery حيث L هو اسم الجدول لديك

بعد اذن حبيبي سليم للاثراء =SMALL($B$2:$B$14;COUNTIF($B$2:$B$14;"<"&E2)+1) تجريبي 2.xlsx

جرب هذا الملف Tajribi_2.xlsm

ممكن كدا .... R_MultiHead.accdb R_MultiHead.accdb

وعليكم السلام 🙂 يجب ان تعطي الامر بالكامل علشان تحصل على النتيجة المطلوبة ، وعلشان الكود ينكتب بالطريقة الصحيحة ، خلينا نستخدم هذه الاسماء بالانجليزي كمثال: حالة الخدمة= H_Service منقطع = Temp فيكون الكود : Sum_Filed: Sum(iif([H_Service]="Temp",1,0) يعني اذا قيمة الحقل = Temp اجمع لنا 1 (لأن العدد واحد لكل شخص) ، بالعربي المعادلة تنقلب (لهذا السبب فإنه لا يُنصح بإستخدام مسميات عربية في اي من كائنات الاكسس) : . والنتيجة بعد التعديل: . . جعفر AA1.zip

وعليكم السلام 🙂 استعلامين ، وانت اختار اللي تريده : . . جعفر 1226.dtb1.accdb.zip

أخي @Barna اذننا دائما معك ماشاء الله فعلا طريقة جيدة

اسمح لي استاذي @kanory اجاوب ... اخي الحبيب @احمد الفلاحجي في الكود الاول تم الاتصال بالقاعدة الخارجية مباشرة دون النظر الى الجداول المرتبطة ... فلذلك احتجنا كتابة مسار القاعدة المطلوبة اما في الحالة الثانية كان اخي السائل @rey360 كاتب الكود على اساس الاتصال بالقاعدة الحالية فلذلك لم يكن يحتاج لمسار القاعدة الخارجية ... ولكنه عرف المطلوب انه جدول وليس جدول مرتبط فلذلك الكود كان يدور ويبحث عن اسم الجدول Clients ولا يجد ... فقام اخي kanory بحذف عبارة dbOpenTable ارجو اني اوصلت الفكرة انا اضعف منك في اللغة ولم ادرس البرمجة وتحصصي بعيد جدا عن الحاسب ومجالاته .... والحمد لله رب العالمين بفضل الله ثم امثالكم من اساتذة المنتدى تعلمنا بالاضافة لشيئ مهم وهي عملية التطبيق .... بارك الله فيك .... واكرر معذرتي لاخي @kanory

وعليكم السلام-يمكنك استخدام هذه المعادلة =COUNTIF($C$7:$C$12,E$6) تواتي 221.xlsx

ما شاء الله اخي Kanory وكل عام وانت بخير

السلام عليكم اخواني الاعزاء كل عام وانتم بخير اشكر ادارة الموقع علي هذه الثقة الكبيرة وادعو الله ان اكون عند حسن ظنهم اشكر من شرفني بالتهنئة jjafferr kanory ابوخليل ابو تراب kha9009lid أحمد الفلاحجى فايز warvin raviny انا عضو في هذا الموقع منذ زمن طويل لجأت اليه كثيرا في مشكلات واجهتني في اعمالي وكان وما زال ملجأ وملاذ لحل المشكلات المتعلقة بالاكسيس وكنت دائما انظر لفريق الموقع والخبراء باحترام شديد لعلمهم الوافر وسعة صدرهم مع المبتدئين امثالي وتمنيت ان اصبح فردا من ضمن هؤلاء الافذاذ كل التقدير والاحترام لفريق الموقع ولكل الخبراء والاعضاء وزوار الموقع

وعليكم السلام ممكن توضيح اكثر استاذ زوهير

كل عام والجميع طيبيين وبخير برنامج دول وعواصم افريقيا تعديل روابط التحميل برنامج دول وعواصم افريقيا رابط البرنامج على موقع Top4top وشغال كويس https://top4top.io/downloadf-1608vsi831-rar.htm

بسم الله الرحمن الرحيم قواعد المشاركة بمنتدي أوفيسنا المنتدى مثله مثل أي عمل جماعي لابد أن تكون هناك أسس واضحة للمشاركة فيه، يقرها ويلتزم بها جميع الأعضاء للحصول على الفائدة العامة. وقبول العضوية بالمنتدى تعني ضمناً الموافقة على قواعد المشاركة المعتمدة به. هذه الوثيقة تشمل قواعد طرح الاسئلة التي يرجي مراعاتها لضمان الحصول على أفضل نتيجة، وهذه القواعد لم توضع بهدف تسلط أو تعقيد، وإنما الهدف منها تحقيق المنفعة العامة من المنتدى، وان لم تمثل الوضع المناسب لجميع المشاركين في جميع المواقف، يجب أن يتم الالتزام بما ورد فيها بصورة كاملة، ومخالفة قواعد المشاركة تعرض المشاركة للإلغاء وفي حال تكرار المخالفة قد يتعرض المخالف لعقوبات تصل لإيقاف العضوية. وأخيرا وقبل أن نعرض إلى القواعد، ندعو الله أن يكون ما يبذل من جهد من الجميع هنا من باب "علم ينتفع به "، فكما قال رسول الله صلي الله عليه وسلم: (إذا مات الإنسان انقطع عنه عمله إلا من ثلاثة: إلا من صدقة جارية. أو علم ينتفع به. أو ولد صالح يدعو له). قبل كتابة موضوع جديد 1. استخدم البحث في المنتدى قبل وضع سؤالك فقد يكون مكررا. وذلك لتفادي عواقب التكرار وأهمها أن تكرار الموضوع سيصعب المهمة على من يبحث بعدك كما أنه يمكنك توفير جهد الأعضاء للإجابة على موضوع آخر لم يطرح سابقاً. 2. يتم طرح السؤال باللغة العربية الفصحى لأنها مفهومة للجميع، وتجنب استخدام اللهجات المحلية 3. تأكد أن طرح سؤالك في المكان المناسب لتحصل على أفضل إجابة، لا تسأل في المنتدى العام عن مشكلة في الاكسيل. وإذا كنت تريد الإعلان أو طلب برنامج بأجر أو بمقابل مادي فيجب نشر موضوعك بقسم إعلانات شخصية بأجر للأعضاء. عنوان المشاركة 4. يجب أن يكون عنوان المشاركة يدل على محتواها 5. أن لا يحتوي على عبارات مثيرة مثل " النجدة "، "الحقونا 6. يمنع منعا باتا توجيه السؤال إلى شخص بعينه لان هذا قد يدفع الآخرين إلى عدم الإجابة، والهدف هو التفاعل من الجميع. 7. يرجى إضافة الكلمات المفتاحية تحت العنوان لتسهيل الوصول إلى الموضوع من خلال عملية البحث لاحقاً، كما أن المنتدى يظهر بطريقة آلية المواضيع الشبيهة تحت الموضوع بناء على الكلمات المفتاحية المسجلة. محتوى المشاركة 8. يجب ذكر كافة المعلومات التي من الممكن أن تُسأل عنها، مع الشرح الوافي للمشكلة لأن الشخص الذي تكتب له ليس ملما بالمشكلة مثلك. ويحبذ وضع مثال للنتيجة التي تريدها (سواء كملف مرفق باستخدام البرنامج المطلوب كالاكسيل او الأكسيس مثلا، او صورة توضيحية، أو تفصيل المطلوب بشرح وافي)، ويجب ان تكون بيانات المثال نابعة من نفس بيانات المرفق كي بمكن الربط و الفهم بسهولة. 9. بخصوص التسميات، يُفضل أن تكون أسماء الكائنات والحقول بالإنجليزية، لان العربية تحدث فيها مشاكل مع الأكواد. 10. اذكر في محتوى مشاركتك عن المجهود الذي قمت به لكيلا يأتيك رد قد قمت بمحاولة تنفيذه بالفعل. 11. ممنوع طرح أكثر من سؤال في موضوع واحد ليسهل البحث عن المواضيع لاحقا. 12. يمنع وضع سؤال لا علاقة له بالموضوع الموضوع فيه التساؤل أو ليس له مناسبة في وضعه معه. 13. - يمنع وضع السؤال داخل المرفق، يجب شرح السؤال بالتفصيل لتعم الفائدة، ولا مانع من اضافة صورة توضيحية 14. - يجب عند الرد، عدم الاكتفاء بإضافة مرفق بالحل، بل يجب التوضيح و الشرح، و اضافة الكود المستخدم (إن وجد) ، بالإضافة للمرفق، و ذلك لتعم الفائدة 15. يفضل عدم طلب عمل برنامج فهذا المنتدى للتبادل العلمي، وليس للبحث عن البرامج الجاهزة، ولكن ابدأ بالعمل واطرح المشاكل التي تواجهك (بعد البحث في المنتدى منعا للتكرار). وما سبق طرحه من برامج يمكنك الوصول إليها باستخدام البحث، ويفضل ألا تخصص مشاركة لهذا الغرض وإن كان ذلك متاح لكن ممنوع الإلحاح في ذلك. 16. عدم طرح أي اقتراح بخصوص المنتدى أو شكوى في الأقسام العامة، فهناك قسم مخصص لذلك المرفقات 17. إذا لم يكن السؤال يسهل فهمه عن طريق الشرح فقط، يجب إرفاق مثال. 18. المرفقات يجب تحوي مثال مبسط وعينة كافية من البيانات بحيث تعم الفائدة دون الحاجة لتحميل ملفات كبيرة الحجم 19. تجنب نشر بيانات حقيقية يخشى نشرها ويمكن أن تطلب حذفها لاحقاً. المحظورات 20. يمنع منعا باتا نشر أية موارد تخالف حقوق الملكية الفكرية بما في ذلك الكتب والكراك وتبادل السيريال، والمخالفة تعرض المشاركة للإلغاء والعضوية للإيقاف. 21. يُمنع منعا باتا الإجابة على سؤالك أو أي حوار فني على الخاص أو إلى بريدك الخاص، الفائدة يجب أن تعم. يجب عدم الاستجابة لأي طلب على الخاص. كما يمنع ذكر وسائل التواصل الخاص أو البريد الإليكتروني في المشاركات لتعم الفائدة. وسيتم حذف وسائل التواصل أو البريد حال إضافتها. 22. يتم حذف أي مشاركة تحتوي على الفاظ وعبارات وأعمال مخالفة للشرع أو الأخلاق العامة أو التي تحوي عبارات عرقية أو دينية أو أي عبارات قد تجرح مشاعر الآخرين. مع إيقاف صاحب المشاركة نهائياً، وحجب البريد المسجل به. متابعة المشاركات 23. ممنوع نهائيا وبشكل قاطع تكرار الموضوع نفسه أو فتح موضوع جديد للمطالبة برد في موضوع سابق، كما يمنع منعا باتا ذكر أكثر من سؤال في نفس الموضوع، وهذا لكي يسهل البحث والحصول على المعلومة على من بعدك. 24. إذا كان الموضوع استكمالا لموضوع موجود مسبقا في الأرشيف فيرجي وضع رابط الموضوع الذي تريد استكماله أو الإضافة عليه لتسهل على الجميع الوصول إلى الموضوع المشابه. الإشارة لمواقع أخرى 25. لا تأخذ مواضيع أو ردود آخرين وتنسبها لنفسك.. هذه سرقه، إذا كنت قد اقتبست، أذكر أسم صاحب الموضوع، أو على الأقل اذكر أن الموضوع منقول. 26. يمنع الرد على الاستفسارات عن طريق الإشارة لموقع آخر، يجب وضع الحل كاملاً هنا ويمنع أن تكون الإجابة عن طريق الإشارة لموقع آخر فقط. ولا مانع من نشر اسم المصدر دون وصلة في نهاية الرد بعد وضع الرد والشرح كاملاً بعد المشاركة 27. لا تتوقع أن يجاب على سؤالك خلال ساعات قليلة، لكن تأكد أولا تأكد سؤالك يستحق الإجابة (غير مكرر، ويوفر معلومات كاملة).. أحيانا يحتاج من يجيب للوقت لجمع معلومات عن الإجابة 28. إذا تأخرت الإجابة فمن حقك الاستعجال فقط بإضافة عبارة "للرفع" على فترات متباعدة بدون أي عبارات أخري لا داعي لها. 29. يجب أن يكتب صاحب الموضوع في حالة حل مشكلته أن المشكلة قد حلت ليتوقف الأعضاء من الاستمرار في حل المشكلة. 30. من الجميل أن تتبع الإجابة عن سؤالك بشكر لمن ساعدك، وبإخبار عن النتيجة، العديد يتابع الأسئلة، ويود أن يعرف عن النتيجة، فمن واجب السائل أن يشكر من حاول مساعداته بالنقر على زر الإعجاب، وأن يختار خيار أفضل إجابة ليعرف الجميع أن موضوعه قد تم حله بطريقة مرضية. 31. على الجانب الآخر إذا لم يأتيك شكر على موضوع قدمته، فنرجو اعتبار كل قراءة من قراءات الموضوع باقة ورد وشكر لك من المشرفين والأعضاء، ونذكرك بأن الموضوع لا تقتصر فائدته علي من قرأوه في وقته فقط، ولكن تصل إلى كل من يبحث لاحقا في المنتدي وهم ان شاء الله أضعاف من يقرأه في وقته، ونسأل الله عز وجل أن يضاعف لك الجزاء عن كل من يستفيد منه. حذف وتنقيح المشاركات 32. ما يتم نشره ويتفاعل الأعضاء معه لا يمكن طلب حذفه، فبنشره يصبح ملكية عامة. 33. إذا كانت المشاركة تحوي بيانات خاصة فلا تنشرها واستبدلها ببيانات غير حقيقية، حتى لا تطالب بحذف المشاركة لاحقا. 34. يتم تنقيح المشاركات دوريا وحذف المشاركات غير المجدية، ودمج ما يلزم من مشاركات. أسماء الدخول للموقع و الأسماء الحقيقية 35. يرجى مراعاة تجنب الأسماء أو الكنيات الغريبة فيما يخض إسم الدخول للموقع User Name 36. يفضل كون اسم الدخول باللغة العربية و عدم استخدام الأسماء الغريبة او غير المعتادة سواء باللغة العربية أو غيرها. 37. يرجى من الجميع اضافة الاسم الحقيقي باللغة العربية فى الحقل المناظر، والهدف هو تسهيل التواصل الفعال بين الأعضاء ، و ان تعذر فيتم اختيار كنية باللغة العربية فى مكان الاسم الحقيقي. 38. سيتم تعديل أي أسماء دخول أو أسماء حال مخالفتها للذوق العام أو احتوائها على أي إيحاءات غير معتادة. لمعرفة كيفية تعديل الإسم أو إسم الدخول يرجى مراجعة هذا الموضوع وأخيرا يرجى الالتزام التام بقواعد المشاركة وفي حال وجود اقتراحات إضافية بشأن القواعد، يمكن إضافة الاقتراح في قسم الاقتراحات بالمنتدى وسيتم دراستها تباعاً.

السلام عليكم 🙂 وهذه عيدية العيد لنا 🙂 شكرا للاخوة الاخوة @اشرف و @Gamal.Saad لكل ما تبذلوه ، مبروك لكم الترقية 🙂 جعفر

حياك الله اخوي ابو عمار 🙂 ممتاز ، ولكنه كذلك يستعمل جدول مؤقت 🙂 جعفر

الى الان الصورة ليست واضحة بالنسبة لي .. لعل احد الاخوة يفيدنا

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

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

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

الف مبروك و الى الأمام دائما بإذن الله 🌼

عيدك مبارك يعني المطلوب اخفاء ت1 مثلا واظهار ت2 وهكذا .... وضح لو تكرمت

السلام عليكم هذا هو الخلل الذي تم تصحيحه في النسخة الأخيرة في المرفقات (الملف الذي اسمه CHQ(1).xlsm)... المشكل الوحيد الذي لم أستطع حتى الآن تصحيحه هو عند طباعة معلومات الصك لا تنطبق هذه المعلومات على ورقة الصك (باعتبار أن الطباعة لا تتم من الفورم مباشرة كما يظهر قبل الطباعة بل من ورقة إكسيل مخفية تم تحضيرها لهذا الغرض)، ولا زلت بصدد العمل عليه...

AA1.mdb

تم تجريب ملف الأخ ببن علية حاجي في مشاركته الأولى على اووفيس 2016 و 2019 و الملف يعمل جيدا 100/100. ربما المشكل عندك أاخي وادي سلي. حاول اررسال صورة للخطأ و ان شاء الله سنجد لك الحل

اشكرك اخي ابو بسملة على هذا الحل الرائع والمختصر اعذرني على عدم مشاهدتي لردك الكريم وذلك لعدم ملاحظتي لوجود رد من قبلك اكرر شكري لك حتى لا يذهب مجهودك بدون شكر

طبعاً وبالتأكيد لم تصل الفكرة نهائيا وبكده اعتذر عن مساعدتك فكما يبدو لنا انك لا تريد حل مشكلتك لأنك حتى لا تفكر فى تلبية طلباتنا حتى يتم مساعدتك واقل شيء كما قلت لك عليك بوضع شكل النتائج المرجوة بالملف فتم تغيير تاريخ الكمبيونر كما قلت الى 30/06/2020 ثم الضغط على F9 ولكن كما ترى للأسف لم يتغير اى شيء ولم افهم ما تريده نهائياً

الف مبروك للأساتذة @Gamal.Saad و@اشرف على الترقية موفقين ان شاء الله 🌹🌹.

يا فرحة العيد الف مبروك للاساتذه @Gamal.Saadو @اشرف

بالخدمة استاذي العزيز

أخي الكريم husamwahab شكرا لك تمت الاستفادة بالتطبيق ومعرفة نقاط الضعف عندي بارك الله في علمك

شكراً لاستاذنا جعفر على العيدية المميزة والف مبروك للاخوة الافاضل @اشرف و @Gamal.Saad على الترقية راجياً من الله للجميع دوام التوفيق تحياتي

الف مبروك لكل من :- استاذ Gamal.Saad استاذ اشرف دوام يارب التوفيق و التقدم كل تحياتى

تمام ....... أيها الأستاذ المحترم بارك الله فيك

انظر للتقرير St_Jloss_Qury مع العلم أن هناك غموض في طلبك .. وحتى يكون الأمر واضحا .. أضف في الجدول جميع الحقول التي تريد . أنت طلبت السؤال : أين هو حقل المادة في الجدول ؟؟؟؟؟ وهنا تقول : ثم بعدها تقول وكيف تكون طريقة ادخال البيانات ؟؟ هل هي عن طريق الجدول مباشرة ؟؟ أم عن طريق نموذج ؟؟ توزيع.mdb

كل المعادلات عادية (بدون CTRL+SHIFT+ENTER) اذا اردت ان يكون تاريخ البداية والنهاية ضمن المجموع =SUMPRODUCT(($D$4:$D$13<=$I$4)*($D$4:$D$13>=$G$4)) اذا اردت ان لا يكونا ضمن المجموع =SUMPRODUCT(($D$4:$D$13<$I$4)*($D$4:$D$13>$G$4)) اذا اردت ان يكون احدهما ضمن الموحوع ( الأصغر فقط أو الأكبر فقط) =SUMPRODUCT(($D$4:$D$13<=$I$4)*($D$4:$D$13>$G$4))

مشاركة مع الاخوة الاحبة ..... عسى أن يكون الكود قصيرا .... تفضل Aziz (2).rar

لا والله اخي احمد لكن فعلا ويندوز 10 افضل بمراااااااحل بعطيك ميزة اخرى امس او قبل اسبوع او اكثر فتحت ملفات كثيرة واليوم تريد الرجوع لاحد الملفات ونسيت اسمه لا مشكلة بكل سهول انقر على الايقونة ويظهر لك عملك والملفات التي عملت عليها كل يوم على حده يكفي ولا نزيد 😃

السلام عليكم اخي ابو معاذ هذه المشكلة بسبب الأداة ( treeview) والمكتبة التابعة لها والسبب كما بينته انت في اختلاف نسخة وندوز جرب ابحث عن اصدارات جديدة لهذه الأداة ارجوا لك التوفيق ، واخبرنا بالنتيجة

السلام عليكم اخى @f16 مشاركه مع اخى واستاذى محمد @أبو عبدالله الحلوانى جزاه الله خيرا ارفق حل بدون اللجوء الى استعلام التحديد والتجميع وهو بداله Dsum فى استعلام التحديث DSum("num";"request";"item_id=" & [item_id]) اضف سجل جديد بالجدول request لاى رقم من الموجودين بالجدول مثال 101 او 102 ثم استخدم استعلام التحديث يمكن عمل استعلام الحاقى بعد ذلك لاضافه السجلات الجديده بالجدول request للجدول story مع عدم تكرار السجلات المدخله من قبل تقبلوا تحياتى وارجو لكم وللجميع التوفيق والنجاح مثال_اوفيسنا_استعلام_تحديث_من_استعلام_تجميع(1).accdb

جرب هذا الملف (الصفحة Target_sh ) الكود Option Explicit Sub Get_data() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim D As Worksheet, T As Worksheet Dim D_Rg As Range, T_rg As Range, Single_rg As Range Dim RoD%, RoT%, All_ro%, X%, y% Dim Nme$ Set D = Sheets("Data"): Set T = Sheets("Target_sh") Set D_Rg = D.Range("A4").CurrentRegion Set T_rg = T.Range("A3").CurrentRegion RoT = T_rg.Rows.Count If RoT > 1 Then _ T_rg.Offset(1).Resize(RoT - 1).Clear If D.FilterMode Then D_Rg.AutoFilter RoD = D_Rg.Rows.Count Set Single_rg = D_Rg.Offset(1).Resize(RoD - 1) Nme = T.Cells(3, "K") D_Rg.AutoFilter 4, Nme D_Rg.AutoFilter 3, "اجل" y = D_Rg.SpecialCells(12).Rows.Count If y > 0 Then Single_rg.Columns(2).SpecialCells(12).Copy T.Range("A4").PasteSpecial (12) Single_rg.Columns(8).SpecialCells(12).Copy T.Range("B4").PasteSpecial (12) End If D_Rg.AutoFilter D_Rg.AutoFilter 4, Nme D_Rg.AutoFilter 3, "نقدا" X = D_Rg.SpecialCells(12).Rows.Count If X = 0 Then Exit Sub Single_rg.Columns(2).SpecialCells(12).Copy T.Range("C4").PasteSpecial (12) Single_rg.Columns(8).SpecialCells(12).Copy T.Range("D4").PasteSpecial (12) All_ro = T.Range("A3").CurrentRegion.Rows.Count With T.Cells(All_ro + 3, 1) .Value = "المجموع:" .Offset(, 1) = Evaluate("=SUM(B4:B" & All_ro + 2 & ")") .Offset(, 2) = "المجموع:" .Offset(, 3) = Evaluate("=SUM(D4:D" & All_ro + 2 & ")") End With With T.Cells(4, 1).Resize(All_ro, 4) .InsertIndent 1: .Borders.LineStyle = 1 .Font.Size = 13: .Font.Bold = True .Interior.ColorIndex = 38 End With If D.FilterMode Then D_Rg.AutoFilter With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف مرفق Mabieat_Filter.xlsm

اخي عامر تفضل لعله المطلوب لقد قمت بصياغة الملف وتسمية الاوراق بالانجليزي حتى يعمل الكود جيدا Sub copypaste() Dim lastrow As Integer, erow As Integer, sh1 As Worksheet, sh2 As Worksheet Set sh1 = Worksheets("sheet2") Set sh2 = Worksheets("sheet4") lastrow = sheet2.Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To lastrow erow = sheet4.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row sheet4.Cells(erow, 5) = sheet2.Cells(i, 1) sheet2.Cells(i, 1).ClearContents sheet4.Cells(erow, 3) = sheet2.Cells(i, 2) sheet2.Cells(i, 2).ClearContents sheet4.Cells(erow, 7) = sheet2.Cells(i, 5) sheet2.Cells(i, 5).ClearContents Next i ThisWorkbook.Worksheets("sheet4").Columns().AutoFit lastrow = sheet3.Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To lastrow erow = sheet4.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row sheet4.Cells(erow, 2) = sheet3.Cells(i, 1) sheet3.Cells(i, 1).ClearContents sheet4.Cells(erow, 4) = sheet3.Cells(i, 2).Formula sheet3.Cells(i, 2).ClearContents sheet4.Cells(erow, 6) = sheet3.Cells(i, 4) Next i ThisWorkbook.Worksheets("sheet4").Columns().AutoFit End Sub tarheel‬.xls

السلام عليكم ورحمة الله وبركاتةإخواني الاعزاء اقدم لكم ملف مفيد فى تحويل الارقام الى حروف*** المميزات ***هو ان الملف بدون وحدات ماكرو كما انة معد لاستخدام كل العملات العربية والاجنبية يدعم التفقيط بالعربي والانجليزيمهتم باصول اللغة العربية فى الجمع والمثنيهذا الملف يدعم تفقيط 500 رقم مختلف فى وقت واحد واخيرا ارجوا منكم تدعوا لى ولوالدي عسي الله ان ينفعنا بما علمناWithout macros find how to convert 500 numbers into text click here Convert numbers into words.rar

السلام عليكم ... جرب الصيغة التالية: =INDIRECT("[mah]"&SheetsCount(2)&"!"&"D4") التي تقوم بإرجاع قيمة الخلية D4 الموجودة في الورقة الثانية من المصنف mah. ملاحظة : يجب أن يكون المصنف mah مفتوحاً وإلا فإن التعليمة INDIRECT ترجع الخطأ #REF! تحياتي