بسم الله الرحمن الرحيم
السلام عليكم ورحمته الله وبركاته
وكل عام انتم جميعا بخير ورمضان كريم
المطلوب بحول الله تعالى من فضل حضراتكم
تنفيذ الكود المبين بالمرفق التالى من خلال شيت رقم 2
ليتم ترحيل الاسماء المكررة بشيت رقم 5
المشكلة مع تنفيذ الكود يتم حذف محتوى شيت 2 بالكامل
مع وجود السطر التالى
Range("A8").Resize(Cells(Rows.Count, "A").End(xlUp).Row).EntireRow.Delete
بارك الله فيكم وجزاكم الله خيرا
إستخراج الاسماء المكررة اعتمادا على رقم الهوية وترحيل المكرر بشيت منفصل.rar