اسماء العملاء بدون تكرار (كود) وليس معادلات

[ابوعبدالواجد]

السلام عليكم

ممكن كود باسماء العملاء بدون تكرار - اسماء العملاء موجودين في السجل مكرر

 

رمز الزبون بدون تكرار.rar

[خالد الرشيدى]

السلام عليكم

اخى الكريم يمكنك ان تستخدم الكود التالى كأحد الحلول

Sub Test()

    Dim ws As Worksheet, Lastrow As Long
    Set ws = ورقة2
    Lastrow = ورقة2.Cells(Rows.Count, 3).End(xlUp).Row
    ws.Range("C4:C" & Lastrow).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ورقة11.Range("B4"), Unique:=True

End Sub

 

تم تعديل مايو 13, 2017 بواسطه خالد الرشيدى

[ابوعبدالواجد]

السلام عليكم - حياك الله استاذخالد الرشيدي - وحيا الله أصلك

الكود تمام

المعادلة به مشكلة - ممكن الله يحفظك مراجعة المعادلة - يمكن الاستفادة منها