حذف الصفوف المكررة

[alexandrien]

لدي ملف به ورقتين عمل كل ورقة منهم تحتوي على بيانات تتشابه بعض الصفوف في عمود الرقم

المطلوب حذف الصف المتكرر بكامل بياناته في كلتا الورقتين والابقاء فقط على الصفوف التي لم تتكرر في الورقتين ؟

هل من مساعدة ؟

[b]يوجد ملف في المرفقات يوضح المطلوب

وأرجو شرح طريقة الحل

____.rar

[عادل حنفي]

السلام عليكم

اخي الفاضل جرب المرفق

تحياتي

____1.rar

[ابو اسامة العينبوسي]

السلام عليكم

استاذ عادل كود جميل

ممكن كودك يكون هكذا ؟

Application.ScreenUpdating = False
For i = 2 To 10
Sheets("2").Select
For ii = 2 To 11
If Sheets("1").Cells(i, 1) = Sheets("2").Cells(ii, 1) And Sheets("1").Cells(i, 2) = Sheets("2").Cells(ii, 2) Then
Sheets("1").Cells(i, 1).EntireRow.Delete
Sheets("2").Cells(ii, 1).EntireRow.Delete
End If
Next
Next
On Error Resume Next
Application.ScreenUpdating = True

[عادل حنفي]

السلام عليكم

اخي الحبيب ابو اسامه

بارك الله فيك و دائما انت مرجع لنا

و لكن اخي الكود بالفعل كان علي هذا الشكل و لكني و جدت ان الصف الذي به ال ب

لم يتم حذفه لذا اضفت الباقي من الكود

ارجو منك كتابة كودك علي الملف و تجربته و رؤية النتيجة

فهل بالفعل كما حدث معي او ان هناك شئ ناقص لاني بالفعل احترت من الصف الذي لم يحذف

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

خالص تحياتي و تقديري

[ابو اسامة العينبوسي]

السلام عليكم

اضفنا حلقه ثانيه بمقدرا حركتين

ان الاخ يريد حذف المتكرر في عمود الرقم

Application.ScreenUpdating = False
For x = 1 To 2
For i = 2 To 11
For ii = 2 To 11
If Sheets("1").Cells(i, 2) = Sheets("2").Cells(ii, 2) Then
Sheets("1").Cells(i, 2).EntireRow.Delete
Sheets("2").Cells(ii, 2).EntireRow.Delete
End If
Next ii
Next i
Next x
On Error Resume Next
Application.ScreenUpdating = True

تم تعديل أبريل 14, 2009 بواسطه ابو اسامة العينبوسي

[alexandrien]

ولكن يا اخواني كيف انفذ كل هذا الكلام

انا مش فاهم حاجة

اكتب فين الكود ده ؟

وشكرا