رجب جاويش

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

بعد اذن أخى إسلام الشيمي تفضل أخى mmmmmmm.rar

أخى الفاضل / وحيد صبور جزاك الله كل خير على هذه الكلمات الطيبة

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

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

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

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

بعد اذن أخى وأستاذى الحبيب / عبد الله المجرب لاثراء الوضوع هذا تعديل آخر ربما يفيد Sub Abu_Ahmed() On Error GoTo 1 Dim I As Integer, AbuAhmed As Boolean MyVal1 = InputBox("ضع تاريخ البداية هنا", "إدخال") MyVal2 = InputBox("ضع تاريخ النهاية هنا", "إدخال") If Not IsDate(MyVal1) Or Not IsDate(MyVal2) Then GoTo 1 AbuAhmed = True: Set Mysh = Sheets("Feuil2"): Set sh = Sheets("Feuil1") For I = 2 To sh.[A10000].End(xlUp).Row If CDate(sh.Cells(I, 5)) >= MyVal1 And CDate(sh.Cells(I, 5)) <= MyVal1 Then sh.Cells(I, 1).Resize(1, 41).Copy Mysh.Range("A" & Mysh.[A10000].End(xlUp).Row + 1) End If Next Set Mysh = Nothing: Set sh = Nothing 1: If AbuAhmed Then MsgBox "تم الترحيل": Exit Sub MsgBox "خطأ في ادخال التاريخ" End Sub Classeur1.rar

أخى الفاضل / fzsss هل تقصد هكذا s2.rar

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

أخى الفاضل / أبو شرف جرب المرفق أرجو أن يكون كما تريد بضاعة.rar

أخى الفاضل هذه الأقواس {} خاصة بمعادلات معينة تسمى معادلات الصفيف وهى تحتاج الى الضغط على المفاتيح ctrl + shift + enter عند أى تعديل عليها

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

أخى الفاضل / قنديل الصياد يرجى ارفاق ملف يحتوى على المعادلة حتى يمكن عمل اللازم

السلام عليكم تفضل أخى سيكون التعديل بهذا الشكل Private Sub UserForm_Activate() x = Sheets("Sheet1").Range("A1") arr = Split(x, Chr(10)) For i = 0 To UBound(arr) Me.ListBox1.AddItem arr(i) Next End Sub استدعاء عدة قيم بشكل عامودي في الست بوكس1.rar

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

أخى الفاضل / أبو شرف أرجو ارفاق ملف توضح به ما تريد حتى يتم عمل اللازم ان شاء الله

أخى الفاضل تم تسمية نطاق كل جدول باسم هذا الجدول ( أى جدول1 وجدول2 وهكذا ) ثم استخدام الدالة indirect للحصول على البيانات التى يشير اليها كل جدول

أخى الفاضل أرجو توضيح المدى الذى تريده للقائمة الثانية

السلام عليكم تفضل أخى tabel chang1001.rar

أخى الفاضل / نجيب تم عمل تسمية لمدى أسماء الذكور باسم ( ذكور ) وبالمثل بالنسبة لأسماء البنات باسم ( إناث) ثم عمل data validation فى الخلية J7 عن طريق الدالة (indirect (H7 وهى المسئولة عن تحويل أسماء النطاقات ( ذكور أو إناث) الى المدى الذى يشير اليه كل منهما

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

السلام عليكم أخى الفاضل جرب المرفق ام المؤمنين 2012 2013 نصف العام00.rar

السلام عليكم تفضل 0011122.rar

السلام عليكم هل تقصد هكذا جمع تواريخ.rar