اريد معادلة اذا تساوي الرقمين في شيت 1 وشيت رقم 2ينقل الاسم بجانب الرقم الثاني في شيت رقم 2

[alsaeed]

اريد معادلة اذا تساوي الرقمين  في شيت 1 وشيت رقم 2ينقل الاسم بجانب الرقم الثاني من شيت رقم 1 في شيت رقم 2

مرفق مثال

مثال.xlsx

تم تعديل مارس 15, 2023 بواسطه alsaeed

[محي الدين ابو البشر]

مثال (1).xlsx

[alsaeed]

السلام عليكم أ / محي الدين للتوضيح عندي العمودي طويل عمود في الشيت رقم 1 عدد الارقام 5000 الالف رقم هايقرأ من الشيت رقم 2 الرقم والاسم عدده 42 الف سطر 

بمعني ان العمود الى فيه 5000 رقم هايدور في العمود 42 الف ويبحث عن الرقم ويستدعي منه الاسم .. فداله IF مش نافعه معاه برجاء عمله بدالة تبحث في هذه العدد الضخم لتستخرج منه الاسم 

وشكرا لك أ / محي

[حسونة حسين]

وعليكم السلام ورحمه الله وبركاته

ارفق ملف به وليكن  50 بيان  في الشيت رقم 1  و 100 بيان  في الشيت رقم 2

ملف معبر عن ما تحتاج اليه حتي لا تضيع وقت الاخوة وتجد مبتغاك

 

[alsaeed]

شكرا اخي الكريم وشكرا لكل من تعاون 

انا حلتها ب معادلة vlookup

[بلانك]

برجاء وضع الحل الذي توصلت اليه حتى يستفيد منه الغير وشكرا مقدما

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته

تفضل اخي يمكنك استخدام المعادلة التالية

=SI(A1<>"";SIERREUR(INDEX(Sheet1!$B$1:$B$50000; EQUIV(0; SI(A1=Sheet1!$A$1:$A$50000; NB.SI(Sheet1!$C$1:$C1; Sheet1!$B$1:$B$50000); ""); 0));"");"")

 حل اخر بالاكواد 

Sub Test()
Dim I As Integer, Cellule As Range
With Feuil2
For I = 1 To .Range("A" & Rows.Count).End(xlUp).Row
Set Cellule = Feuil1.Cells.Find(What:=Range("A" & I), LookAt:=xlPart)
If Not Cellule Is Nothing Then .Range("b" & I) = Cellule.Offset(0, 1).Value
Next I
End With
End Sub

 

مثال1.xlsm

[alsaeed]

مرفق طريقة الحال ب معادلة vlookup ليستفيد منه الغير

وشكرا لكل من حاول المساعدة 

مثال معادلة vlookup.xlsx

[أبو إيمان]

الاخ الفاضل alsaeed

من الافضل : تثبيت نطاق الخلايا مع دالة Vlookup  أو تسمية النطاق حتى تتجنب أخطاء العمل ويمكن اكتشاف الاخطاء إذا قمت بكتابة الرقم 3 في الخلية A85 لكن عند الثبيت لا يظهر اخطاء