اريد ضبط كود فيجوال للترتيب بدون تكرار

[hamed.34552]

فى الملف المرفق اريد ترتيب عمود N  فى عمود AL فى ورقة البيانات الرئيسية بدون تكرار من خلال كود فيجوال بيسيك موجود فى ورقة البيانات الرئيسية

ولسيادتكم جزيل الشكر

hamed.xls

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

أولاً - من باب الحرص على الملكية الفكرية يجب عليك ان تذكر صاحب الكود الذي قمت باستعماله

ثانيا- لا لزوم اهذه الزركشة من الالوان التي تضخم حجم الملف دون جدوى

ثالثاً- انت يقوم بادارج قوائم منسدلة من نطاق  AL  الذي هو فارغ (انظر الصورة)

 

 

 

[hamed.34552]

انا اسف لاني لم اذكر صاحب الكود وهو استاذي ومعلمي الاستاذ سليم حاصبيا ...له مني كل التقدير والاحترام

اريد كود يرتب العمود n في العمود all دون تكرار

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

الآن استطيع ان اعطيك الكود الصحيح

Option Explicit
Private Sub Worksheet_Activate()
Salim_Data_Val
End Sub
Rem+++++++++++++++++++
Sub Salim_Data_Val()
Dim B As Worksheet
Set B = Sheets("البيانات الرئيسية")
Dim i#: i = 7

Dim Laste_row#
Laste_row = B.Cells(Rows.Count, "N").End(3).Row
B.Range("AL7").Resize(Laste_row + 1).ClearContents
Dim rg As Object
Set rg = CreateObject("System.Collections.Arraylist")
With rg
      Do Until i > Laste_row-6
       If Not .Contains(UCase(B.Range("N" & i).Value)) _
        And B.Range("N" & i) <> vbNullString Then _
       .Add UCase(B.Range("N" & i).Value)
       i = i + 1
      Loop
 .Sort
  B.Range("AL7").Resize(.Count) = _
  Application.Transpose(.Toarray)
 
 End With
 Set rg = Nothing: Set B = Nothing
End Sub

 

[hamed.34552]

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