السلام عليكم ورحمة الله وبركاته
اردت فقط شرح الكود التالي وهو كود اعطاني اياه الاستاذ رجب
Sub rajab()
Dim ws As Worksheet
Dim cl As Range
Range("B3:H50").ClearContents
For Each ws In ThisWorkbook.Worksheets
For Each cl In ws.[F3:F136]
If cl = [O13] And cl.Offset(0, 3).Value = [P13].Value or (If cl = [P13] And cl.Offset(0, 3) = [O13]) Then
cl.Offset(0, -3).Resize(1, 7).Copy
Range("B" & [E1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues
End If
Next
Next
Application.CutCopyMode = False
[A9].Select
End Sub
السؤال الثاني هل يجب ان تكون كل الجداول في جميع الشيتات تحتوي على نفس عدد الصفوف