ehabaf2

السلام عليكم السادة الافاضل كنت محتاج شرح اسطر الكود لكي افهم طبيعة عمله و اتمكن من تعديل النطاق اللي بيعمل عليه ( الكود لاستخراج الطلبة الضعاف ) و لكم جزيل الشكر Sub LastTest2() '-------------------- كود استخراج الطلاب الضعاف '-------------------- Dim i As Long, ws As Worksheet, Rng As Range Dim C As Range, p As Integer, x Dim Shp As Shape, Nam As String Set ws = Sheets("الاول") Application.ScreenUpdating = False Range("ay5:az71") = "" Set Shp = ws.Shapes(Application.Caller) Nam = Shp.TextEffect.Text ws.Range("KN1") = " ÇáØáÇÈ ÇáÖÚÇÝ ÇÞá ãä 65 % á" & Nam p = 4 i = 5 Do While i <= 70 With ws Select Case Nam Case "شهر 10" x = Array(214, 215, 216, 217, 218, 219, 220, 224, 228, 232, 236, 240, 244, 248) Case "شهر 11" x = Array(214, 215, 216, 217, 218, 219, 221, 225, 229, 233, 237, 241, 245, 249) Case "شهر 12" x = Array(214, 215, 216, 217, 218, 219, 222, 226, 230, 234, 238, 242, 246, 250) Case Else End Select For j = LBound(x) To UBound(x) Set Rng = .Cells(i, x(j)) For Each C In Rng y = .Cells(4, x(j)) * 0.65 If .Cells(i, x(j)) < y Then m = m + 1 If m > 1 Then GoTo 88: p = p + 1 For a = 0 To 13 .Cells(p, a + 298) = .Cells(i, x(a)) .Cells(p, 298) = p - 4 Next End If Next Next End With 88: m = 0 i = i + 1 Loop End Sub

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

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

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

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

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

السادة الخبراء الافاضل الف الف شكر للاهتمام و المعرفة زادكم الله من علمه و فضله

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

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

استاذنا الفاضل احمد عبدالحليم بعد اذن حضرتك محتاج فقط تعديل مكان خلية اظهار توايخ الغياب نظر لنقل مكان التسجيل مثلا من الخلية R8 و الخلية R10 الى الخلية AB8 و الخلية AB10 الحمد للحمد لله باقى الخلايا غيرتها و الف شكر لحضرتك و اهتمامك

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

السلام عليكم الاساتذة الافاضل كنت محتاج اعدل نطاق كود علشان هغير منطقة التسجيل المدى الحالى يبداء من العمود A اريد تعديل المدي ليبداء من العمود ِAL6 السطر رقم 6 و لو ممكن حد يشرح لى الكود يعرفنى كل سطر معناه ايه بحيث لو حبيت اعدل بعد ذلك و الف شكر لحضراتكم Sub test() Dim x& Dim r As Range Dim v, fnd Dim t As String x = Columns(1).Cells.Find(Range("N6"), , , 1).Row Range("N8") = Cells(x, 2) Set r = Cells(x, 1 + Split(Range("N4").Text, "-")(0) * 1).Resize(, 1 + Split(Range("P4").Text, "-")(0) * 1) With r On Error Resume Next Set fnd = .Find("Ã", , , 1) v = fnd.Address If Not fnd Is Nothing Then Do t = IIf(t = "", Cells(2, fnd.Column).Text, t & "+" & Cells(2, fnd.Column).Text) Set fnd = .FindNext(fnd) Loop Until v = fnd.Address End If Range("R8") = t t = "" Set fnd = .Find("Û", , , 1) v = fnd.Address If Not fnd Is Nothing Then Do t = IIf(t = "", Cells(2, fnd.Column).Text, t & "+" & Cells(2, fnd.Column).Text) Set fnd = .FindNext(fnd) Loop Until v = fnd.Address End If Range("R10") = t End With End Sub

الاستاذ الفاضل محى الدين ابو البشر الف شكر لحضرتك الكود يعمل و ينفذ المطلوب الف الف شكر لحضرتك و استاذنا الفاضل ابراهيم الحداد الف شكر لحضرتك زادكم الله من علمه و فضله و حفظكم بحفظه

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

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

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

السلام عليكم الاساتذة الافاضل ارجو من حضراتكم المساعدة فى عمل كود أو معادلة تفصل الارقام عن الحروف فى رسالة تحويل فودافون كاش مرفق ملف للتوضيح و الف شكر لحضراتكم رسائل كاش.xlsx

الاستاذ أ / محمد صالح الف الف شكر لحضرتك التعديل ممتاز فعلا كنت عاوز ينفذ الكود عن غلق الملف بالكامل و جربنته شغال تمام الف الف شكر لحضرتك ربنا يحفظك و يعزك و يبارك فيك

السلام عليكم محتاج تعديل الكود التالى لعمل نسخة احتياطية للملف و ينفذ عند غلق ورقة العمل و شكرا لحضراتكم Sub copy1() Dim Extension$ Dim savePathName As String Extension = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "Backup" & (Format(Now, " dd-mm-yyyy,hh.mm.ss AMPM")) & ".xlsm" savePathName = "Z:\ÇáÊÞæíã\ehab Share\ÈÑäÇãÌ 2023\" On Error Resume Next Application.DisplayAlerts = False GetAttr (savePathName) Select Case Err.Number Case Is = 0 Application.DisplayAlerts = False ThisWorkbook.SaveCopyAs savePathName & Extension Application.DisplayAlerts = True Case Else MkDir savePathName ThisWorkbook.SaveCopyAs savePathName & Extension End Select On Error GoTo 0 End Sub

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

السلام عليكم الاساتذة الافاضل بعد اذن حضراتكم محتاج كود استخراج درجات الطلاب الضعاف اقل من 65 % فى شهر 10 أو 11 أو 12 مرفق ملف للتوضيح نطاق البيانات من العمود HF الى العمود IQ مكان استخراج البيانات من العمود KL الى العمود KY و الدرجة الخاصة بالمادة مكتوبة فى السطر 4 عند تنفيذ الكود يستخرج بيانات الطالب الحاصل على اقل من 65 % يعني اقل من الدرجة المكتوبة فى السطر الرابع تحت كل مادة بحيث يكتب جميع بيانات الطالب بما فيهم الدرجة الاقل من 65 % الى مكتوبه فى السطر الرابع الف شكر لحضراتكم و لجروب اوفيسنا المجترم الطلاب اقل من 65.xlsx

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

السلام عليكم الاساتذة الافاضل انا عملت ماكرو عبارة عن فلتر متقدم بستعلم منه عن البيانات Sub Macro901() ' ' Macro901 Macro ' ' Range("DF4").Select Columns("AM:BD").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "'ÇáÊÓÌíá (2)'!Criteria"), CopyToRange:=Range("'ÇáÊÓÌíá (2)'!Extract"), _ Unique:=False Range("DC3:DT3").Select End Sub فهل من الممكن عمل كود VBA يقوم بعمل الكود السابق و يكون اسرع مرفق ملف للتوضيح الف شكر لحضراتكم تعديل كود.xlsm

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

الاستاذ الفاضل حسونه حسين الف شكر لمجهود حضرتك و لكن الكود بيعطي هذه الرسالة run-time error 9