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

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


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





تعديل في كود حدف البيانات لمكررة

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



14-07-2019 10:20 مساء
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 139
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 108
الاعجاب : 31
 offline 

لدي بيانات مخزنة في الورقة 1 ومكررة  اريد  جعل الصنف مرة واحدة لايتكرر  مع جمع قيمة الاصناف  المكرر ة  الرجاء المساعدة  في تعديل الكود  والنمودج الذي اريده تجده في الورقة 2
 
 
  كود حدف اليبانات المكررة.rar   تحميل rar مرات التحميل :(4)
الحجم :(15.375) KB







15-07-2019 08:42 صباحا
مشاهدة مشاركة منفردة [1]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 388
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 16
قوة السمعة : 3165
الاعجاب : 187
 offline 
look/images/icons/i1.gif تعديل في كود حدف البيانات لمكررة
تم تغيير اسماء الصفحات لسهولة نقل الكود بدون مشاكل اللغة العربية (حيث تظهر كلمات وأحرف غريبة)
الكود

Option Explicit

Sub del_Duplicates()
Rem ====>> Created By Salim On 15/7/2019
Dim lr1%
lr1 = Application.Max(Sheets("First_sh").Range("a2:a100"))
  Sheets("Second_Sh").Select
With Sheets("Second_Sh")
    .Range("A2").Resize(100, 7).Clear
    .Range("B2").Resize(lr1, 3).Value = _
     Sheets("First_sh").Range("B2").Resize(lr1, 3).Value
    .Range("A1").CurrentRegion.RemoveDuplicates _
     Columns:=Array(2, 3, 4) _
            , Header:=xlYes
     .Range("A2:A" & lr1).Formula = "=IF(B2="""","""",MAX($A$1:A1)+1)"
     .Range("E2:G" & lr1).Formula = _
     "=SUMIFS(First_sh!E$2:E$100,First_sh!$B$2:$B$100,First_sh!$B2)"
     .Range("A2:G" & lr1).Value = .Range("A2:G" & lr1).Value
 End With

End Sub


الملف مرفق
 
 
 
  Del_dup.rar   تحميل rar مرات التحميل :(7)
الحجم :(31.509) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، ابراهيم الحداد،




15-07-2019 10:59 صباحا
مشاهدة مشاركة منفردة [2]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 139
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 108
الاعجاب : 31
 offline 
look/images/icons/i1.gif تعديل في كود حدف البيانات لمكررة
اخي سليم  شكرا لك على الكود ولكن يوجد خطا عند اضافة عناصر في الورقة FIRST H والنقل الى ورقة  SECOND SH يحدث خطا في الارقام والتنسيق 







الكلمات الدلالية
لمكررة ، البيانات ، تعديل ،


 







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



الساعة الآن 02:41 صباحا

أعلن هنا
أعلن هنا
أعلن هنا