EL_Naj3awy قام بنشر أغسطس 11, 2017 مشاركة قام بنشر أغسطس 11, 2017 السلام عليكم ورحمة الله وبركاته مطلوب كود ترحيل لهذا الملف من صفحة بيانات الطلاب إلى صفحة سجل قيد الطلاب المستجدين بشرط أن يكون الطالب المرحل مستجد أو مستجدة وهذا أهم شىء لا أريد ترحيل كل الطلاب فقط المستجد أو المستجدة مرفق آخر ما وصل إليه الملف حتى الآن ومازال العمل جاريا عليه شئون الطلاب 10.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 11, 2017 مشاركة قام بنشر أغسطس 11, 2017 جرب هذه الكود (في الورقة الاولى ليست مدرجة كل المعلومات المطلوبة في الورقة الثانية)مثلاً :اسم والد التلميذ نستطيع التعديل على الكود بعد ادراج هذه المعلومات الافضل رفع الملف دون زركشات وألوان غير متناسقة تجعل الشخص غير قادر على رؤية البيانات الا بعد جهد جهيد و مما يثقل الملف الى حد كبير(تصور حجم الملف 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 1 رابط هذا التعليق شارك More sharing options...
EL_Naj3awy قام بنشر أغسطس 11, 2017 الكاتب مشاركة قام بنشر أغسطس 11, 2017 الكود يفى بالمطلوب جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
راجي قام بنشر أغسطس 12, 2017 مشاركة قام بنشر أغسطس 12, 2017 سلام عليكم ممكن استخدم البرنامج بتاعك بعد ما تخلصه 1 رابط هذا التعليق شارك More sharing options...
EL_Naj3awy قام بنشر أغسطس 12, 2017 الكاتب مشاركة قام بنشر أغسطس 12, 2017 2 hours ago, راجي said: سلام عليكم ممكن استخدم البرنامج بتاعك بعد ما تخلصه طبعا ممكن انا ليا الشرف بس لسه باقى حاجات كتير عاوز اعملها علشان يفى بالغرض المتوقع منه عموما البرنامج تحت أمرك فى أى وقت رابط هذا التعليق شارك More sharing options...
راجي قام بنشر أغسطس 14, 2017 مشاركة قام بنشر أغسطس 14, 2017 جزاك الله كل خير منتظر الانتهاء منه اكيد هيفدنا في شغل المدرسة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان