لجان الدور الثاني حسب المادة وحسب الجنس

[khairi ali]

السلام عليكم ورحمة الله وبركاته

أخواني الكرام كيف حالكم حميعا

أريد التعديل على المعادلة أو كود لجلب الطلبة لشيت اللجنة حسب المادة وحسب الجنس

ولكم مني جزيل الشكر

لجان الدور الثاني حسب الجنس.xlsm

[سليم حاصبيا]

1-للمرة الـ 100 بعد الألف اختصار الملف ( لماذا اكثر من 500 طالب في كل ورقة)
2- انت وضعت 6 لجان كل واحدة تحتوي عل 15 اسم اي 90 طالب
    ما ادراك بعدد الطلاب (دور ثاني - ذكور  او  أناث)   كيف تعرف ان 6 لجان نكفيهم  ربما نحتاج الى 7 مثلاً أو 5 أو 10
3- كيف نعرف ان الطالب دور ثاني
4- على كل حال جرب هذا الماكرو

Option Explicit

Sub Get_data()
Application.EnableEvents = False
  Dim s_rg As Range, find_rg As Range
  Dim Mou3addaL#, last_Clas%, I%, m%, col%
  Dim Mal_Femal$
  Dim First_sheet As Worksheet
  Dim Second_sheet As Worksheet
  Dim Position%, k%
  Position = 19
  Set First_sheet = Sheets("ف.1.أ")
  Set Second_sheet = Sheets("اللجنة")
    Mal_Femal$ = Second_sheet.Cells(1, 7)
  For I = 4 To 300 Step Position
    If Second_sheet.Cells(I - 1, 2) = "" Then Exit For
    Second_sheet.Cells(I, 2).Resize(15, 3).ClearContents
  Next
If Mal_Femal = "" Then Exit Sub

last_Clas = First_sheet.Cells(Rows.count, 2).End(3).Row
Set find_rg = First_sheet.Rows(4).Find(Second_sheet.Cells(1, 6), lookat:=1)
If find_rg Is Nothing Then Exit Sub
col = find_rg.Column + 8
Mou3addaL = Val(First_sheet.Cells(8, col)) / 2
m = 4: k = 1
 For I = 10 To last_Clas
  If First_sheet.Cells(I, col) < Mou3addaL And _
     First_sheet.Cells(I, 4) = Mal_Femal Then
        If m Mod 19 = 0 Then m = m + 4: k = 1
          With Second_sheet.Cells(m, 2)
            .Value = k
            .Offset(, 1) = First_sheet.Cells(I, 3)
            .Offset(, 2) = First_sheet.Cells(I, 6)
          End With
     m = m + 1: k = k + 1
   End If
Next
  Application.EnableEvents = True
End Sub

الملف نموذجي مرفق

 

 

Ligann.xlsm

[khairi ali]

مشكور أستاذ سليم على مجهودك 

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

وشكرا

[سليم حاصبيا]

السؤال كان واضحاً من المشاركة الأول

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

لذلك أعتذر عن المتابعة بهذا الموضوع

[khairi ali]

نفس الطلب استاذي العزيز ... لكنك حدفت شتين اخرين 

 

[سليم حاصبيا]

5 دقائق مضت, khairi ali said:

نفس الطلب استاذي العويز

لكنك حدفت شتين اخرين 

انا لم اجذف الشيتات  بل احفيتها لحسن الرؤية