كود صغير جدا و لكن مفيد جدا_كود حذف صفوف الارقام و الاسماء المكرره عند ادخالها

[جلال الجمال_ابو أدهم]

تم رفع هذا الكود فى مشاركة منفصله  كيفية منع تكرار الأرقام والأسماء

حتى لا ننسى هذه المشاركة  من الفاضل ا /  asmo200666

 

Sub DeleteDups()

Dim x               As Long
Dim LastRow         As Long

    LastRow = Range("A65536").End(xlUp).Row
    For x = LastRow To 1 Step -1
        If Application.WorksheetFunction.CountIf(Range("A1:A" & x), Range("A" & x).Text) > 1 Then
            Range("A" & x).EntireRow.Delete
        End If
    Next x

End Sub

مرفق الملف و الشرح

منع المتكررات بالكود

الغاء الصفوف التى بها تكرار فى العمود A اول باول

Don__t_dupplicate.rar

 

و لا تنسونا من صالح الدعاء

تحياتى

[مجدى يونس]

ربنا يكرمك

[جلال الجمال_ابو أدهم]

مجدى يونس

الاخ و المعلم الفاضل جزاك الله خيرا
تحياتى