ممكن شرح الكود

[seddiki_adz]

رجاء شرح هذا الكود
 

Private Sub cmdgardeetablisse_Click()
cmdgardeetablisse.Enabled = False
Worksheets("gradeeta").Range("B7: al45").ClearContents
Worksheets("gradeeta").Cells(3, 4) = "الرجاء الانتظار ..."
For b = 3 To 38
For a = 4 To 80
For i = 7 To 47
If Worksheets("list garde").Cells(a, i) = Worksheets("gradeeta").Cells(6, b) Then
     Worksheets("gradeeta").Cells(i - 1, b) = Worksheets("list garde").Cells(a, 2)
End If
Next i
Next a
Next b
Worksheets("gradeeta").Cells(3, 4) = ""
cmdgardeetablisse.Enabled = True
End Sub

جدول الحراسة1.xlsm

[seddiki_adz]

رجاء اريد البحث عن القيم الموجودة في الشيت  LIST GQRDE الى الشيت GRADETA

 

 

جدول الحراسة1.xlsm

تم تعديل نوفمبر 8, 2021 بواسطه seddiki_adz