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

[ابو نبأ]

السلام عليكم

نسال الله العقو والعافية والسلامة والتوفيق لكم ولنا والمشرفين والعاملين والاعضاء والزوار ، وزداكم الله الرفعة والتوفيق على ما تقدمه من خدمة ، نسأله تعالى ان يحفظكم ويستر عليكم

عندي سؤال لتكملة الموضوع السابق ، وسؤالي موضح بالملف المرفق (هو ترحيل البيانات المتكررة الى شيت البيانات المكررة على اساس الاسم الثلاثي حصراً ، مثلاً : 

صباح محمد علي جاسم الكبيسي

صباح محمد علي 

صباح محمد علي جاسم 

صباح محمد علي جاسم الكبيسي 

فهذا يعتبر مكرر ، وهكذا 

السلام عليكم

 

البحث وترحيل الاسماء المكررة حسب الاسم الثلاثي.rar

[أبوعيد]

وعليكم السلام

تفضل

البحث وترحيل الاسماء المكررة 1.rar

[أبوعيد]

الحل السابق كان محصورا في الأسطر من 2 إلى 12 فقط

وهذا حل ديناميكي يبدا من السطر 2  ويمتد إلى جميع الأسطر

البحث وترحيل الاسماء المكررة 2.rar

[ابو نبأ]

السلام عليكم

جزاكم الله خير ، وفقكم الله وزداكم رفعة وعلما

هذا هو المطلوب

السلام عليكم

[سيف الدين حسام]

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

الاخخ الكريم أبو عيد 

ممكن شرح لهذا الجزء من الكود

 For i = 2 To Lr
        If InStr(CStr(.Cells(i, "A")), txt) Or InStr(CStr(.Cells(i, "B")), txt) Or InStr(CStr(.Cells(i, "C")), txt) Or InStr(CStr(.Cells(i, "D")), txt) Or InStr(CStr(.Cells(i, "E")), txt) Or InStr(CStr(.Cells(i, "F")), txt) Or InStr(CStr(.Cells(i, "G")), txt) Or InStr(CStr(.Cells(i, "H")), txt) Then
            Cells(R + 6, "A").Resize(1, 8).Value = .Cells(i, "A").Resize(1, 8).Value
            R = R + 1

[الشهابي]

أخي العزيز / أبو نبأ

ما شاء الله تبارك الله أخينا الأستاذ القدير / أبو عيد  عمل لك المطلوب جزاه الله خير 

هذه محاولة مني  للحل عملتها من يوم أمس بواسطة دالة معرفة لأستاذنا القدير عبد الله باقشير وكود آخر لفرز القيم هجائيا

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

تقبلوا تقديري واحترامي 

 

البحث وترحيل الاسماء المكررة حسب الاسم الثلاثي.rar

[ابو نبأ]

السلام عليكم

مشكور اخي الله يبارك بك

 

ممكن توسيع المدى ليصل الى أكثر من (500) اسم

 

والسلام عليكم

[ابو نبأ]

السلام عليكم

مشكور اخي الله يبارك بك

 

ممكن توسيع المدى ليصل الى أكثر من (500) اسم

 

والسلام عليكم

[ابو نبأ]

السلام عليكم

مشكور اخي الله يبارك بك

 

ممكن توسيع المدى ليصل الى أكثر من (500) اسم

 

والسلام عليكم

[الشهابي]

تفضل أخي العزيز تم توسيع المدى إلى (1000)

 

 

البحث وترحيل الاسماء المكررة حسب الاسم الثلاثي.rar

[أبو أنس80]

شی جميل جدا

تسلم يديكم

لكن ممكن ترحيل مجرد اسماء بها تكرار

يعني مكن بقاء اسم اسلي و ترحيل مكرر

[ابو نبأ]

السلام عليكم

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

عندي سؤال آخر جزاكم الله حول الموضوع نفسه

وهو : تبين لنا اثناء العمل وجود تكرار بالبيانات لأكثر من مرة ، وكما هو موضح بالملف المرفق في شيت جدول البيانات ، فعند ترحيل البيانات يرحل اسم واحد مكرر ولكن في جدول البيانات الاسم مكرر اكثر من مرة ، والاسماء التي تأتيني اصبحت بحدود (37000) الف اسم وقابلة للزيادة 

الله يرضى عليكم ممكن حل هذه المشكلة الجديدة ، وجزاكم الله خيرا ، والسلام عليكم

مثال - تكرار الاسم اكثر من مرة.rar

[الشهابي]

لكن ممكن ترحيل مجرد اسماء بها تكرار

يعني مكن بقاء اسم اسلي و ترحيل مكرر

أخي العزيز أعذرني لم أفهم ما تقصد

يعني هل تريد مثلا  بدلا من تكرار كتابة الاسم يكتب مكرر

أرجو التوضيح 

[الشهابي]

السلام عليكم

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

عندي سؤال آخر جزاكم الله حول الموضوع نفسه

وهو : تبين لنا اثناء العمل وجود تكرار بالبيانات لأكثر من مرة ، وكما هو موضح بالملف المرفق في شيت جدول البيانات ، فعند ترحيل البيانات يرحل اسم واحد مكرر ولكن في جدول البيانات الاسم مكرر اكثر من مرة ، والاسماء التي تأتيني اصبحت بحدود (37000) الف اسم وقابلة للزيادة 

الله يرضى عليكم ممكن حل هذه المشكلة الجديدة ، وجزاكم الله خيرا ، والسلام عليكم

 

 أعذرني لم أفهم المطلوب بشكل جيد ممكن توضح أكثر

والعفو 

 

[ابو نبأ]

السلام عليكم

بارك الله فيكم وجزاكم الله خيرا

المطلوب اخي هو : وجود اسماء مكررة اكثر من مرة في شيت (جدول البيانات) وعند اجراء عملية الترحيل يرحل اسم واحد فقط ، اريد اخي المبارك معرفة كم مرة تكرر الاسم 

والسلام عليكم

[الشهابي]

بالعكس عندي يرحل كافة الأسماء المكررة 

لاحظ الصورة بعد الترحيل 

 

[ابو نبأ]

السلام عليكم

جزاك الله خيراً ، لم انتبه لكثرة البيانات التي طبقت عليها الترحيل ، متأسف وشكراً على المرور والسلام عليكم