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

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

سليم حاصبيا اخى الفاضل ما شاء الله عليك تحياتى

طلعت محمد حسن اخى الفاضل ما شاء الله _ اعمال مخمليه ابداعيه تحياتى

قلم-الاكسل(عبدالعزيز) m1808269 بارك الله فيكم تحياتى

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة الخلية الاجبارية تم ارفاق كود الحل من الفاضل _ أ / أبوعبد الله مرفق الملف force to fill.rar و مرفق الكود Private Sub Worksheet_Activate() For Each cell In Range("my_rng") If cell.Value = "" Then MsgBox "fill cell " & cell.Address cell.Select End If Next cell End Sub و يمكن تعديل نطاق الخلايا من تعديل نطاق my_rng و لا تنسونا من صالح الدعاء

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة حماية الاعمدة بضغط علي زر checkbox و مشاركة اخرى لنفس الموضوع حماية مجموعة من الخلايا باستخدام Check Box تم ارفاق كود الحل من الفاضل _ أ / أبوعبد الله بالملف رصد نصف العام.rar و مشاركة اخرى من الفاضل _ أ / هشام شلبى بالملف New ورقة عمل Microsoft Excel (2).rar يمكن تعديل الكود لحماية مجموعة من الخلايا وليس الشيت كله باستخدام الكود Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Selection.Locked = False Range("E7:E1000").Select Selection.Locked = True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ElseIf CheckBox1.Value = False Then ActiveSheet.Unprotect End If End Sub لتتم الحماية على المدى من E7:E1000 مثلا و لا تنسونا من صالح الدعاء

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

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة استخرج فقط الحرف الاول من رقم الصنف تم ارفاق كود الحل من الفاضل _ أ / أبوعبد الله items-1 (abdallah).rar _ أ / هشام شلبى Desktop (hisham).rar _ أ / بن علية حاجي items_2 (haggi).rar و لا تنسونا من صالح الدعاء

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة اخفاء عامود طالما كل الخلايا = صفر او فاضية تم ارفاق كود الحل من الفاضل _ أ / أيسم إبراهيم يوم 25 aysam).rar _ أ / ياسر خليل أبو البراء Baraa (hide zero column).rar _ أ / أبوعبد الله إخفاء الأعمدة الخالية عند الطباعة (1).rar و لا تنسونا من صالح الدعاء

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة هل يمكن ترتيب اسماء شيت الاكسيل ابجدي تم ارفاق كود الحل من الفاضل_ أ / أبوعبد الله ترتيب الأوراق حسب أسمائها (abdalah).rar و مشاركة من الفاضل _ أ / طارق محمود sort_sheets_tarek.rar يتم تشغيله عن طريق Alt-F8 ثم تختار sortsheets RUN Sub sortsheets() Dim sh_name(99), nw_sh(99) As Variant 'Read Sheet names x = Worksheets.Count For i = 1 To x sh_name(i) = Sheets(i).Name nw_sh(i) = sh_name(i) Next i 'Sort Sheet names For i = 1 To x For j = i + 1 To x If nw_sh(j) < nw_sh(i) Then exchg = nw_sh(j): nw_sh(j) = nw_sh(i): nw_sh(i) = exchg Next j Next i For i = x To 1 Step -1 Sheets(nw_sh(i)).Move Before:=Sheets(1) Next i End Sub وهذا للترتيب التصاعدي وللترتيب التنازلي تغير آخر سطور من For i = x To 1 Step -1 Sheets(nw_sh(i)).Move Before:=Sheets(1) Next i إلي For i = 1 To x Sheets(nw_sh(i)).Move Before:=Sheets(1) Next i و مشاركة من الفاضل _ أ / أيسم إبراهيم Sub SortABC() Dim i As Integer, j As Integer, x As Integer x = Sheets.Count For i = 1 To x - 1 For j = i + 1 To x If Sheets(j).Name < Sheets(i).Name Then Sheets(j).Move before:=Sheets(i) End If Next Next Sheets(1).Select End Sub و لا تنسونا من صالح الدعاء

طلعت محمد حسن ما شاء الله تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة شرح لهذه الدالة Find_Range مجمعه من _ أ / طارق محمود تم ارفاق الموضوعات من الفاضل _ أ / أبو تامر_عمر الحسينى دالـة ( VLOOK_Pic1 ) لعـرض الصـور من أى نـوع و أى حجـم دالة ( VLOOKAnyCol ) تبحث فى اى عمود من الجدول وتستخرج النتيجة من آخر دالة VLOOK2ALL لإستخراج كل حالات البحث دالة VLOOKON بلا حدود تبحث فى عدة جداول دالة تجزئة الاسماء و الارقام دالة "IFYES" اقوى واسهل من "IF" مع احتمالات اكثر دالة اتخاذ القرار ( Resolve ) لتقيم التقديرات و المعدلات والنسب ادوات ذكية استرجاع اعدادات الاكسل الاصلية التخلص من علامات خطأ المعادلات نسخ الاكواد من ملف الى ملف أداة تحويل صيغ المعادلات الى اكواد مصباح علاء الدين للبحث اقوى دالة بحث الحلول الذكية و شريط الادوات الذكية التحكم بأشرطة الادوات والقوائم المنبثقة تلوين السطور الفردية أو الزوجية إكسيل كاميرا برامج واكواد كيفية الحصول على سريال نمبر الهارد ديسك الباحث الشامل اعداد الجدول الزمنى للمشروعات ( مخطط جانت ) إنشاء قوائم منسدلة مرتبطة متعددة المستويات تصدير مدى محدد الى الوورد حل مشكلة عدم ظهور اكثر من 1000 سجل فى قوائم التصفية التلقائية إستخراج النتائج بشرطين صيغة ظريفة سلسلة كيف تدرج دالة فى الاكسل لتكون متاحه لكل الملفات بإنشاء ملف ( AddIn ) يحتوى على دوالك الخاصة منع حفظ الملف بأسم آخر زيادة عملية التراجع و الإعادة ( Undo / Redo ) في الاكسل أكثر من 16 مرة اكسيل 11 كشـف تـوزيـع فئـات النقـديـة كشـف صـرف النقـديـة بالفئـات المتـاحـة إستيراد وتصدير جدول إكسيل من وإلى الأكسيس صمم توقيعك الخاص او علامتك المائية لملفاتك الخاصة كود الدوائر الحمراء والاحرف الخاصة لدرجات الطلاب نموذج طباعة الشهادات المدرسية مع دوائر الارقام برنامج طباعة الشهادات للمرحلة الابتدائية_1 برنامج طباعة الشهادات للمرحلة الابتدائية_2 برنامج طباعة نماذج الشهادات للمرحلة الاعدادية قائمة منسدلة تفلتر مع الاحرف او الاسماء المحددة برنامج حفظ بيانات الشيكات والبحت عنها اكواد و اوامر ( VBA ) مفيدة القائمة المنسدلة المرتبطة بقوائم متعددة المدى او النطاق ( ثابت / ديناميكى ) الارقام العشوائية بدون تكرار البوم للصور والمعروضات, بدون حدود و لا تنسونا من صالح الدعاء

الزباري تحياتى الى الحلقه القادمه _ استمر

جرب هذا الموقعhttps://smallpdf.com/ قد يفيد

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

الزباري اخى الفاضل ما شاء الله استمر

ayad066 زياد عبد الجليل الاخوه الافاضل جزاكم الله خيرا

الزباري اخى الفاضل بارك الله فيك

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

مجدى يونس ما شاء الله على حركاتك و تاكاتك

أحمد حليم اخى الفاضل جزاك الله خيرا و شاكر مرورك الكريم

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