أبو حوده قام بنشر مارس 17, 2017 مشاركة قام بنشر مارس 17, 2017 لو سمحتم اخوانى الكرام عاوز الكود دة يبحث عن التكرار فى الاسماء لاخر الشيت لانه بيطبق البحث لحد اقصى 500 حقل انا عندى شيت بة 67000 حقل عاوزهم كلهم مرة واحدة ارجوا من حضراتكم سرعة الرد ولكم منى جزيل الشكر ومرفق المثال اللى هيطبق علية نقل اسماء الزبائن والكود 1.rar رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 17, 2017 مشاركة قام بنشر مارس 17, 2017 السلام عليكم الاخ الكريم / هاني الحلاج قم يتغيير الكود الموجود لديك بالملف الي الكود التالي وذلك فقط بزيادة النطاق المستخدم في الكود من 500 الي 100000 Sub salim() Dim Source_sheet, Target_sheet As Worksheet Dim Lrs, lrt As Integer Set Source_sheet = Sheets("البيانات"): Set Target_sheet = Sheets("قائمة باسماء الزبائن") Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Target_sheet.Range("a2:b100000").ClearContents Lrs = Source_sheet.Cells(Rows.Count, 1).End(3).Row Source_sheet.Range("a2:b" & Lrs).Copy Target_sheet.Activate With ActiveSheet .Range("a2").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=True .Range("$A$1:$B$100000").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes lrt = .Cells(Rows.Count, 1).End(3).Row .Range("a2:B" & lrt).SpecialCells(4).EntireRow.Delete .Range("a2").Select End With Source_sheet.Select Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub واخبرنا اذا كان هذا التعديل يفي بالغرض ام لا تقبل خالص تحياتي جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
أبو حوده قام بنشر مارس 18, 2017 الكاتب مشاركة قام بنشر مارس 18, 2017 الف شكر ياغالى بس الكودمش بيرضة يطبق معايا مش عارف الطريقة ياريت ممكن تعملة وانا هشوف التغيرات اللى حضرتك عملتها عليها علشان انا لسة مبتدئ ولك منى كل الشكر والتقدير رابط هذا التعليق شارك More sharing options...
أفضل إجابة حمادة عمر قام بنشر مارس 18, 2017 أفضل إجابة مشاركة قام بنشر مارس 18, 2017 تفضل اخي الكريم المرفق به الكود المطلوب ويعميل بطريقة سليمه ان شاء الله وشاهد البيانات في الصف رقم 520 -521 -522 - 523 تقبل خالص تحياتي نقل اسماء الزبائن والكود -sama.rar 1 رابط هذا التعليق شارك More sharing options...
أبو حوده قام بنشر مارس 22, 2017 الكاتب مشاركة قام بنشر مارس 22, 2017 الف الف شكر ياخى الكريم وربنا يجعلة فى ميزان حسناتك يارب 1 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 23, 2017 مشاركة قام بنشر مارس 23, 2017 جزاك الله خيرا اخي الكريم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان