اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

لو سمحتم اخوانى الكرام عاوز الكود دة يبحث عن التكرار فى الاسماء لاخر الشيت لانه بيطبق البحث لحد اقصى 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

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information