جلال الجمال_ابو أدهم

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / أبوعبد الله مرفق الملف ENGLISH_FUNCTION.rar و لا تنسونا من صالح الدعاء تحياتى

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

طلعت محمد حسن أبو حنــــين الاخوة الافاضل ان امكن التعديل تحياتى

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

تحياتى مرفق كود بحث و اضافه لـ أ / عبدالله باقشير بالمشاركة_ فورم بحث مرن بامكانك استخدامه بدلا من القائمة المنسدلة و يقوم باضافة ناتج البحث فى اى خلية نشطه مختارة فى كامل الشيت و مطلوب تعديل على الكود على ان يكون اضافة البحث فى اى خلية مختارة ( فى اعمدة معينه ) مثلا فى العمود A و H و J فى SHEET2 تحياتى مرفق الملف بحث.rar

أبو عبد النور اخى الفاضل شكرا لاجتهادك و جزاك الله خيرا و سيتم اعادة الرفع للمحاولة مرة اخرى

تحياتى و ايام مباركه مرفق كود بحث و فلترة بيانات منقول و تم تطبيقه على الملف المرفق للاستفاده و يمكن تعديل على الملف باعادة تسمية رؤوس الاعمدة بالصف A3 و تسمية المقابل Option Button Form مرفق الملف search_gadham_clear.rar و لا تنسونا من صالح الدعا ء تحياتى

أبو عبد النور تحياتى الملف لا يفتح و يقوم بغلق الاكسيل

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

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

أبو عبد النور اى خلية نشطة مختارة فى الاعمدة A و H و J فى SHEET2 تحياتى

تحياتى مرفق كود بحث و اضافه لـ أ / عبدالله باقشير بالمشاركة_ فورم بحث مرن بامكانك استخدامه بدلا من القائمة المنسدلة و يقوم باضافة ناتج البحث فى اى خلية نشطه مختارة فى كامل الشيت و مطلوب تعديل على الكود على ان يكون اضافة البحث فى اى خلية مختارة ( فى اعمدة معينه ) مثلا فى العمود A و H و J فى SHEET2 تحياتى مرفق الملف بحث.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة ترقيم تلقائي لأوراق العمل تم ارفاق كود الحل من الفاضل ا / سليم حاصبيا مرفق الملف Add_sheets.rar تقسيم الصفحة مع تكرار العناوين وإضافة إجمالي لكل صفحة مرفق الملف sub total loop.rar مشاركة من أ / الزباري auto_sum.rar و لا تنسونا من صالح الدعاء تحياتى

طلعت محمد حسن اخى الفاضل جزاك الله خيرا ما شاء الله عليك تحياتى :))))))))))))))))))))))))))متابع

مجدى يونس اخى الفاضل جزاك الله خيرا

سليم حاصبيا اخى الفاضل جزاك الله خيرا تحياتى

الزباري الله ينور عليك تحياتى

طلعت محمد حسن ما شاء الله عليك موضوع موضوعات رائعة من انسان اكثر من رائع تحياتى

تحياتى تابع موضوعك من هنا مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_اكواد و فورم منفصله_صفحة العمل_الطباعه و التنقل بين الصفحات و الهايبر لينك

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة listview تم ارفاق كود الحل من الفاضل ا / أبوعبد الله مرفق الملف listeview_1.rar listeview.rar و لا تنسونا من صالح الدعاء تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة برنامج ترحيل ماشئت من صفحات و تم تعديله بالمشاركة لماذا لايقبل معي اسم لشيتات برقم فقط من14 خانة و البرنامج من اعمال الفاضل _ أ / عبدالله باقشير مرفق الملف برنامج ترحيل ماشئت من صفحات _ معدل من _ أ / أبوعبد الله برنامج ترحيل ماشئت من صفحات _ بدون تعديل برنامج ترحيل ماشئت من صفحات و لا تنسونا من صالح الدعا ء تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة اخفاء تلقائي للصفوف تم ارفاق كود الحل من الفاضل ا / أبوعبد الله مرفق الملف إخفاء الصفوف والأعمدة الفارغة عند الطباعة فقط وبعد الطباعة يعود الوضع لما كان عليه HIDE_UNHIDE_EMPTY_ROWS_AND_COLUMNS_IF_PRINT.rar اخفاء الصفوف والأعمدة الفارغة HIDE_UNHIDE_EMPTY_ROWS_AND_COLUMNS.rar مشاركة اخرى من الفاضل أ / عادل حنفي الكود الذي به هو Private Sub CommandButton1_Click() With Sheets("Sheet1") With .UsedRange For i = 3 To 41 If .Cells(i, 8).Value <= "0" Then .Cells(i, 8).EntireRow.Hidden = True End If Next i End With End With End Sub و هذا الكود يعني انه بالورقة التي تسمي شيت1 بالصفوف من الصف الثالث و حتي الواحد والاربعون اذا كانت الخليه التي احداثيها الصف 3 العمود 8 او الصف الرابع العمود 8 وهكذا قيمتها اصغر من او تساوي صفر اذا تحقق هذا الشرط اخفاء الصف الذي به هذا الشرط محقق وهكذا لاخر صف وهو صف 41 مرفق الملف hide.rar و لا تنسونا من صالح الدعاء تحياتى

طلعت محمد حسن اخى الفاضل الله ينور عليك مستيين اضافة جديده على الموضوع مش معقوله كده تعالى نزود الموضوع خطوه صغيره تحياتى استعمال الدالة_with_print VLookup في البحث باستخدم الكود.rar

أبو حنــــين الزباري الاخوه الافاضل جزاكم الله خيرا تحياتى متابعين