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

lightheart اخى الفاضل جزاك الله خيرا تحياتى

ضاحي الغريب شوقي ربيع حمادة عمر محمد طاهر الساده الافاضل تحياتى و ايام مباركه ارجو منكم المشاركه دايما و عدم الغياب عنا لان المنتدى كان فى وقت من الاوقات كان فيه فراغ غير طبيعى التمس العذر للجميع والله و لكن كان فيه وقت لما لم ندخل على المنتدى نحس ان فى حاجه غلط و نقصانا و عن شخصى كنت حزين الى ما وصل اليه المنتدى و الواحد يكون فرحان لما تأتى مشاركه مثل هذه المشاركه بعد غيبه من فرسان هذا المنتدى و يمكن الاطلاع على الرابط التالى علشان محدش يغيب علينا بعد كده المساعدة في اعمال المنتدي ارجو من الله تعالى رجوع فرسان هذا المنتدى و خصوصا الغالى علينا عبدالله باقشير فك الله محنة بلاده و بالتوفيق لمن استقل بمنتدى شخصى له و ايضا لا يحرمنا من مشاركاته و رحم الله اخونا الحسامي Emad Al.Hosami الحساميالحسامي

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

تحياتى و ايام مباركه تصفح الاتى

ahmedghandour جزاك الله خيرا

اخى الفاضل تحياتى و ايام مباركه تابع المرفق

حمادة عمر اخى الفاضل جزاك الله خيرا تحياتى

حمادة عمر اخى الفاضل جزاك الله خيرا تحياتى

شوقي ربيع جزاك الله خيرا و نتمنى وجودك دايما

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

تحياتى و ايام مباركه من هنا

ناصرالمصرى تحياتى و ايام مباركه

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

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

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة طلب كود البحث بين تاريخين vba تم ارفاق كود الحل من الفاضل ا / الـعيدروس مرفق الملف و الشرح البحث بين تاريخين_A3.rar شرح_6.rar و لا تنسونا من صالح الدعاء تحياتى

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

تم رفع هذا الكود فى مشاركة منفصله كيفية منع تكرار الأرقام والأسماء حتى لا ننسى هذه المشاركة من الفاضل ا / عبدالله باقشير Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Set ww = Application.WorksheetFunction If Not Intersect(Target, Range("B5:C" & Target.Row)) Is Nothing Then If ww.CountIf(ww.Index(Range(Cells(5, Target.Column), _ Cells(Target.Row, Target.Column)), 0, 1), Target.Value) > 1 Then MsgBox "الادخال : " & Target.Value & " مكرر سيتم حذفه ", vbMsgBoxRight, "ادخال مكرر" Cells(Target.Row, Target.Column).Select Selection = "" Exit Sub End If End If End Sub مرفق الملف و الشرح منع المتكررات بالكود المثال على عمودين B و C ويبدأ من الصف رقم 5 الى الاسفل ________.rar و بالمعادلات ___________.rar و لا تنسونا من صالح الدعاء تحياتى

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

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

تم رفع هذا الكود فى مشاركة منفصله كيفية منع تكرار الأرقام والأسماء حتى لا ننسى هذه المشاركة من الفاضل ا / asmo200666 Sub DeleteDups() Dim x As Long Dim LastRow As Long LastRow = Range("A65536").End(xlUp).Row For x = LastRow To 1 Step -1 If Application.WorksheetFunction.CountIf(Range("A1:A" & x), Range("A" & x).Text) > 1 Then Range("A" & x).EntireRow.Delete End If Next x End Sub مرفق الملف و الشرح منع المتكررات بالكود الغاء الصفوف التى بها تكرار فى العمود A اول باول Don__t_dupplicate.rar و لا تنسونا من صالح الدعاء تحياتى

على متولى اخى الفاضل جزاك الله خيرا

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة مرفق الملف مشاركة من الفاضل / عبدالله باقشير Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo khboor If Target.Column = 1 Then Range("B" & Target.Row).Value = Range("B" & Target.Row).Value + Range("A" & Target.Row).Value End If khboor: Exit Sub End Sub مرفق الملف و الشرح SSS.rar و لا تنسونا من صالح الدعاء تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كود توزيع الأسماء بالعدد الذي نبغاه تم ارفاق كود الحل من الفاضل_ أ / عبدالله باقشير بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ارجوا الانتباه للتالي: كشف الفصول يتسع كحد اقصى الى 90 طالب مقسمة 45 صف لكل نصف من ورقة الكشف عندما تختار عدد فصول معينة يكون ناتجه اكثر من 90 طالب لايعمل الكود ويقوم باشعارك طريقة عمل الكشوفات: اكتب في مربع النص عدد الفصول المطلوبة وهو سيقوم بتقسيم الطلبة الموجودين على هذه الفصول بترتيب متوازي بالنسبة لابجدة الاسماء والعدد لكل فصل مع ترتيب البيانات تصاعديا حسب الابجدة بالنسبة للاسماء تفضل المرفق ان شاء الله فيه الحل الذي تريد ودمتم في حفظ الله وسلامته مرفق الملف و الشرح ____________3.rar ____________1.rar و لا تنسونا من صالح الدعاء تحياتى

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