المساعدة في المطابقة بين كتب (المقارنة بين عمودين)

[مصطفى الفارس]

السلام عليكم

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

نريد الفرق بين الجدولين من حيث الكتب هل يمكن ذالك 
الملف مدرج بامكانكم الاطلاع علية 

شكرا لكم جميعا 
 بأنتضار الرد
 

فروق الجرد.xls

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

بصراحة الملف عندك مخربط بعض الشيء(اي هناك مسافات زائدة ومسافات ناقصة في الاسما  بحيث لا يمكن المقارنة)

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

مثلاً ربيع أبو العز في نظر اكسل غير    ربيع   أبو العز لان هناك مسافة زائدة بين ربيع و أبو

بعد ترتيب الاسماء كما يجب  يمكنك استعمال المعادلات في الملف المرفق (مختصر جداً حوالي 20 اسم) وسحب المعالات الى اخر صف به بيانات

 

 

 

DEfference.xls

[مصطفى الفارس]

السلام عليكم

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

شكرا لكم اتمنى المساعدة منك 
 والله ولي التوفيق 

العفو منكم اريد التعديل حسب هذا الملف هل يمكن ذالك الأن  اعتقد الامر مستحيل ان اعرف الفرق فين .

الفارس

جرد المالية.xls

[مصطفى محمود مصطفى]

بعد اذن استاذنا الكبير سليم جزاه الله خيرا

اليك الحل حسب ما طلبت بان تريد تعرف الفرق اثناء الجرد السنوي للمكتبة

لكم تحياتي

فروق الجرد +++).xls

[مصطفى الفارس]

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

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

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

Option Explicit
Sub Get_dif()
  Dim M As Worksheet, NT As Worksheet, NZ As Worksheet
  Dim LM As Single, LN As Single, i As Single
  Dim Dic_M As Object, Dic_N As Object


  Set M = Sheets("المالية")
  Set NZ = Sheets("النظام")
  Set NT = Sheets("النتائج")
  Set Dic_M = CreateObject("Scripting.Dictionary")
  Set Dic_N = CreateObject("Scripting.Dictionary")

NT.Range("a1").CurrentRegion.ClearContents

LM = M.Cells(Rows.Count, 1).End(3).Row
LN = NZ.Cells(Rows.Count, 1).End(3).Row
 
 For i = 1 To LM
  If M.Range("A" & i) <> "" Then
   Dic_M(M.Range("A" & i).Value) = ""
  End If
 Next
 For i = 1 To LN
   If IsError(Application.Match(NZ.Range("A" & i), Dic_M.keys, 0)) Then
     Dic_N(NZ.Range("A" & i).Value) = ""
   End If
 Next
 NT.Range("A1").Resize(Dic_N.Count) = _
 Application.Transpose(Dic_N.keys)
 Set Dic_M = Nothing: Set Dic_N = Nothing
End Sub

الملف مرفق

 

Jard_Mali.xlsm

[مصطفى محمود مصطفى]

رائع استاذنا المبدع دائما استاذ سليم

وفقكم الله