اريد مساعدة فى قوائم الفصول

[alaayouseef]

اريد معادلة لسحب بيانات قوائم الفصول من 3 ورقات حسب اختيار الصف من القائمة المنسدلة

المصنف1.xlsx

[ابراهيم الحداد]

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

استخدم الكود التالى

Sub GetClass()
Dim ws As Worksheet, Sh As Worksheet
Dim LR As Long, Arr As Variant, Temp As Variant, Temp2 As Variant
Dim i As Long, j As Integer, Fasl As String
Dim Clss As String, p As Integer
Set Sh = Sheets("قوائم فصول ")
Sh.Range("B12:E46") = ""
Sh.Range("I12:L46") = ""
Fasl = Sh.Range("L1").Text
Clss = Right(Fasl, 1)
  '-----------------------
Select Case Clss
Case 1
Set ws = Sheets("البيانات الأساسية الأول")
Case 2
Set ws = Sheets("البيانات الأساسية الثاني")
Case 3
Set ws = Sheets("البيانات الأساسية الثالث")
Case Else
End Select
LR = ws.Range("D" & Rows.Count).End(3).Row
Arr = ws.Range("D7:N" & LR).Value
ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2))
ReDim Temp2(1 To UBound(Arr, 1), 1 To UBound(Arr, 2))
  '-----------------------
For i = 1 To UBound(Arr, 1)
If Arr(i, 3) Like Fasl Then
p = p + 1
If p <= 35 Then
For j = 1 To 4
Temp(p, j) = Arr(i, Choose(j, 1, 1, 10, 11))
Temp(p, 1) = p
  '-----------------------
Next
ElseIf p > 35 Then
For j = 1 To 4
Temp2(p - 35, j) = Arr(i, Choose(j, 1, 1, 10, 11))
Temp(p - 35, 1) = p
Next
End If
End If
Next
  '-----------------------
If p > 0 Then Sh.Range("B12").Resize(p, UBound(Temp, 2)).Value = Temp
If p > 35 Then Sh.Range("I12").Resize(p, UBound(Temp2, 2)).Value = Temp2
End Sub

 

[2saad]

بارك الله فيك يا أستاذ ابراهيم وأكثر الله من أمثالك

لي سؤال

لو أنا عايز الأولاد في النصف الأول من الورقة والبنات في النصف الآخر

ماذا أعدل في الكود ؟

[حسونة حسين]

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة
و بصفة خاصة نؤكدعلى ما يلي
1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.
3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.
4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....
5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.
ومخالفة ذلك تعرض الموضوع للحذف

 

هذا الموضوع مخالف لقوانين المنتدي

××××××××

اكثر من طلب في موضوع واحد.
××××××××
يغلق
××××××××
الإدارة