اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

السلام عليكم

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

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

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

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

  • تمت الإجابة
قام بنشر

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

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

تقبل تحياتى

  • Like 3
  • Thanks 1
قام بنشر (معدل)

تمام 100 %

احسنت

جزيت خيرا

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

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

تم تعديل بواسطه kkfhvvv
  • Like 1

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information