مطلوب كود ترحيل لبرنامج شئون طلاب

[EL_Naj3awy]

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

مطلوب كود ترحيل لهذا الملف

من صفحة بيانات الطلاب

إلى صفحة سجل قيد الطلاب المستجدين

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

لا أريد ترحيل كل الطلاب فقط المستجد أو المستجدة

مرفق آخر ما وصل إليه الملف حتى الآن ومازال العمل جاريا عليه

شئون الطلاب 10.rar

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

جرب هذه الكود

(في الورقة الاولى ليست مدرجة كل المعلومات المطلوبة في الورقة الثانية)مثلاً :اسم والد التلميذ

نستطيع التعديل على الكود بعد ادراج هذه المعلومات

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

الا بعد جهد جهيد و مما يثقل الملف الى حد كبير(تصور حجم الملف 1.3 ميغا)

و المفروض الا يتجاوز ال 200 كيلو

Option Explicit

Sub filter_me()
Application.EnableEvents = False
Dim My_Sh As Worksheet, Source_Sh As Worksheet
Dim last_row As Long
Dim lr As Long
Dim My_rg As Range
Dim My_First As Long, i As Long
My_First = 11
Set My_Sh = Sheets("سجل قيد الطلاب المستجدين"): Set Source_Sh = Sheets("بيانات الطلاب")
last_row = My_Sh.Cells(Rows.Count, "c").End(3).Row
If last_row < 11 Then last_row = 11
lr = Source_Sh.Cells(Rows.Count, "c").End(3).Row
If lr < 17 Then lr = 17
 My_Sh.Range("c11:p" & last_row).ClearContents
  For i = 17 To lr
    If Source_Sh.Range("F" & i) = "مستجد" _
    Or Source_Sh.Range("F" & i) = "مستجدة" Then
     With My_Sh
    .Cells(My_First, "c") = Source_Sh.Range("c" & i)
    .Cells(My_First, "e") = Source_Sh.Range("h" & i)
    .Cells(My_First, "f") = Source_Sh.Range("i" & i)
    .Cells(My_First, "g") = Source_Sh.Range("j" & i)
    .Cells(My_First, "k") = Source_Sh.Range("n" & i)
    .Cells(My_First, "L") = Source_Sh.Range("e" & i)
    .Cells(My_First, "M") = Source_Sh.Range("f" & i)
    .Cells(My_First, "o") = Source_Sh.Range("L" & i)
    .Cells(My_First, "p") = Source_Sh.Range("m" & i)
     My_First = My_First + 1
    End With
     End If
     Next
         
 Application.EnableEvents = True
End Sub

 

[EL_Naj3awy]

الكود يفى بالمطلوب

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

[راجي]

سلام عليكم 

ممكن استخدم البرنامج بتاعك بعد ما تخلصه 

[EL_Naj3awy]

2 hours ago, راجي said:

سلام عليكم 

ممكن استخدم البرنامج بتاعك بعد ما تخلصه 

طبعا ممكن

انا ليا الشرف

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

عموما البرنامج تحت أمرك فى أى وقت

[راجي]

جزاك الله كل خير منتظر الانتهاء منه 

اكيد هيفدنا في شغل المدرسة