ترحيل بيانات

[مجاهد2013]

السلام عليكم إخوتي :

عندي في الملف المرفق

1-      أريد ترحيل البيانات (الاسم و اللقب – القسم ) من شيت data إلى شيت data2 بحيث كل قسم يأخذ 50صف يعني القسم س1 (50صف حتى لو كان عدد الطلبة أقل من كذا) و يجي  وراه القسم س2 بنفس المواصفات ..............الخ بحيث لو أضفت طالب في data   في أخر صف  يطلع في القسم بتاعه في data2

2-      اريد حساب تعداد الطلبة حسب الصفة و الجنس كما هو مبين في الجدول مع اخذ الاعتبار إذا أضفت قسم مثلا س11 يرتبه في اخر الصف في خانة القسم و يحسب تعداده

و شكرا مسبقا

 

الطلبة.xlsx

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

جرب هذا الماكرو

Option Explicit
Sub give_data()
If ActiveSheet.Name <> "data" Then Exit Sub
Dim i%: i = 3
Dim Laste_Row%, k%, m%
Dim arr, arr_num()
Dim rg As Object
arr_num = Array(3, 52, 101, 150, 199, 248, 297, 346, 395, 444)
Laste_Row = Sheets("data").Cells(Rows.Count, 1).End(3).Row
Sheets("data2").Range("a3").Resize(1000, 3).ClearContents

Set rg = CreateObject("system.collections.arraylist")
With rg
 Do Until i > Laste_Row
  If Not .contains(UCase(Range("g" & i).Value)) Then .Add UCase(Range("g" & i).Value)
 i = i + 1
 Loop

  arr = .toarray
 End With
 For i = LBound(arr) To UBound(arr)
   m = arr_num(i)
    For k = 3 To Laste_Row%
      If Sheets("data").Cells(k, "G") = arr(i) Then
         With Sheets("data2").Cells(m, 1)
           .Value = Sheets("data").Cells(k, "A")
           .Offset(, 1) = Sheets("data").Cells(k, "B")
           .Offset(, 2) = Sheets("data").Cells(k, "G")
            m = m + 1
         End With
       End If
     Next
  Next
  Set rg = Nothing: Erase arr_num: Erase arr
End Sub

الملف مرفق

 

std_salim.xlsm

[مجاهد2013]

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

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

3 دقائق مضت, مجاهد2013 said:

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

اجذف هذا السطر من الكود

.Value = Sheets("data").Cells(k, "A")

 

[مجاهد2013]

هل ممكن مثال بسيط لحساب التعداد

 

[Ali Mohamed Ali]

أحسنت استاذ سليم كود ممتاز بارك الله فيك وجزاك الله كل خير