السلام عليكم
لم احصل على نتيجة فعندما اغير في خلية B3 يذهب الايعاز الى محرر الكواد
Private Sub Worksheet_Change(ByVal Target As Range) يصبح باللون الاصفر
If Not Intersect(Target, Range("B3")) Is Nothing Then
Z = Application.CountA(Sheets("الشهر الاول").Range("A2:A300"))
For I = 2 To Z + 2
If Target.Value = Sheets("الشهر الاول").Cells(I, 1).Value Then
Target.Offset(0, 2).Value = Sheets("الشهر الاول").Cells(I, 2).Value
End If
Next I
Call InsertPictureVBA2 - يقف المؤشر على هذا السطر
End If
End Sub
ممكن عمل فيديو ليكون اكثر ايضاحاً لي
السلام عليكم