معرفة المكرر والحذف مع ترك الخليه فارغة

[أبو حوده]

السلام عليكم ورحمه الله وبركاته الاخوة الاعضاء الكرام والاساتذة الاجلاء 

بعد البحث فى المنتدى العظيم والتدقيق بحثا عن مبتغاى ولم اجدة لم اجد امامى سوى التوجه اليكم بطلب المساعدة فى المرفق التالى 

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

New ورقة عمل Microsoft Excel.xlsx

[سليم حاصبيا]

 

Option Explicit
Sub Keep_the_first()
With Sheets("ورقة1")
    Dim i, arr()
    Dim lr%: lr = .Cells(Rows.Count, 2).End(3).Row
    .Range("i1").Resize(lr).ClearContents
    ReDim arr(1 To lr)
    For i = 1 To lr
        If Application.CountIf(.Range("B1" & ":B" & i), .Range("B" & i)) = 1 Then
         '=============================
            arr(i) = .Range("B" & i)
         Else
            arr(i) = vbNullString
         End If
     Next
    
    .Range("I1").Resize(UBound(arr)) = _
    Application.Transpose(arr)
 End With
 Erase arr
End Sub

الملف مرفق

Hani.xlsm

[أبو حوده]

بسم الله ماشاء الله ربنا يزيدك يادكتور هههههههه

جميله جدا اقسم بالله كنت متأكد من رد حضرتك ههههه

تم بالفعل هو المطلوب 

[سليم حاصبيا]

يمكنك استعما ل هذه المعادلة ( اشارة  = في الاول و القوس في النهاية ) كل الحق على اللغة العربية

=IF(COUNTIF($B$1:$B1,$B1)>1,"",$B1)

 

[أبو حوده]

بالفعل تم التجربه والملف رائع جدا تسلم ايديك وتستاهل اكثر من ذلك ( اللهم إني أستودعتك شخص بعيد عن عيني قريب من قلبي اللهم إني أستودعتك راحة باله وسعادته وضحكته بحجم سمائك السابعه اللهم أرزق قلبه الراحة والطمأنينة والفرح والامان اللهم اجعل له بكل خطوة يخطيها في حياته توفيق ونجاح وتيسير اللهم قل لأمنياته وأحلامه كن فتكون ) 

[مجدى لطفى]

استاذ @سليم حاصبيا

أشكرك علي مجهودك المميز معنا 

لدي الملف المرفق وأمل مساعدتكم في كود يتم استخدامة والتحكم بالعمود الذي أود العمل عليه لحذف التكرار وهل يمكن حذف التكرار علي مستوي اليوم 

بحيث لو تكرر العميل بأكثر من يوم يتم حذف التكرار فقط بكل يوم 

Book1.xlsx

[سليم حاصبيا]

وأين أجد اسم العميل (اقصد في اي عامود)

[سليم حاصبيا]

جرب هذا الكود

بعد الضغط على زر هات ما عندك تظهر لك رسالتين

الرسالة الاولى   تطلب  منك رقم العامود الذي تريد التصفية عليه (الافتراضي  رقم 6 حيث رقم العميل)

الرسالة الثانية    تطلب منك اسم العميل الذي على اساسه تريد التصفية)

النتيجة في شيت Salim

اي خطأ في اسم العميل او رقم العامود لا تظهر النتائج

Filter_by_choise.xlsm

[مجدى لطفى]

شكرا جزيلا استاذ @سليم حاصبيا

أمل ازالة الشرط الثاني فقط اريد الحذف لكل المكرر علي مستوي العمود 

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

[سليم حاصبيا]

تم معالجة الأمر

الماكرو الاول ما زال يعمل في حال اردت تشغيله من خلال الزر Simple filter

 

Filter_by_choise_new.xlsm

[مجدى لطفى]

شكرا جزيلا استاذي العزيز