kkfhvvv قام بنشر فبراير 21 مشاركة قام بنشر فبراير 21 السلام عليكم ممكن التعديل على الكود الذي يتضمن استدعاء بيانات بدون تكرار على اساس شروط ثلاثة وكما موضحة النتائج بشيت الارقام الكود حاليا يجلب البيانات بدون تكرار بنفس الشيت وتوجد بخ بعض الفقرات الناقصة اذ لا يجلب كل البيانات جلب التفاصيل.xlsm رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر فبراير 21 مشاركة قام بنشر فبراير 21 وضح المطلوب تفصيلا رابط هذا التعليق شارك More sharing options...
أفضل إجابة احمد عبدالحليم قام بنشر فبراير 21 أفضل إجابة مشاركة قام بنشر فبراير 21 السلام عليكم ورحمة الله وبركاته اخى الفاضل @kkfhvvv تفضل هذا الكود يقوم بتصفية البيانات للثلاث الاعمدة جربه لعله يكون المطلوب Sub RemoveDuplicatesRange() Dim lastRow As Long lastRow = Sheets("البيانات").Cells(Sheets("البيانات").Rows.Count, "O").End(xlUp).Row Sheets("البيانات").Range("O1:Q" & lastRow).Copy Sheets("ارقام").Range("A1").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False lastRow2 = Sheets("ارقام").Cells(Sheets("ارقام").Rows.Count, "A").End(xlUp).Row Sheets("ارقام").Range("$A$2:$C$" & lastRow2).RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlNo End Sub تقبل تحياتى 3 1 رابط هذا التعليق شارك More sharing options...
kkfhvvv قام بنشر فبراير 21 الكاتب مشاركة قام بنشر فبراير 21 (معدل) تمام 100 % احسنت جزيت خيرا جربت الكود - ممتاز واذا يوجد ابلغك تم تعديل فبراير 21 بواسطه kkfhvvv 1 رابط هذا التعليق شارك 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.