ابحث عن كود أو أداه تقوم بتصفية ( وليس تصفية متقدمة ) للبيانات المتكرر فى عمود

[أناناس]

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

ابحث عن كود أو أداه تقوم بتصفية ( وليس تصفية متقدمة ) للبيانات المتكرر فى عمود

وبارك الله فيكم 

[Yasser Fathi Albanna]

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

جرب الملف المرفق عله المطلوب

الكود :

Sub ragab()
Application.ScreenUpdating = False
Range("F3:F1048576").ClearContents
LR = Cells(Rows.Count, 3).End(xlUp).Row
On Error Resume Next
For i = 3 To LR
cl = Trim(Cells(i, 3))
x = UBound(Filter(Split(MyArr, ","), cl)) + 1
If x = 0 Then MyArr = MyArr & Trim(cl) & ","
Next
MyArr = Left(MyArr, Len(MyArr) - 1)
For Each y In Split(MyArr, ",")
Cells(Cells(Rows.Count, 6).End(xlUp).Row + 1, 6) = y
Next
Application.ScreenUpdating = True
End Sub

 

فصل المكرر.rar

[ياسر خليل أبو البراء]

أخي الحبيب ياسر البنا

الملف المرفق غير مطابق للمواصفات الأوفيسنية حيث أنه لا يحتوي على بيانات لتجربة الكود كما أن محرر الأكواد محمي

تقبل مخالفتي بصدر رحب ... طبعاً بهزر معاك لتاخد الكلام جد

تقبل تحياتي

[Yasser Fathi Albanna]

حبيبى الغالى أ / ياسر خليل

أنا مقدرش أزعل منك أبدا بس أنا رديت بسرعة على الموضوع

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

مرفق الملف مع فتح محرر الأكواد ويوجد مثال لأسماء مكررة للتجربه

 

فصل المكرر.zip

[ياسر خليل أبو البراء]

بارك الله فيك أخي الحبيب ياسر على حسن استجابتك

هكذا يكون العمل .. يسر على إخوانك ييسر الله عليك

والشكر موصول لصاحب الكود الأخ الغائب عن العين الحاضر في القلب الأخ الغالي المتميز رجب جاويش

تقبلوا تحياتي