ehab ali926 قام بنشر مايو 1, 2022 مشاركة قام بنشر مايو 1, 2022 اهلا لدى عدد 2 جدول بهم بيانات اريد ارتيب الجدول الثانى حسب بيانات الجدول الاول .... حسب المرفق TW.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة lionheart قام بنشر مايو 1, 2022 أفضل إجابة مشاركة قام بنشر مايو 1, 2022 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 5 رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر مايو 1, 2022 مشاركة قام بنشر مايو 1, 2022 اخي lionheart احسنت كود جيد 1 رابط هذا التعليق شارك More sharing options...
ehab ali926 قام بنشر مايو 2, 2022 الكاتب مشاركة قام بنشر مايو 2, 2022 شكرا استاذ lionheart على المجهود لا اقدر استخدام الكود .. اريد استخدام معادلة تاتى بالنتائج رابط هذا التعليق شارك More sharing options...
عبدللرحيم قام بنشر مايو 2, 2022 مشاركة قام بنشر مايو 2, 2022 جرب ملفك بكود الخبير lionheart TW.xlsm رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.