أكاديمية الصقر للتدريب

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


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





تعديل على الكود لكي يقوم بمسح الصفوف المكرر الاعلى

السلام عليكم ممكن التعديل على الكود لكي يقوم بمسح الصف او الصفوف التي تحتوي على الاسم المكرر في العمود B الكود يمسح الصف ..



17-06-2020 05:30 مساء
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 

السلام عليكم ممكن التعديل على الكود لكي يقوم بمسح الصف او الصفوف التي تحتوي على الاسم المكرر في العمود B الكود يمسح الصفوف المكرره الحديثة انا محتاج ان يقوم بمسح الصفوف القديمه ويبقي الصف الحديث.
مع جزيلا الشكر والتقدير للمجهود الجميع
Sub DeleteDups()

Dim x               As Long
Dim LastRow         As Long

    LastRow = Range("B50000").End(xlUp).Row
    For x = LastRow To 1 Step -1
        If Application.WorksheetFunction.CountIf(Range("B1:B" & x), Range("B" & x).Text) > 1 Then
            Range("B" & x).EntireRow.Delete
        End If
    Next x

End Sub

 

17-06-2020 05:40 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif تعديل على الكود لكي يقوم بمسح الصفوف المكرر الاعلى
وعليكم السلام
كفكرة أخي أبو طيبة جرب تعكس الحلقة التكرارية المعكوسة
For x = LastRow To 1 Step -1

استبدل السطر السابق بالسطر التالي
For x = 1 To lastRow 

ولكن ما بين الحلقة لا تقم بالحذف بشكل مباشر بل خزن أرقام الصفوف في متغير ثم قم بالحذف مرة واحدة في النهاية

19-06-2020 03:19 مساء
مشاهدة مشاركة منفردة [2]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif تعديل على الكود لكي يقوم بمسح الصفوف المكرر الاعلى
اسف عل تاخير بالرد استاذ ياسر بسبب انقطاع النت في المنطقه، الطريقة لم تعمل انا محتاج ان يقوم الكود بمسح الاسم المكرر القديم والاحتفاظ بالجديد كما هو موظح بالملف مع جزيل الشكر والامتنان لحضرتك 
 
 
  نموذج ملف العمل .xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(18.574) KB


19-06-2020 05:02 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif تعديل على الكود لكي يقوم بمسح الصفوف المكرر الاعلى
طالما أن الاسم مكرر ما يضر مسح القديم من الجديد .. فالاسم واحد !!
ويفضل وضع صورة توضح فيها المشكلة ، ربما أكون قد أسأت الفهم.

19-06-2020 06:14 مساء
مشاهدة مشاركة منفردة [4]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif تعديل على الكود لكي يقوم بمسح الصفوف المكرر الاعلى
التوضيح بالمرفق
 
  Unt.jpg   تحميل jpg Unt.jpg مرات التحميل :(3)
الحجم :(137.873) KB
 


19-06-2020 09:56 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif تعديل على الكود لكي يقوم بمسح الصفوف المكرر الاعلى
جرب الكود بهذا الشكل عله يفي بالغرض إن شاء الله
Sub Delete_Duplicates_Keep_Last_Record()
    Dim r As Range, m As Long, x As Long
    Application.ScreenUpdating = False
        m = Cells(Rows.Count, 2).End(xlUp).Row
        For x = 1 To m
            If Range("B" & x) <> "" Then
                If Application.WorksheetFunction.CountIf(Range("B" & x & ":B" & m), Range("B" & x).Text) > 1 Then
                    If r Is Nothing Then Set r = Range("B" & x) Else Set r = Union(r, Range("B" & x))
                End If
            End If
        Next x
        If Not r Is Nothing Then r.EntireRow.Delete
    Application.ScreenUpdating = True
End Sub

20-06-2020 03:36 مساء
مشاهدة مشاركة منفردة [6]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif تعديل على الكود لكي يقوم بمسح الصفوف المكرر الاعلى
عاشت ايدك استاذ ياسر على هذا الكود 
هل يمكن جعل الكود يمسح خلايا B/C/D/E
دون ان يمسح كل خلايا الصف 
وبارك الله بيك




الكلمات الدلالية
يقوم ، الكود ، تعديل ، بمسح ، الصفوف ، المكرر ، الاعلى ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 08:50 صباحا