أبو حوده قام بنشر مارس 17, 2017 قام بنشر مارس 17, 2017 لو سمحتم اخوانى الكرام عاوز الكود دة يبحث عن التكرار فى الاسماء لاخر الشيت لانه بيطبق البحث لحد اقصى 500 حقل انا عندى شيت بة 67000 حقل عاوزهم كلهم مرة واحدة ارجوا من حضراتكم سرعة الرد ولكم منى جزيل الشكر ومرفق المثال اللى هيطبق علية نقل اسماء الزبائن والكود 1.rar
حمادة عمر قام بنشر مارس 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 واخبرنا اذا كان هذا التعديل يفي بالغرض ام لا تقبل خالص تحياتي جزاك الله خيرا
أبو حوده قام بنشر مارس 18, 2017 الكاتب قام بنشر مارس 18, 2017 الف شكر ياغالى بس الكودمش بيرضة يطبق معايا مش عارف الطريقة ياريت ممكن تعملة وانا هشوف التغيرات اللى حضرتك عملتها عليها علشان انا لسة مبتدئ ولك منى كل الشكر والتقدير
أفضل إجابة حمادة عمر قام بنشر مارس 18, 2017 أفضل إجابة قام بنشر مارس 18, 2017 تفضل اخي الكريم المرفق به الكود المطلوب ويعميل بطريقة سليمه ان شاء الله وشاهد البيانات في الصف رقم 520 -521 -522 - 523 تقبل خالص تحياتي نقل اسماء الزبائن والكود -sama.rar 1
أبو حوده قام بنشر مارس 22, 2017 الكاتب قام بنشر مارس 22, 2017 الف الف شكر ياخى الكريم وربنا يجعلة فى ميزان حسناتك يارب 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.