بكار للأبد قام بنشر مارس 31, 2012 قام بنشر مارس 31, 2012 السلام عليكم رحمة الله وبركاته عندى ملف فيه أسماء موظفين يزيد على ألفين موظف وفيهم أسماء متكررة أكثر من مرة فمثلا الأسم الواحد يتكرر كل شهر لكتابة بياناته ولهذا زاد حجم الملف وأصبح التعامل معه صعب ، فهل من طريقة أجعل وأوحد الأسماء لإسم واحد فقط بدون تكرار مع الاحتفاظ بكافة بياناته الموجودة مع متكرراته؟ وبحيث لما أضيف عليه بعد كدة تذهب البيانات الجديدة تحت بياناته القديمة مع توحيد الإسم .. (وعلى فكرة لما هاتشوفوا الملف هاتدرجوا وهاتفهموا حجم المشكلة) . ولتقليل الحجم رفعت نسخة منه فيها حوالى مائة موظف فقط للتطبيق عليها وياريت تعرفونى إزاى أضيف عليها باقى الموظفين وأعدل فيها والشكر موصول لكم ولمنتداكم الأغر وها هو الملف
دغيدى قام بنشر مارس 31, 2012 قام بنشر مارس 31, 2012 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
بكار للأبد قام بنشر مارس 31, 2012 الكاتب قام بنشر مارس 31, 2012 عذراً سيدى ، ولكنى لا أفقه شيئاُ فى الفيجوال بيزك فهل أطمع أن تضعه لى فى الملف وتقول لى كيف أظهره وأعدل عليه وجزاكم الله كل خير
دغيدى قام بنشر مارس 31, 2012 قام بنشر مارس 31, 2012 أخى الفاضل اليكم الملف الأصلى الخاص بالزميل هشام شلبى حذف المكرر.rar
بكار للأبد قام بنشر أبريل 1, 2012 الكاتب قام بنشر أبريل 1, 2012 سيدى الفاضل يبدو اننى لم أستطع توصيل المراد لكم فتقبل أسفى إننى أريد أن يحذف المتكرر من الأسماء فقط ولكن يبقى على البيانات الموجودة بجانب الأسماء المتكررة (فمثلا إذا حذف إسم (محمد 2) يحذفه فقط ولكن يبقى على البيانات المكتوبة بجواره أن أن يظهر الإسم الأول ولكن يضم بيااته بالإضافى إلى بيانات نفس الغسم تحته وكلما أضيف بينات جديدة لنفس الإسم فى شهر جديد مثلا تذهب تحته تلقائيا بدون الحاجة لتكرار نفس الإسم مرة أخرى) . ولهذا فقد أرفقت ملف به أسامى قليلة للتطبيق عليه حتى أنسخ إليه باقى الأسماء الأخرى .
أبو عبد النور قام بنشر أبريل 2, 2012 قام بنشر أبريل 2, 2012 السلام عليكم في الملف المرفق ستجد تصورا لاختصار الاسماء والبيانات المصاحبة لها. اذا لم يناسبك الامر يمكنك وضع ملف يصور النتيجة التي ترجو الحصول عليها.
أبو عبد النور قام بنشر أبريل 3, 2012 قام بنشر أبريل 3, 2012 عذرا لعدم ارفاق الملف بسبب ضعف النت لدي. تفضل. تجميع البيانات حسب الاسماء.rar
بكار للأبد قام بنشر أبريل 3, 2012 الكاتب قام بنشر أبريل 3, 2012 هذا تصور رائع . جزاك الله كل خير ولكن هل عندك طريقة لجعل باقى الأسماء هكذا بشكل أوتوماتيك لأنه سيكون من المرهق جدا تصفية ما يزيد على ألفين إسم .
أبو عبد النور قام بنشر أبريل 4, 2012 قام بنشر أبريل 4, 2012 نعم تطبيق القلترة على الفي اسم ليس سهلا...
أبو عبد النور قام بنشر أبريل 6, 2012 قام بنشر أبريل 6, 2012 أخي بكار للأبد، هل لك تصور واضح لما تريد الوصول اليه ؟
أبو عبد النور قام بنشر أبريل 9, 2012 قام بنشر أبريل 9, 2012 بعد تفحص الملف لاحظت ان هناك نفس الاسم يتكرر في نفس الشهر ؟ هل هذا طبيعي ؟
بكار للأبد قام بنشر أبريل 27, 2012 الكاتب قام بنشر أبريل 27, 2012 عذرا لظروف السفر المفاجىء هذا ما قصدته منذ البداية يا سيدى الفاضل فالإسم الواحد قد يدخل عليه أكثر من قيمة فى نفس الشهر ولكنى اضطررت لتكرار نفس الإسم عند إدخال قيمة أخر فى نفس الشهر فأنا أريد أن أحذف الاسماء المتكرة فمثلا إذا كان هناك إسم محمد عيد تكرر 5 مرات فأنا أريد إسم واحد فقط لمحمد عيد ولكن فيه كل القيم التى اضطررت فيها لتكراره بجانبها . وشكراُ جزيلاً للتواصل الكريم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.