كود لحذف المكرر

[الشيباني1]

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

فرز ومسح المكرر.rar

[عبدالله بشير عبدالله]

السلام عليكم

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

فرز ومسح المكرر.rar

[الشيباني1]

اخي العزيز تحية طيبه  مرفق الرساله التي تظهر عند التطبيق على ملفكم المرفق مع الشكر

[عبدالله بشير عبدالله]

اخي الفاضل

تمت تجربة الملف مرة اخري وشغال بكفاءة

الرسالة توضح ان  محرر الاكواد لا يدعم الخاصية

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

لان خاصية ازالة التكرار لا توجد في 2003

جرب الملف على اصدار 2007 او ما فوق وابلغني بالنتيجة

في حفظ الله

[الشيباني1]

اخي العزيز  الكود كان اصلا ضمن اصدار 2003 وانا عملي اصلا على هذا الاصدار  تحياتي

[عبدالله باقشير]

السلام عليكم

 

جرب الكود التالي

Sub kh_Sort_Delete()

Dim Cel As Range
Dim LR As Long, R As Long

LR = Sheets("المدخلات").Range("a" & Rows.Count).End(xlUp).Row

With Sheets("المدخلات").Range("A3:Y" & LR)
    .Sort .Columns(1), xlAscending
    For R = 1 To .Rows.Count
        If WorksheetFunction.CountIf(.Cells(1, "A").Resize(R), .Cells(R, "A")) > 1 Then
            If Cel Is Nothing Then Set Cel = .Cells(R, "A") Else Set Cel = Union(Cel, .Cells(R, "A"))
        End If
    Next
End With
If Not Cel Is Nothing Then Cel.EntireRow.Delete
Set Cel = Nothing
End Sub

واشعرنا بانتيجة

 

تحياتي

[الشيباني1]

استاذنا القدير هذا ماكنت احتاجه فعلا ادامك الرحمن لنا منقذا

[عبدالله باقشير]

جزاكم الله خيراً