ترتيب جدولين حسب بيانات الجدول الاول

[ehab ali926]

اهلا

لدى عدد 2 جدول بهم بيانات

اريد ارتيب الجدول الثانى حسب بيانات الجدول الاول .... حسب المرفق

TW.xlsx

[lionheart]

Sub Test()
    Dim rng As Range
    Application.ScreenUpdating = False
        With ActiveSheet
            Set rng = .Range("H2:L" & .Cells(Rows.Count, "H").End(xlUp).Row)
            With rng
                With .Columns(.Columns.Count)
                    .Formula = "=MATCH(H2,B:B,0)"
                    .Value = .Value
                    rng.Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlYes
                    .ClearContents
                End With
            End With
        End With
    Application.ScreenUpdating = True
End Sub

 

[omar elhosseini]

اخي lionheart

احسنت

كود جيد

[ehab ali926]

شكرا استاذ lionheart على المجهود

لا اقدر استخدام الكود ..

اريد استخدام معادلة تاتى بالنتائج

[عبدللرحيم]

جرب ملفك بكود الخبير lionheart

 

TW.xlsm