ارقام الجلوس

[mohammmed ali]

السلام عليكم 

اريد من عمالقة المنتدي وضع جميع المعادلات والاكواد الخاصه لهذا الشيت لعمل ارقام الجلوس به عوضا عن دمج المراسلات في الوورد

جلوس 2019.xls

[احمد بدره]

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

تفضل

جلوس 2019.xls

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

بعد اذن الاخ احمد

استبدل اسماء الصفحات الى  Clas و   Repport  انا افضل دائماً ان تكون اسماء الصفحات باللغة الاجنبية (لحسن عمل الكود وعدم ظهور احرف غريبة في الكود)

 ضع في الخلية T1 الرقم تريده 

 ونفذ هدا الكود

Option Explicit

Sub get_Repport()
Dim i%, k, T%: T = 1
Dim CL As Worksheet, Rp As Worksheet
Set CL = Sheets("Clas"): Set Rp = Sheets("Repport")
Dim start_num%: start_num% = Rp.Range("T1")
Dim arr(1 To 10, 1 To 2)
  
  For k = 1 To 2
      For i = 5 To 45 Step 10
       arr(T, 1) = i
       arr(T, 2) = IIf(T > 5, 9, 2)
       T = T + 1
      Next i
   Next k
 k = 0

For i = LBound(arr) To UBound(arr)
  With Rp.Cells(arr(i, 1), arr(i, 2))
    .Value = CL.Cells(start_num + k + 1, 3)
    .Offset(1) = CL.Cells(start_num + k + 1, 5)
    .Offset(2) = CL.Cells(start_num + k + 1, 2)
    .Offset(3) = CL.Cells(start_num + k + 1, 4)
    .Offset(4) = CL.Cells(start_num + k + 1, 6)
    .Offset(5) = CL.Cells(start_num + k + 1, 7)
  End With
  k = k + 1
 Next

End Sub

الملف مرفق

Joulous_2019.xlsm

[mohammmed ali]

السلام عليكم 

جزاكم الله خير الجزاء علي ما قدمتوه من مساعده لي في عمل هذا الشيت

اللهم اجعل دعائي لكم بظهر الغيب في ميزان حسناتكم ويزيد في احسانكم

[omar elhosseini]

بعد اذن الاخوة الاعزاء

موضوع المشاركة له ذكريات جميلة ولم استطع  عدم المشاركة فيه رغم طرح الاخوة لحلول جيدة

 

لعل المرفق ينال استحسانكم

 

المرفقات

 

 

Test_1.rar