2saad

شكرا لرد حضرتك عملت اللي حضرتك قلت عليه ولم يحدث شئ

السلام عليكم .. لابد من التحية عند بدء أى مشاركة,,,محتاج كود يحدث البيانات تلقائيا بمعني عندما اعدل في (ملف نصف العام صف رابع ) تتغير البيانات تلقائيا في (شيت صف رابع ) ولكم جزيل الشكر ووافر اللحتراماعمال سنة.xlsm

إخواني أعضاء المنتدي الكرام الذي تعلمت منه الكثير بعد سلام الله عليكم ورحمة الله وبركاته هذا البرنامج من عمل أحد اعضاء المنتدي الكرام وهم مخصص لتوزيع التلاميذ علي الفصول حسب (مذكر ومؤنث ) كما في القائمة المنسدلة ( N5 ) ارجو التعديل علي الكود بحيث يرحل البيانات علي حسب الفصل كما في القائمة المنسدلة ( O5) يعني كلما اضغط علي الفصل يعطيني التلاميذ الموجودين بالفصل وشكراتوزيع الفصول باختيار النوع وبتساوي الدرجات1.xls

شكرا جزيلا استاذنا الفاضل

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

بارك الله فيك واكثر الله من امثالك ..بس لي ملحوظة ...عند الترحيل في عمود الفصل مكتوب ارقام وليس اسم الفصل

شكرا لرد حضرتك ولكن لم ينفع

السادة اعضاء المنتدي الذي تعلمنا منه كثيرا بعد سلام الله عليكم ورحمة الله وبركاته..نرجو من حضراتكم تصحيح الخطأ في هذا الكود المرفق ... ولكم جزيل الشكر ووافر الاحترام انتبه من فضلك ... مشاركة مكررة .. تــــم بالفعل حذف المشاركة الأخرى هذا هو الكود وهذه رسالة الخطأ الذى تظهر , يجب عليك التوضيح هكذا Sub Test() Dim a, ws As Worksheet, sh As Worksheet, s As String, i As Long, ii As Long, k As Long Application.ScreenUpdating = False Set ws = ThisWorkbook.Worksheets("مجمع الشيتات") Set sh = ThisWorkbook.Worksheets("قوائم الفصول") With ws a = .Range("C10:P" & .Cells(Rows.Count, 3).End(xlUp).Row).Value a = Application.Index(d, Evaluate("ROW(4:" & UBound(d, 4) & ")"), [{3,4,5,7,9,11,12,15,16}]) ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2)) s = sh.Range("F4").Value sh.Range("C10").CurrentRegion.Offset(1).ClearContents If IsEmpty(s) Then Exit Sub sh.Columns(3).NumberFormat = "@" sh.Columns(8).NumberFormat = "@" For i = LBound(a, 1) To UBound(a, 1) If a(i, 7) = s Then k = k + 1 b(k, 1) = k For ii = 3 To UBound(a, 2) b(k, ii) = a(i, ii) Next ii End If Next i If k > 0 Then sh.Range("C10").Resize(k, UBound(d, 4)).Value = b End With End Sub مجمع الشيتات.rar

بارك الله فيك وأكثر الله من امثالك

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

شكرا جزيلا يا استاذ ابراهيم ..وربنا يجزيك خير

اخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته اريد التعديل علي هذا الكود بحيث نضيف عليه السن في اول اكتوبر وهو من عمل الاخ الفاضل الاستاذ ابراهيم ...وشكرا جزيلا الرقم _القومى.xlsm

لو سمحتم محتاج اعرف ايه المقصود ( e5 ) في هذا الكودتوزيع اللجان.xls

اريد نفس المطلوب في المشاركة بعنوان تصدير جميع الشهادات في ملف واحد بصيغة pdf

انا مسئول احصاء باحدي المدارس ومحاتج كود يقوم بجلب بيانات التلاميذ بالمدرسة من قاعدة بيانات الوزارة من النت ( عن طرق كتابة ايميل الدخول والباسورد ) ولكم جزيل الشكر ووافر الاحترام

شكرا علي رد حضرتك والله يبارك فيك ولكن حضرتك انا عايز اعدل في الكود بحيث يحول كل شهادات الناجحين او الراسبين الي ملف pdf سواء بمدي معين او غير مدي الكود اللي حضرتك وضعته يحول نموذج واحد ( 4 شهادات ) فقط

اعضاء المنتدي الكرام بعد السلام الله عليكم ورحمة الله وبركاته ..لدي استفسار من حضراتكم وارجو الحل ..هل يمكن تحويل الشهادات الي ملف pdf بمعني عندما اضغط علي شهادات الناجحين يتم تحويل الشهادات دفعة واحدة الي ملف pdf ...ارجو الحل من حضراتكم شهادات ,والراسبين 4 تعريق متغيرات.xlsm

شكرا جزيلا وربنا يجعله في ميزان حسناتك

اخي ابراهيم الف شكر علي مجهود وكل عام وانت طيب وبصحة جيدة ...معلش انا هتعبك معاي لو اعمدة المواد بعيدة عن بعض ايه اللي اغيره في الجزء الاول من المعادلة ..انا مرسل لحضرتك الملف test.xlsx

اعضاء المنتدي الموقر بعد سللم الله عليكم ورحمة الله وبركاته وكل عام وانتم بخير عايز معادلة تعطينا اسماء مواد الرسوب في العمود ( h ) يعني اذا كان الطالب دون المستوي في العربي يكتبلي اسم المادة ، وهكذا في المواد الأخري واذا لم يحصل علي دون المستوي في اي مادة يكتبلي (منقول للصف السادس ) عنوان مخالف جداً .. تــم تعديل عنوان المشاركة ليعبر عن طلبك test.xlsx

شكرا جزيلا وربنا يجعله في ميزان حسناتك وكل عام وانت طيب

السلام عليكم ورحمة الله وبركاته لدي نموذج لعمل الشهادات المدرسية للنابغة ساجدة العزاوي من العراق ..هل يمكن وضع كود للبحث بالاسم ورقم الجلوس لاحضار شهادة معينة .. وشكرا لاعضاء المنتدي الموقر ..انا عايز اعمل قائمة منسدلة بارقام الجلوس او الاسم واجلب شهادة معينة بناء علي الاسم او رقم الجلوس شهادات ,والراسبين 4 تعريق متغيرات.xlsm

شكرا لرد حضرتك الترحيل من شيت data الي شيت moholon علي حسب الملف المرفق

اخواني الأفاضل بعد السلام عليكم ورحمة الله وبركاته عايز اعدل علي كود الترحيل بحيث يرحل البيانات من a14 وبدون الشرط الموجود في القائمة h6 ولكم جزيل الشكر ووافر الاحترام سها.xlsm

شكرا جزيلا وربنا يجعله في ميزان حسناتك