جلال الجمال_ابو أدهم قام بنشر فبراير 12, 2017 مشاركة قام بنشر فبراير 12, 2017 تم رفع هذا الكود فى مشاركة منفصله كيفية منع تكرار الأرقام والأسماء حتى لا ننسى هذه المشاركة من الفاضل ا / 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 و لا تنسونا من صالح الدعاء تحياتى رابط هذا التعليق شارك More sharing options...
مجدى يونس قام بنشر فبراير 12, 2017 مشاركة قام بنشر فبراير 12, 2017 ربنا يكرمك رابط هذا التعليق شارك More sharing options...
جلال الجمال_ابو أدهم قام بنشر فبراير 12, 2017 الكاتب مشاركة قام بنشر فبراير 12, 2017 مجدى يونس الاخ و المعلم الفاضل جزاك الله خيرا تحياتى رابط هذا التعليق شارك 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.