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

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


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





حذف خلايا متشابهة من عدة أوراق دفعة واحدة

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



09-05-2020 03:30 مساء
nyfmpha
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 24
المشاركات : 40
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 44
 offline 

السلام عليكم
مصنف به ستة أوراق
الأولى قائمة أسماء الأوراق المطلوب منها الحذف
الثانية الرئيسة و يها يوجد الكود الرئيسي
عندما أقف على خلية نشطة و يكون هذا الكود موجود بأوراق أخرى أريد حذف السطر المكون من 3 خلايا بشرط وجود اسم الورقة في قائمة أسماء الأوراق
عملت على الكود لكن نجحت لحد تحديد أسماء الأوراق المطلوب الحذف منها و لم أستطع الحذف
المساعدة اذا أمكن
 
 
  nyeftest.rar   تحميل rar مرات التحميل :(3)
الحجم :(22.924) KB


09-05-2020 09:37 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif حذف خلايا متشابهة من عدة أوراق دفعة واحدة
وعليكم السلام
جرب الكود التالي عله يفي بالغرض إن شاء الله
Private Sub CommandButton1_Click()
    Dim sh As Worksheet, lastRow As Long, k As Long, m As Long, r As Long
    With ThisWorkbook.Sheets("name_list")
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        For k = 2 To lastRow
            For Each sh In Worksheets
                If sh.Name = .Cells(k, 1).Value Then
                    If ActiveCell.Rows.Count = 1 Then
                        With ThisWorkbook.Worksheets(CStr(.Cells(k, 1).Value))
                            m = .Cells(.Rows.Count, 1).End(xlUp).Row
                            For r = 2 To m
                                If .Cells(r, 1) = Cells(ActiveCell.Row, 1).Value And .Cells(r, 2) = Cells(ActiveCell.Row, 2).Value And .Cells(r, 3) = Cells(ActiveCell.Row, 3).Value Then
                                    .Cells(r, 1).Resize(1, 3).Delete
                                End If
                            Next r
                        End With
                    End If
                End If
            Next sh
        Next k
    End With
End Sub

09-05-2020 10:48 مساء
مشاهدة مشاركة منفردة [2]
nyfmpha
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 24
المشاركات : 40
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 44
 offline 
look/images/icons/i1.gif حذف خلايا متشابهة من عدة أوراق دفعة واحدة
انتظرت ردك طويلا
شكرا لك
الكود ممتاز
لكن به نقص
تسلسل الاوراق يلعب دور
يعني المسح يكون باتجاه واحد
اريد المسح ان يكون بداية من اي ورقة
جرب المسح من الورقة mm بعد ادراج الوررقة oo اسمها في. القائمة
 

10-05-2020 01:13 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif حذف خلايا متشابهة من عدة أوراق دفعة واحدة
لم أفهم المشكلة بشكل جيد ..هل من الممكن وضع الصور للتوضيح؟
المفترض أن الكود يقوم بعمل حلقة تكرارية لكل أوراق العمل الموجودة في القائمة ويقوم بالحذف في حالة وجود صفوف متشابهة

10-05-2020 07:30 صباحا
مشاهدة مشاركة منفردة [4]
nyfmpha
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 24
المشاركات : 40
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 44
 offline 
look/images/icons/i1.gif حذف خلايا متشابهة من عدة أوراق دفعة واحدة
السلام عليكم
عند تنفيذ الأمر من ورقة main و هي الأولى بين الأوراق يتم تنفيذ الأمر بتجاح
عند تنفيذ الأمر من ورقة mm و هي الثالثة بين الأوراق
يتم حذف الخلايا من mm و من  nn و هي الثانية بين الأوراق لكن oo لا يتم تنفيذ الأمر و هي الرابعة بين الأوراق
أرفقت ملف جديد به الكود الطلوب
أرفقت صورة 1 تم الأمر بتجاح
أرفقت صورة 2 المشكلة

 
 
  mzin.jpg   تحميل jpg mzin.jpg مرات التحميل :(0)
الحجم :(67.041) KB
  123.jpg   تحميل jpg 123.jpg مرات التحميل :(0)
الحجم :(96.377) KB
 
  nyeftest.rar   تحميل rar مرات التحميل :(0)
الحجم :(28.449) KB


10-05-2020 10:48 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif حذف خلايا متشابهة من عدة أوراق دفعة واحدة
المفترض أن يتم تنفيذ الأمر من الورقة main حيث أن زر الأمر فيها ولذا لم أضع إشارة للورقة 
إذا كنت ستنفذ الكود من ورقة أخرى يجب الإشارة إلى الورقة main ربما يكون هذا هو سبب المشكلة
حاول حل المشكلة بنفسك وقم بالإشارة لورقة العمل main في الكود .. الأوراق الأخرى مشار إليها .. انظر للكود بشكل جيد وابحث عن Cells أو Range أو Row أو Column أي ابحث عن أي إشارة لأي نطاق وضع قبله إشارة لورقة العمل 

10-05-2020 02:42 مساء
مشاهدة مشاركة منفردة [6]
nyfmpha
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 24
المشاركات : 40
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 44
 offline 
look/images/icons/i1.gif حذف خلايا متشابهة من عدة أوراق دفعة واحدة
شكرا أخي الكريم
رح جرب كل الملاحظات اللي عطيتني
آسف للأزعاج




الكلمات الدلالية
خلايا ، متشابهة ، أوراق ، دفعة ، واحدة ،


 










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

الساعة الآن 05:48 صباحا