تعديل على كود (رفع المكرر على اساس شروط ثلاثة وترحيلها الى شيت اخر)

[kkfhvvv]

السلام عليكم

ممكن التعديل على الكود الذي يتضمن استدعاء بيانات بدون تكرار على اساس شروط ثلاثة

وكما موضحة النتائج بشيت الارقام

الكود حاليا يجلب البيانات بدون تكرار بنفس الشيت وتوجد بخ بعض الفقرات الناقصة اذ لا يجلب كل البيانات

جلب التفاصيل.xlsm

[abouelhassan]

وضح المطلوب تفصيلا

[احمد عبدالحليم]

السلام عليكم ورحمة الله وبركاته

اخى الفاضل @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

تقبل تحياتى

[kkfhvvv]

تمام 100 %

احسنت

جزيت خيرا

جربت الكود - ممتاز

واذا يوجد ابلغك

تم تعديل فبراير 21 بواسطه kkfhvvv