Ali Mohamed Ali

وعليكم السلام استاذى الكريم كان عليك استخدام خاصية البحث فى المنتدى فهناك العديد من الموضوعات تناولت هذا الموضوع ومنها : https://www.officena.net/ib/topic/63893-تمكين-وحدات-الماكرو-تلقائياً/?tab=comments#comment-415011 https://www.officena.net/ib/topic/82750-ممكن-مساعدة-في-تمكين-وحدات-الماكرو/?tab=comments#comment-526618 كما يمكنك ايضا زيادة على هذا وضع هذا الكود فى حدث This Workbook Private Sub Workbook_Open() MsgBox "Welcome to Officena" End Sub وهذا ايضا موقع خارجى https://www.extendoffice.com/documents/excel/2675-excel-enable-disable-macros.html جزاك الله كل خير

أحسنت استاذ طارق حل ممتاز بارك الله فيك وجعله فى ميزان حسناتك

ضع قبل معادلة Vlookup IFERROR لتصبح المعادلة مثلا هكذا =IFERROR(VLOOKUP(B3,$C$1:$D$10,2,0),"")

بالضغط على حرف الكاف بالعربى من الكيبورد ولكن عندما تقوم بتحويل الكتابة على الكيبورد للغة الإنجليزية

تفضل اخى الكريم لابد من استخدام خاصية البحث فى المنتدى فهناك العديد من الموضوعات تناولت هذه الجزئية ومنها : https://www.officena.net/ib/topic/86483-تجميع-مجموع-بيانات-في-ملفات-اكسل-في-ملف-واحد/?tab=comments#comment-548015 https://www.officena.net/ib/topic/84955-تجميع-البيانات-اكثر-من-شيت-الى-شيت-واحد/?tab=comments#comment-538880 https://www.officena.net/ib/topic/84474-طلب-مهم-في-إكسل-بخصوص-تجميع-البيانات-من-عدة-مصنفات-وكل-مصنف-يحتوى-على-مجموعة-ورقات/?tab=comments#comment-536456 وهناك اكثر من هذا لو بحثت بارك الله فيك

وعليكم السلام تفضل هذا من أعمال استاذنا الكبير محمد الدسوقى له منا كل المحبة والإحترام وجعل الله هذا العمل فى ميزان حسناته تغيير شكل الماوس عند الفورم.xlsm

تفضل zzzzzz.xlsx

اخى الكريم لماذا لا تستخدم خاصية البحث فى المنتدى فقدتناولنا هذا الموضوع من قبل-تفضل https://www.officena.net/ib/topic/17264-كيف-يتم-ربط-صفحة-ويب-بالاكسل-مع-التحديث-التلقائي/ وهناك مواقع ايضا خارجية وفيديوهات للشرح : https://www.extendoffice.com/ar/documents/excel/5020-excel-connect-to-website.html https://www.youtube.com/watch?v=jrvUAZkO5Vc https://www.youtube.com/watch?v=hzNjeqbl8kI https://www.youtube.com/watch?v=WZE1mcH_-V4

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

اخى الكريم هذه المشكلة من عندك انت وليس انا لأنك قمت بكتابة اسم مخالف لما هو وارد بالقائمة المنسدلة وغير مساوى له لذلك قمت بعمل نفس القائمة المنسدلة ايضا فى صفحة يومية الصندوق لإختيار الإسم من القائمة عند إدخال البيانات الجديدة واذا كان هناك وجود لإسم جديد غير موجود بالقائمة عليك فقط اضافته فى العمود Q من صفحة يومية الصندوق وسيضاف الإسم الجديد مباشرة الى القائمة ملحوظة : لا تنسى ان هذه المعادلات صفيف -بمعنى لابد من الضغط على Ctrl+Shift +Enter وليس Enter فقط كباقى المعادلات تفضل التعديل التعديل الرابع.xlsm

تفضل 123-1.xlsx

وعليكم السلام تفضل تم الحل بمعادلات الصفيف بعد عمل القائمة المنسدلة التعديل الرابع.xlsm

اخى الكريم أحمد هناك اكثر من كود كما ان هناك أثر من 4 يوزرفورم لا ينفع نقلهم جزاك الله كل خير

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

اهلا بك اخى الكريم فى المنتدى اجعل دائما عنوان المشاركة دليل على ما تحتاج وتريد يمكنك ضغط الملف ورفعه او ممكن تقوم بتحميل هذا البرنامج وتسطيبه لفك كلمة سر الملف Passware Kit Forensic 13.5

اذا لم تكن هذه المعادلة الموجودة بالملف هى المطلوبة يبقى مازال هناك غموض فى طلبك ويجب عليك توضيح طلبك على الملف ببعض النتائج المطلوبة بالتفصيل بارك الله فيك درجة الامتحان.xlsx

على الرغم انك لم تقم برفع ملف فجرب هذا الملف لعله يفيدك قائمة منسدلة بدون تكرار مع إمكانية البحث داخل القائمة.xlsx وهذا ملف اخر ومع فيديو للشرح https://www.youtube.com/watch?v=TYSxuXtp1B0 البحث بمجرد كتابة اول حرف فى القائمة المنسدلة.xlsx

أولا هتقوم بالضغط على Alt F11 هتفتح لك شاشة اختر من قائمة Insert Module ثم بعد ذلك قم بلصق هذا الكود به Sub UNHIDE_BLANK() ActiveSheet.Range("$B$4:$K$33").AutoFilter Field:=1 Selection.AutoFilter Range("B4").Select End Sub ثم بعد ذلك اذهب لصفحة الإكسيل ومن قائمة Developer اختر Insert ثم بعد ذلك اختر شكل Command Button ثم بعد ذلك عمل دبل كليك عل هذا الشكل ووضع هذا الكود بالصفحة التى ستفتح Private Sub CommandButton2_Click() Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Application.EnableEvents = False ActiveSheet.PrintPreview UNHIDE_BLANK Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Application.EnableEvents = True End Sub

قمت بالتعديل على هذا الكود بناءا على رأى حضرتك فى ان اهم صفحة هى صفحة الخزينة ولا يهم الأحتفاظ بالبيانات فى باقى الصفحات بارك الله فيكم

أخى الكريم انت تختار الإسم من قائمة منسدلة بجميع الأسماء

وعليكم السلام اخى الكريم تفضل لك كل ما طلبت تركات تعديل.xlsm

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

تفضل لك ما طلبت ترحيل من عدة شيتات الى شيت واحد2.xlsm

وعليكم السلام تفضل لك ما طلبت ايرادات الروضة معدل.xlsx

تم عمل كود بصفحة Data لجلب التاريخ كما انه تم عمل كود ايضا للطباعة فى صفحة Search2 ,وبهذا اعتقد ان كل الطلبات تمت ولا يوجد شيء اخر بحث3.xlsm