فرز البيانات دون تكرار

[ISLAM1982]

Classeur1.xlsx

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

جرب هذا الماكرو

Option Explicit
Sub Give_Uniques()
Application.ScreenUpdating = False
Dim d As Object, i As Long
Dim Mysh As Worksheet: Set Mysh = Sheets("قائمة جرد المكتبة ")
Dim lr As Long: lr = Mysh.Cells(Rows.Count, "C").End(3).Row
Dim mysh2 As Worksheet: Set mysh2 = Sheets("المطلوب")
Set d = CreateObject("system.collections.arraylist")

  For i = 4 To lr
    If Mysh.Cells(i, 3).Value <> vbNullString And _
    Not d.contains(Mysh.Cells(i, 3).Value) Then _
    d.Add Mysh.Cells(i, 3).Value
  Next
   
With mysh2
  .Range("a2", Range("A1").End(4)).ClearContents
  .OLEObjects("Combobox1").Object.List = _
   Application.Transpose(d.toarray)
  .Range("a2").Resize(d.Count - 1) = _
   Application.Transpose(d.toarray)
End With
d.Clear
Application.ScreenUpdating = True
End Sub

الملف

 

Claseur_salim.xlsm

 

 

[ISLAM1982]

شكرا صديقي .... الماكرو لا يعمل كما اريد ان يكون على شكل دالة ويتم تطبيق الفرز على جميع العناوين وليس عنوان واحد فقط ،

 

تم تعديل فبراير 15, 2019 بواسطه ISLAM1982