استخدام معادلة Index & Match لجلب بيانات من ملفين اكسيل مختلفين

[ahmedalyalshahat]

لو سمحت يا غالى 

لو سمحت يا غالى انا عملت اللى فوق بس تقريبا فى غلط عندى انا مش عارفه انا بعملة على ملفين عن طريق الرقم القومى للصافى المرتب ممكن حضرتك تقولى فين الخطئ بتاعى لو سمحت بارك الله فيك 

الشيت الاساسى.xlsx الشيت الثانى.xlsx

تم تعديل يوليو 30, 2019 بواسطه ahmedalyalshahat

[Ali Mohamed Ali]

لماذا تصعب على نفسك  ؟!!!!

ولما لا تضع هاتين الصفحتين فى ملف واحد بدل من ملفين ؟!

عموماً تفضل لك ما طلبت

 

Basic.xlsm Next.xlsx

[Ali Mohamed Ali]

اذا كان هناك شيتين منفصلين فلابد ومن الأفضل عمل المعادلات بهذا الكود

ويتم وضع هذا الكود فى الملف المراد وضع المعادلة به ,بعد الضغط على Alt F11 ثم فتح مديول جديد ولصق هذا الكود به وربطه بزر كما فى الملف المرسل لك

Sub ToList()
Dim finalrow As Long
Dim wsd As Workbook
Dim wsl As Workbook
Dim wsdd As Worksheet
Dim wsll As Worksheet
'Open Book with database
Set wsd = Workbooks.Open("C:\Users\Ali Mohamed\Desktop\Next.xlsx")'لابد من تغيير عنوان الملف هذا لما هو فى كمبيوترك
'Copy using Index and match to worksheet
   Set wsll = ThisWorkbook.Worksheets("Sheet1")
With wsll.Range("g2") < 0
wsll.Range("g2").Formula = "=INDEX([Next.xlsx]Sheet1!$B$2:$B$5000,MATCH(A2,[Next.xlsx]Sheet1!$A$2:$A$5000,0))"
'Copy row down based on first cell where formula is place
finalrow = wsll.Cells(Rows.Count, 1).End(xlUp).Row
wsll.Range("g2").AutoFill Destination:=wsll.Range("g2:g" & finalrow)
End With
'Activate sheet where formula is placed
wsll.Activate
wsll.Cells(1, 1).Activate
End Sub

أما فى حالة نفس الملف بصفحتين مختلفين فالأمر لا يحتاج سوى معادلة Index & Match عادية ولا يحتاج الأمر الى كود

=IFERROR(INDEX(Sheet1!$B:$B,MATCH(A2,Sheet1!$A:$A,0)),"")

 

[Ali Mohamed Ali]

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

 

New.xlsx

[ahmedalyalshahat]

الله ينور عليك يا غالى جربتها فى ملف تانى ونفعت تمام بس باجى على الملف اللى عاوز اشتغل عليه مش بيرضى بشيل التنسيق بتاع الرقم القومى هنا وهنا ومش بيرضى برضه يظهر 

[Ali Mohamed Ali]

تم ضبط الملف وتم  الإرسال 

[ahmedalyalshahat]

تسلم يا غالى ربنا يبارك فيك معلش اسف ممكن شرع ( للى تم ) او كان العيب فى ايه علشان الشهور اللى بعد كده 

 

[Ali Mohamed Ali]

نفس اللى قلته لك قبل ذلك تنسيق الرقم القومى كانوا غيى متطابقين بالصفحتين

فتم ضبط التنسيق وعلى ذلك فالمعادلة تمت بكل كفاءة