مطلوب تكرار لاخر الشيت بواسطة الكود

[أبو حوده]

لو سمحتم اخوانى الكرام عاوز الكود دة يبحث عن التكرار فى الاسماء لاخر الشيت لانه بيطبق البحث لحد اقصى 500 حقل انا عندى شيت بة 67000 حقل عاوزهم كلهم مرة واحدة ارجوا من حضراتكم سرعة الرد ولكم منى جزيل الشكر ومرفق المثال اللى هيطبق علية 

نقل اسماء الزبائن والكود 1.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / هاني الحلاج

قم يتغيير الكود الموجود لديك بالملف الي الكود التالي

وذلك فقط بزيادة النطاق المستخدم في الكود من 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

واخبرنا اذا كان هذا التعديل يفي بالغرض ام لا

تقبل خالص تحياتي

جزاك الله خيرا

[أبو حوده]

الف شكر ياغالى بس الكودمش بيرضة يطبق معايا مش عارف الطريقة ياريت ممكن تعملة وانا هشوف التغيرات اللى حضرتك عملتها عليها علشان انا لسة مبتدئ  ولك منى كل الشكر والتقدير 

[حمادة عمر]

تفضل اخي الكريم المرفق به الكود المطلوب ويعميل بطريقة سليمه ان شاء الله

وشاهد البيانات في الصف رقم 520 -521 -522 - 523

تقبل خالص تحياتي

 

 

نقل اسماء الزبائن والكود -sama.rar

[أبو حوده]

الف الف شكر ياخى الكريم وربنا يجعلة فى ميزان حسناتك يارب 

[حمادة عمر]

جزاك الله خيرا اخي الكريم