الاخ رجب
بارك الله فيك
وكن ممكن شرح الكود
Sub ragb()
[G2:AZ2].ClearContents
LR = Cells(Rows.Count, 3).End(xlUp).Row
مامعنى رقم 3 هنا
For Each cl In Range("C2:C" & LR)
If cl.Value = [f2] Then
Cells(2, [iV2].End(xlToLeft).Column + 1).Value = cl.Offset(0, -1).Value
ما معنى Cells(2, [iV2].
ما معنى -1
ما معنى +1
End If
Next
End Sub
وماذ لو اردت استخراج البيانات بدايه من الخليه A28