يوسف الدعيس قام بنشر يوليو 13, 2019 مشاركة قام بنشر يوليو 13, 2019 السلام عليكم -ارجو التكرم على مساعدتى في معادلة للبحث في الجدول في ورقة البيانات عن قيمة الخلايا في الاعمدة الثلاثة الاولى وارجاع الاسم الموجود في نفس الصف تمام كما في المثال الاول الذي تم البحث عنة بواسطة البحث اليدوي سوف ارسل لكم الملف وارجوا ان تساعدوني بمعادلة او حتى كود واكون شاكرا لكم بحث في جدول.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر يوليو 13, 2019 أفضل إجابة مشاركة قام بنشر يوليو 13, 2019 جرب هذا الماكرو 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 4 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يوليو 13, 2019 مشاركة قام بنشر يوليو 13, 2019 وعليكم السلام -بارك الله فيك أستاذ سليم وزادك الله من فضله وهذا حل اخر بمعادلات المصفوفة لإثراء الموضوع بحث فى جدول.xlsx 3 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان