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

السلام عليكم ألق نظرة على الملف المعدل بالمرفقات إن كان يلبي القليل مما تريده... بن علية حاجي مثال (5).xlsx

السلام عليكم 🙂 اخي@Khalf نتشرف بوجود اسمك مع قائمة خبراء الاكسس 🙂 يسألني البعض عن معيار اختيار الخبير ، وجوابي وبكل بساطة ، ان يشارك بالاجابة ، وكون اجاباته موفقه 🙂 جعفر

تفضل التعديل اخي الكريم عقود خدمات 1.accdb

أهلا @حلبي عنصر تحكم الصورة في أكسس لا يقبل التركيز ولذا فإن (Screen.ActiveControl) لا يمكن أن يعيد قيمة الخصيصة (Tag) الخاصة بالصورة! نحن بحاجة إلى شيء يكون مقبولا مع جميع العناصر.. أجريت التعدل اللازم . الأصناف.zip تجربتي يمكن تعجبك! عند التقر على الصورة، إذا كانت المادة موجودة تزيد الكمية! PRODUCTS.zip

بالنسبة لمشكلة الإرسال فيبدو ان الإرسال يتم قبل أن يتم تصدير الملف pdf لذلك يمكنك استعمال أمر الانتظار قبل تنفيذ الكود الثاني لبعض الثواني باستعمال الأمر wait هكذا Application.Wait DateAdd("s", 5, Now) وبالنسبة لاستبدال while فلا مشكلة لم يستعمل المتغير a في الكود ضع سطر for بدلا من while وضع سطر next بدلا من زيادة المتغير a وبعده loop بالتوفيق

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

السلام عليكم تم عمل المطلوب بمعية عمود مساعد (في Sheet2) والمعادلات في الملف المرفق.... بن علية حاجي عدد المسددين اليوم.xls

السلام عليكم و رحمة الله تعالى وبركاته أساتذة و خبراء منتدانا الغالي حياكم الله أردت أن أنجز عمل بمعيتكم الكريمة . و هو إنجاز سلسلة دروس في vba الأكسس لتقوم إدارة المنتدى من بعد ذلك بتثبيت هذا الموضوع ليطلع عليه كل من يريد التعلم و يبقى صدقة جارية لكل من ساهم فيه و لو بحرف واحد. العمل سوف يقسم إلى مجموعة دروس مثلا : المتغيرات ,الجمل الإختيارية , الجمل التكرارية , الكائنات ......الخ. و سوف نحاول شرح جميع دوال و تعليمات VBA أكسس الموجودة مع إعطاء أمثلة في نهاية كل درس. على أن يتم تجميعه في الأخير مرتبا حسب تسلسل الدروس و لا يتم الإنتقال من درس لآخر حتى نستوفي كل ما نستطيع حول هذا الدرس. العمل المطلوب: كلما نبدأ في درس جديد. يقوم الأساتذة الكرام بتقديم الدوال و التعليمات التي تندرج تحت عنوان هذا الدرس و تقديم شرحها مع وضع مثال بسيط لإستعمال الدالة أو التعليمة على أن لا يتم تكرار الدوال و التعليمات الموجودة مسبقا في الدرس من قبل أحد الأعضاء. و قبل البدء أنتظر إقتراحاتكم فيما يخص طريقة العمل أو ترتيب دروس و عناوينها. و إن شاء الله غدا أو بعد غد سوف نبدأ بالعمل على بركة الله.

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته الاستاذه الكرام ارجو مساعدتي في حل المشكلة الموضحة ادناه بدون كود VBA او ماكرو لوجود نظام حماية على شبكة العمل تعطل عمل اكود VBA او الماكرو وشكراً الشيت الأول ( اسم العميل ناقص) يوجد اسماء عندما تكون ناقصة متشابه ولكن عندما تكتمل تكون غير متشابه وتاريخ ومبلغ متكرر وتم عمل طريقة معادلة التكرار لربط البيانات مع الشيت الثاني لجلب الاسم كامل ورقم الحساب الشيت الثاني يوجد اسم العميل كامل وأرقام الحسابات مشكلتي في ربط التكرار والموشر باللون الأصفر مثال.xlsx

1-تغيير اسم الصفحة الأولى الى Main من اجل نسح الكود بطريقة صحيحة دون مشاكل اللغة العربية 2- الماكرو اللازم عدد (2) Option Explicit Sub From_One_to_ALL() Dim sh As Worksheet Dim Itm, m% Dim Filter_Range As Range Dim AR() Application.ScreenUpdating = False Set Filter_Range = _ Sheets("Main").Range("A1").CurrentRegion m = 1 For Each sh In Sheets If sh.Name <> "Main" Then ReDim Preserve AR(1 To m) AR(m) = sh.Name m = m + 1 End If Next For Each Itm In AR Sheets(Itm).Range("A1").CurrentRegion.Clear Filter_Range.AutoFilter 1, Sheets(Itm).Name Filter_Range.SpecialCells(12).Copy _ Sheets(Itm).Range("A1") Next Application.CutCopyMode = False If Sheets("main").AutoFilterMode Then Sheets("Main").Range("A1").AutoFilter End If Erase AR Application.ScreenUpdating = True End Sub '+++++++++++++++++++++++++++++++++++ Sub Clear_all() Dim sh As Worksheet For Each sh In Sheets If sh.Name <> "Main" Then sh.Range("A1").CurrentRegion.Clear End If Next End Sub الملف مرفق GROUPING_SHEETS.xlsm

لا أفهم الغاية من جعل الاكسل غير مرئي عند فتج الملف 1- يمكنك عمل ذلك على ملفك الحاص لكن ما ذنب باقي المستخدمين لان هذا الكود يطبق على كل الــ ِApplication وبالتالي عدم القدرة على رؤية الاكسل بعد تنفيذ الماكرو حاصة اذا كان المستحدم لا يعرف كيفية اعادة ظهور الاكسل 2-لهذا السبب سوف يحذف الملف من المشاركة

وعليكم السلام-من فضلك إرفع ملف للمطلوب فلا يمكن العمل على التخمين وتجنباً لعدم اهدار وقت كل من يطلع على المشاركة دون جدوى او أهمية أو عليك لزاماً استخدام خاصية البحث بالمنتدى طالما انك لم تقم برفع ملف -تفضل لأستاذنا الكبير ســـلـــيم حاصبــيا لائحة أسماء دون تكرار ومرتبة أبجدياً

افضل طريقة للتصدر الى اكسيل تجدها في الرابط التالي تحياتي

بالتوفيق

الف مبروك اخى @Khalf واعانك الله عليها وتمنياتى لك وللجميع بالتوفيق 💐

الف الف مبروك لاخونا و حبيبنا @Khalf معاً نكمل مسيرة نشر العلم و نتعلم كل ماهو جديد تحياتي

الف مبروك ترقية مستحقة وأعانك الله عليها وبارك الله فيك

الف الف مبروك للأخ @Khalf

مبارك عليك أ. @Khalf شارة الخبراء.. أتمنى لك مزيدا من التألق والعطاء، والتوفق والسداد..

والله تستاهل خبير واكثر منها ـ مبارك عليك اللقب

لحذف السجلات الفارغة ضع معيار null للحقل الفارغ DELETE Table1.*, Table1.id FROM Table1 WHERE (((Table1.id) Is Null)); تحياتي

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

العفو طيب في المعادلة غير H الى G يدويا ان شاء الله تظبط

الحل على السريع تستخدم الدالة SUMIF

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

لف مبروووووك أخي Khalf

الف مبروك مليون مبروك لاخونا الفاضل @Khalf وارجوا من الله لك دوام التوفيق تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تخياتي

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

تم معالجة الامر بالنسبة لزر "حفظ " والباقي فيما بعد لضيق الوقت 1- تم تحسين مظهر اليوزر من حيث التنسيق 2- لا تتم عملية الترحيل الى الشيت الا اذا كانت كل التكست بوكسات (الرقم القومى / رقم الكود/ الاسم / المصروف) غير فارغة نظهر رسالة بعدد التكست بوكسات الفارغة 3- الكود لا يسمح بتكرار البيانات (اي بيانات مكررة يقوم الكود بحذفها على الفور 4- يمكن التنقل والعمل داخل الشيت حتى ولو كان اليوزر ظاهراً 5- جربي وهاتي رأيك YARA_uSER.xlsm

تفضي هذه المشاركة من قبلي الاصناف.rar

بعد اذن الأخ أحمد وزيادة في اثراء الموضوع يمكن استعمال هذه المعادلة =SUMPRODUCT(0+(MOD(COLUMN($B$6:$V$6)-COLUMN($B$6)+1,3)=0),$B6:$V6) الملف مرفق Mhd_Ahm.xlsx

اضغط ESC

عليك السلام ورحمة الله وبركاته تم عمل شرط لكل عنوان إذا كان فارغ لايتم حساب الكمية × السعر جرب هذا New Microsoft Excel Worksheet.xlsx