مقارنة بيانات جدولين

[يوسف السيد]

السلام عليكم

اخواني واساتذتي الكرام

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

تم شرح المطلوب بالتفاصيل في المرفقات مع النتائج المرجوة

وشكرا مقدما

مقارنة بيانات.xlsm

تم تعديل مارس 24, 2018 بواسطه يوسف السيد

[shreif mohamed]

وعليكم السلام

Sub sh24mar2018()
    Dim a, b As Long
    Dim aa, bb As Long
    Dim rng1, rng2 As Range
    a = Range("a" & Rows.Count).End(xlUp).Row
    b = Range("f" & Rows.Count).End(xlUp).Row
    For aa = 5 To a
        For bb = 5 To b
            If Cells(aa, 2) = Cells(bb, 7) Then
                If Cells(aa, 2) + Cells(aa, 3) + Cells(aa, 4) = _
                   Cells(bb, 7) + Cells(bb, 8) + Cells(bb, 9) Then
                    Cells(bb, 7).Interior.Color = 194
                    Cells(aa, 2).Interior.Color = 194
                End If
            End If
        Next
    Next
    Set rng1 = Range("a4", Range("a" & a))
    Set rng1 = Range(rng1, rng1.End(xlToRight))
    Set rng2 = Range("f4", Range("f" & b))
    Set rng2 = Range(rng2, rng2.End(xlToRight))
    rng1.Select
    Selection.AutoFilter Field:=2, Operator:=xlFilterNoFill
    Selection.SpecialCells(xlCellTypeVisible).Copy
    ActiveSheet.AutoFilterMode = False
    Range("k4").PasteSpecial
    rng2.Select
    Selection.AutoFilter Field:=2, Operator:=xlFilterNoFill
    Selection.SpecialCells(xlCellTypeVisible).Copy
    ActiveSheet.AutoFilterMode = False
    Range("p4").PasteSpecial
    rng1.Select
    Selection.AutoFilter Field:=2, Criteria1:=RGB(194, 0 _
                       , 0), Operator:=xlFilterCellColor
    Selection.SpecialCells(xlCellTypeVisible).Copy
    ActiveSheet.AutoFilterMode = False
    Range("u4").PasteSpecial
    Rows("4:13").Select
    Application.CutCopyMode = False
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

 

[Ali Mohamed Ali]

وممكن تجرب هذا بالمعادلات

 

مقارنة بيانات.xlsm

[kh_yh]

صديقي لماذا لايتم حذف البيانات اذا كان جميعهم متشابهات

[يوسف السيد]

الاستاذ /  شريف محمد .. الكود اكثر من رائع واعجبتني جدا فكرة جمع الارقام بالكود

الاستاذ/ علي محمد ... المعادلات ممتازة وجميلة

9 ساعات مضت, kh_yh said:

صديقي لماذا لايتم حذف البيانات اذا كان جميعهم متشابهات

اعتقد ان هذا افضل من اجل التدقيق والمراجعة

[shreif mohamed]

شكرا للعودة والافادة

بالتوفيق

تم تعديل مارس 25, 2018 بواسطه shreif mohamed