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

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


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

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

عندى ملف فيه أسماء موظفين يزيد على ألفين موظف وفيهم أسماء متكررة أكثر من مرة فمثلا الأسم الواحد يتكرر كل شهر لكتابة بياناته ولهذا زاد حجم الملف وأصبح التعامل معه صعب ، فهل من طريقة أجعل وأوحد الأسماء لإسم واحد فقط بدون تكرار مع الاحتفاظ بكافة بياناته الموجودة مع متكرراته؟ وبحيث لما أضيف عليه بعد كدة تذهب البيانات الجديدة تحت بياناته القديمة مع توحيد الإسم .. (وعلى فكرة لما هاتشوفوا الملف هاتدرجوا وهاتفهموا حجم المشكلة) .

ولتقليل الحجم رفعت نسخة منه فيها حوالى مائة موظف فقط للتطبيق عليها وياريت تعرفونى إزاى أضيف عليها باقى الموظفين وأعدل فيها

والشكر موصول لكم ولمنتداكم الأغر

وها هو الملف

رابط هذا التعليق
شارك


Sub فحص()

On Error Resume Next

Set ww = Application.WorksheetFunction

LastRow = Cells(Rows.Count, "B").End(xlUp).Row

Application.ScreenUpdating = False

Range("A6:A" & LastRow).ClearContents

Range(Cells(6, 10), Cells(1000, 10)).ClearContents

For R = 6 To LastRow

	   If ww.CountIf(Range("B6:B" & R), Cells(R, 2).Value) > 1 Then

		  Cells(1000, 10).End(xlUp).Offset(1, 0) = Cells(R, 2)

		  Range(Cells(R, 2), Cells(R, 15)).ClearContents

	  End If

Next

Range("B6:O1000").Sort [B5], xlAscending

For N = 6 To LastRow

	    If Cells(N, 2) <> "" Then

		   Cells(N, 1) = Cells(N, 2).Row - 5

	   End If

Next

Application.ScreenUpdating = True

Cells(6, 10).Select

On Error GoTo 0

End Sub


أخى الفاضل هذا الكود للزميل الفاضل هشام شلبى

عدل فيه بما يتناسب مع عملك حيث الأسماء فى العمود B

رابط هذا التعليق
شارك

عذراً سيدى ، ولكنى لا أفقه شيئاُ فى الفيجوال بيزك فهل أطمع أن تضعه لى فى الملف وتقول لى كيف أظهره وأعدل عليه وجزاكم الله كل خير

رابط هذا التعليق
شارك

سيدى الفاضل يبدو اننى لم أستطع توصيل المراد لكم فتقبل أسفى

إننى أريد أن يحذف المتكرر من الأسماء فقط ولكن يبقى على البيانات الموجودة بجانب الأسماء المتكررة (فمثلا إذا حذف إسم (محمد 2) يحذفه فقط ولكن يبقى على البيانات المكتوبة بجواره أن أن يظهر الإسم الأول ولكن يضم بيااته بالإضافى إلى بيانات نفس الغسم تحته وكلما أضيف بينات جديدة لنفس الإسم فى شهر جديد مثلا تذهب تحته تلقائيا بدون الحاجة لتكرار نفس الإسم مرة أخرى) .

ولهذا فقد أرفقت ملف به أسامى قليلة للتطبيق عليه حتى أنسخ إليه باقى الأسماء الأخرى .

رابط هذا التعليق
شارك

السلام عليكم

في الملف المرفق ستجد تصورا لاختصار الاسماء والبيانات المصاحبة لها.

اذا لم يناسبك الامر يمكنك وضع ملف يصور النتيجة التي ترجو الحصول عليها.

رابط هذا التعليق
شارك

هذا تصور رائع . جزاك الله كل خير

ولكن هل عندك طريقة لجعل باقى الأسماء هكذا بشكل أوتوماتيك لأنه سيكون من المرهق جدا تصفية ما يزيد على ألفين إسم .

رابط هذا التعليق
شارك

  • 3 weeks later...

  • عذرا لظروف السفر المفاجىء
  • هذا ما قصدته منذ البداية يا سيدى الفاضل
  • فالإسم الواحد قد يدخل عليه أكثر من قيمة فى نفس الشهر ولكنى اضطررت لتكرار نفس الإسم عند إدخال قيمة أخر فى نفس الشهر فأنا أريد أن أحذف الاسماء المتكرة فمثلا إذا كان هناك إسم محمد عيد تكرر 5 مرات فأنا أريد إسم واحد فقط لمحمد عيد ولكن فيه كل القيم التى اضطررت فيها لتكراره بجانبها .
  • وشكراُ جزيلاً للتواصل الكريم

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information