البحث عن خليه في حقل بنفس الشيت

[ابو هاله النبلسي]

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

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

New Microsoft Excel Worksheet (2).xlsx

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

السؤال مبهم بعض الشيء

1- هل تريد ما موجود في العامود الاول وليس في الثاني؟؟

2-هل تريد ما موجود في العامود الثاني وليس في الاول؟؟

3-هل تريد المشترك بين العامودين؟؟

تم استخراج الفيم بواسطة المعادلات في الأعمدة من  I الى K  (الاعمدة مخفية لحسن الرؤية) لكن ليست مرتبة أبجدياً

على كل خال جرب هذا الماكرو يقوم بترتيب النتائج ابجدياً في الاعمدة من M  الى O

Option Explicit

Sub Exract_Common_Values()
        Rem This Macro Extract The common Of two Columns by Order
        Rem Created By Salim Hasbaya on 8/4/2020
If ActiveSheet.Name <> "Salim" Then GoTo Leave_Me_Please
Application.ScreenUpdating = False
Dim st, I%

If Range("M1").CurrentRegion.Rows.Count > 1 Then _
 Range("M1").CurrentRegion.Offset(1).Clear

st = "SUM(IF(COUNTIF($A$2:$A$44,$E$2:$E$44)+COUNTIF($E$2:$E$44,$A$2:$A$44)=2,1,0))"
st = Evaluate(st)

For I = 2 To st + 1
Range("M" & I).FormulaArray = _
  "=INDEX(E$2:E$44,SMALL(IF(COUNTIF($A$2:$A$44,$E$2:$E$44)+COUNTIF($E$2:$E$44,$A$2:$A$44)=2,ROW($E$2:$E$44)-ROW($E$2)+1),ROWS($A$1:A" & I - 1 & ")))"

Range("N" & I).FormulaArray = _
  "=INDEX(F$2:F$44,SMALL(IF(COUNTIF($A$2:$A$44,$E$2:$E$44)+COUNTIF($E$2:$E$44,$A$2:$A$44)=2,ROW($E$2:$E$44)-ROW($E$2)+1),ROWS($A$1:A" & I - 1 & ")))"

Range("O" & I).FormulaArray = _
  "=INDEX(G$2:G$44,SMALL(IF(COUNTIF($A$2:$A$44,$E$2:$E$44)+COUNTIF($E$2:$E$44,$A$2:$A$44)=2,ROW($E$2:$E$44)-ROW($E$2)+1),ROWS($A$1:A" & I - 1 & ")))"

Next
With Range("m1").CurrentRegion
.Value = .Value
.Sort KEY1:=.Cells(1, 1), Header:=1
    If .Rows.Count > 1 Then
       With .Offset(1).Resize(.Rows.Count - 1)
       .Interior.ColorIndex = 6
       .Borders.LineStyle = 1
       .InsertIndent 1
         With .Font
          .Size = 14: .Bold = True
         End With
       .Columns.AutoFit
       End With
    End If
End With
Leave_Me_Please:
Application.ScreenUpdating = True
End Sub

الملف مرفق

 

EXTRA_FOUND.xlsm

[ابو هاله النبلسي]

الله ينور عليك استاذ انتا منتظرك من البارحة 

استاذنا الفاضل انا احتاج المشترك في العمودين المكرر فقط لكن ابجديا مثلا 

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

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

الكود في Vba  لا يتعامل مع التنسيق الشرطي لانه يأخذ اللون الحقيقي للخلية وليس لونها من خلال التنسيق الشرطي

لفهم ما تريد

 ارجو ادراج جدول بسيط بالنتائج المتوقعة(يدوياً) مع اختصار البيانات الى  7 او 10 صفوف لا أكثر (كي يمكن تتبع عمل الكود)

لا ضرورة لكتابة اسماء طويلة يمكن استعمال الأحرف مثالاً    A3   A2    A1 .... و ذلك لسرعة مقارنة النتائج

[ابو هاله النبلسي]

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

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

3 دقائق مضت, ابو عبد الرحمن العراقي said:

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

الملف الدي ارسلته لك يعمل هذا الشيء

و يضع النتيحة في الاعمدة    M,N,O

[ابو هاله النبلسي]

الشرح استاذي @سليم حاصبيا في داخل الملف 

EXTRA_FOUND (1).xlsm

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

هذا الأنك تقوم  بالترتيب على كل الاعمدة   من A الى G

لذلك يجب ان تقوم بالتصفية في العامود A فقط

[ابو هاله النبلسي]

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

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

تفضل

EXTRA_FOUND (2).xlsm

[ابو هاله النبلسي]

كلمة شكر قليل بحقك استاذ @سليم حاصبيا يا امير وبارك الله يا طيب والله يحفظ لبنان واهل لبنان وتعيش الثورة