Case 1
For i = 2 To 7
Cells(10, i).FormulaR1C1 = "=VLOOKUP(R5C4,d,column()+1,FALSE)"
الأخ الكريم هادي أحمد
لاحظ جملة for من العمود 2 الى العمود 7 لو اردت زيادة عدد المواد غير الرقم 7 الى رقم العمود الذى به آخر مادة
لاحظ ان جملة case تكررت 6 مرات بعدد الشيتات المراد البحث فيها فاذا اردت زيادة عدد الشيتات اضف case جديدة
لآضافة عدد أكبر من الصفوف قم بتغيير نطاق التسميات داخل ورقة العمل (d-d_3-d_4-d_4_5-d_6-d_7) الى نطاق اكبر من ادارة الأسماء