اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

السلام عليكم

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

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

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

فروق الجرد.xls

رابط هذا التعليق
شارك

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

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

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

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

 

 

 

DEfference.xls

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

الفارس

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

رابط هذا التعليق
شارك

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

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

لكم تحياتي

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

  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information