سجل غياب يومى لمدرسة

[محمدبكير]

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

عايز شيت غياب يومى لمدرسه فيها الف طالبة

اسجل  مسلسل اسماء الطالبات وفصولهم فى صفحة

وصفحة الغياب بها تسعه اعمدة وثلاثين صف  لتجسل غياب حتى 90 طالبة

مجرد كتابة رقم الطالبه الغائبة يكتب مسلسل واسم وفصل (لكل ثلاثة اعمدة )

لانى سوف انشر غياب الطالبات على صفحة المدرسة لمتابعة اولياء الامور حضور وغياب بناتهم

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

سجل غياب.xlsx

تم تعديل يناير 1, 2019 بواسطه محمدبكير

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

جرب هذا الملف

الكود

Option Explicit

Sub Tasjil()
Dim My_rg As Range
Dim i%, x%, r
Dim Find_rg As Range
Dim Sh1 As Worksheet, Sh2 As Worksheet
Set Sh1 = Sheets("sheet1"): Set Sh2 = Sheets("sheet2")
Set My_rg = Sh1.Range("a8").CurrentRegion.Columns(1)
x = My_rg.Rows.Count
 For i = 1 To x
  Set Find_rg = Sh2.Range("a7:I36").Find(My_rg.Cells(i), , , xlWhole)
   If Not Find_rg Is Nothing Then
  r = Find_rg.Offset(, 1).Address
  My_rg.Cells(i).Offset(, 1).Resize(, 2).Value = _
  Sh2.Range(r).Resize(, 2).Value
  End If
  Next
End Sub

الملف مرفق

 

_Salimسجل غياب.xlsm

[Ali Mohamed Ali]

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