البحث في الاكسل عن قيمة او نص في نطاق من الخلايا

[يوسف الدعيس]

السلام عليكم -ارجو التكرم على مساعدتى في  معادلة للبحث في الجدول في ورقة البيانات عن قيمة الخلايا في الاعمدة الثلاثة الاولى وارجاع الاسم الموجود في نفس الصف تمام كما في المثال الاول الذي تم البحث عنة بواسطة البحث اليدوي

سوف ارسل لكم الملف وارجوا ان تساعدوني بمعادلة او حتى كود

 

واكون شاكرا لكم

بحث في جدول.xlsx

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

جرب هذا الماكرو

Option Explicit
Rem =====>> created by Salim Hasbaya 13/7/2019
Sub Get_Data_Please()
'==========================
Dim Source_Sh As Worksheet
Dim Target_Sh As Worksheet
Dim LRS%, LRT%, RG_S As Range, RG_T As Range
Dim cel As Range, My_adrs As Range

'==========================

Set Source_Sh = Sheets("DATA")
Set Target_Sh = Sheets("TAB")

LRS = Source_Sh.Cells(Rows.Count, 2).End(3).Row
LRT = Target_Sh.Cells(Rows.Count, 3).End(3).Row
  Set RG_S = Source_Sh.Range("b3:M" & LRS)
  Set RG_T = Target_Sh.Range("C4:E" & LRT)
  Target_Sh.Range("F4:H" & LRT).ClearContents
   On Error Resume Next
For Each cel In RG_T
    On Error Resume Next
     Set My_adrs = RG_S.Find(cel, lookat:=1)
      On Error GoTo 0
      If Not My_adrs Is Nothing Then
       cel.Offset(, 3) = Source_Sh.Cells(My_adrs.Row, 2)
      End If
     
 Next
End Sub

الملف مرفق

 

ب جدول - Copy.xlsm

[Ali Mohamed Ali]

وعليكم السلام -بارك الله فيك أستاذ سليم وزادك الله من فضله

وهذا حل اخر بمعادلات المصفوفة لإثراء الموضوع

 

بحث فى جدول.xlsx