كود نقل الاسماء بدون تكرار لايعمل مباشرة الا اذا انتقلنا الاى ورقة اخرى

[skyblue]

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

الاساتذة المشرفين والاعضاء الافاضل حسب الموضوع اعلاه مرفق ملف به ايضاح

المشكلة ارجوا التكرم بالمساعدة في ايجاد حل لها

تحياتي لكم

اظهار الاسماء بدون تكرار.rar

[طارق محمود]

السلام عليكم

تفضل المرفق

تم تغيير أول سطر في الكود وإضافة سطر تالي مساعد له

ليتم التغير بناءا علي تغير العمود A وليس علي تنشيط الورقة

اظهار الاسماء بدون تكرار2.rar

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

الباشمهندس الرائع/ طارق

بارك الله فيك وفي أولادك ...

جزاكم الله خيراً

أيوا كدا ارجع لبيتك من تاني وبلاش تطول غيبتك علينا

أخوك أبو البراء

[skyblue]

الملف لايعمل ؟؟؟

[الحسامي]

بعد اذن استاذنا طارق ولاثراء الموضوع

اخي هذا مرفق فيه المطلوب لكن بكود جديد

اظهار الاسماء بدون تكرار11.rar

[skyblue]

يطولي في عمرك اخوي حسام ماشاء الله تبارك الله رجل متمكن في الاكواد . والله كان عندي احساس انك كترد على الموضوع وتغير الكود والحمد لله كما توقعت .

حفظك الله انت والاخوان اللي ردوا على موضوعي

[هشام شلبى]

السلام عليكم

==========

اخى الحبيب طارق "بارك الله فيك"

اخى الحبيب عماد "دوختنى معاك"

اخى skyblue

هذا تعديل بسيط على كودك المرفق ليعمل كما تريد

اظهار الاسماء بدون تكرار.rar

[يحيى حسين]

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

إضافة لحلول الأخوة الجميلة و الرائعة

جرب هذا الكود أخي

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim LastR As Long

LastR = Range("A" & Rows.Count).End(xlUp).Row

Range("a4:a" & LastR).AdvancedFilter xlFilterCopy, , Range("b4"), True

End Sub

 

إضافة لذلك أخي

على هذا الرابط يوجد طريقة إستخراج كشف غير مكرر بالمعادلات

http://excel4us.com/vb/showthread.php?t=59

=============

و دمتم في حفظ الله

[جمال جبريل]

ولكن يا استاذنا الجليل يحيى حسين انه يكرر بعض الاسماء مرة اخرى في العمود "B" ، شاهد الملف المرفق.

اظهار الاسماء بدون تكرار بعد الكتابة مباشرة - الاستاذ يحيى حسين.rar