ايجاد قيمة خلية بناء على رقم الصف واسم رأس العمود

[yaser alqubati]

السلام عليكم اريد دالة مثل ال voolkup ولكن لا اكتب رقم العمود وانما تاخذ اسم راس العمود وبموجبه تعطيني قيمة خلية تقاطع الصف مع اسم رأس العمود.
حيث لديا جدول كبير يحتوي على 2000صف و100عمود قابل للازدياد مرفق نموذج مصغر والمعطيات والمطلوب تم تدويينها فيه.طبعا هذا الجدول  تم تنزيله من المنتدى لاحد الاعضاء وهو يحتوي على ارقام فقط وانا عدلت في رؤوس الاعمدة.شاكرا تعاونكم وحفظكم الله ورعاكم وجزاكم الله خيرا 

المصنف2,.xlsx

[سليم حاصبيا]

هل تقصد هذا الشيء مثلاً

Option Explicit
Function Salim_saerch(rg As Range, N As Integer, Ro As Integer)
 Dim F_rg As Range
 Set F_rg = rg.Find(N, lookat:=1)
 If F_rg Is Nothing Then
    Salim_saerch = "N/A"
    Exit Function
 End If
  Salim_saerch = IIf(F_rg.Offset(, Ro) = 0, "", F_rg.Offset(, Ro))
End Function

 

Smart_vlookup.xlsm

[yaser alqubati]

جزاك الله خيرا اخي على سرعة تجاوبك ومعلومة جيدة استفيد منها وانا في طريقة ايصال المعلومة للمبرمج ضعيف نوعا ما ماكنت اريده هو ان يعطيني ال name من الرئيسي في عمود ال name الفرعي وكذلك بقية البيانات كل اسم عمود موجود في الفرعي اريد بياناته من نفس اسم العمود بناء على رقم ال no الذي ادخله والذي اوضحته بعبارة Change here مرفق الملف توضيح الطلب 

Smart_vlookup1.xlsm

[سليم حاصبيا]

اذا كانت الأعمدة محتلفة 

هذه المعادلة (الصف الأصفر في الصفحة  New sheet ) يمكن استبدال الرقم 500 الى اي عدد تريده

=IFERROR(INDEX(Main!$A$2:$BN$500,MATCH($A6,Main!$A$2:$A$500,0),MATCH(B$1,Main!$A$1:$BN$1,0)),"")

Smart_vlkup1.xlsm

[yaser alqubati]

بارك الله فيك وجزاك الله خيرا استاذي سليم حاصبيا لك مني كل معاني الحب و التقدير والاحترام والامتنان  تمنياتي لك بموفور الصحة والسعادة ولكل الاخوة العباقرة والمبدعين وكل اعضاء المنتدى عجزت ما اقوله لكم ايها الرئعون الذين لاتبخلون ولاتحتكرون المعلومات ويستفيد منكم الكل