alexandrien قام بنشر أبريل 12, 2009 مشاركة قام بنشر أبريل 12, 2009 لدي ملف به ورقتين عمل كل ورقة منهم تحتوي على بيانات تتشابه بعض الصفوف في عمود الرقم المطلوب حذف الصف المتكرر بكامل بياناته في كلتا الورقتين والابقاء فقط على الصفوف التي لم تتكرر في الورقتين ؟ هل من مساعدة ؟ [b]يوجد ملف في المرفقات يوضح المطلوب وأرجو شرح طريقة الحل ____.rar رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر أبريل 12, 2009 مشاركة قام بنشر أبريل 12, 2009 السلام عليكم اخي الفاضل جرب المرفق تحياتي ____1.rar رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر أبريل 13, 2009 مشاركة قام بنشر أبريل 13, 2009 السلام عليكم استاذ عادل كود جميل ممكن كودك يكون هكذا ؟ 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 رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر أبريل 13, 2009 مشاركة قام بنشر أبريل 13, 2009 السلام عليكم اخي الحبيب ابو اسامه بارك الله فيك و دائما انت مرجع لنا و لكن اخي الكود بالفعل كان علي هذا الشكل و لكني و جدت ان الصف الذي به ال ب لم يتم حذفه لذا اضفت الباقي من الكود ارجو منك كتابة كودك علي الملف و تجربته و رؤية النتيجة فهل بالفعل كما حدث معي او ان هناك شئ ناقص لاني بالفعل احترت من الصف الذي لم يحذف و بقيت امامه يوم كامل لمعرفة النقص لذا تحايلت بكود لون الخليه و التاكيد علي الحذف بماكرو اخر خالص تحياتي و تقديري رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر أبريل 14, 2009 مشاركة قام بنشر أبريل 14, 2009 (معدل) السلام عليكم اضفنا حلقه ثانيه بمقدرا حركتين ان الاخ يريد حذف المتكرر في عمود الرقم 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 بواسطه ابو اسامة العينبوسي رابط هذا التعليق شارك More sharing options...
alexandrien قام بنشر أبريل 15, 2009 الكاتب مشاركة قام بنشر أبريل 15, 2009 ولكن يا اخواني كيف انفذ كل هذا الكلام انا مش فاهم حاجة اكتب فين الكود ده ؟ وشكرا رابط هذا التعليق شارك 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.